Tom's Guide > Forum > Programmation > [WORD MACRO] : fusion des cellules

[WORD MACRO] : fusion des cellules

Forum Programmation : [WORD MACRO] : fusion des cellules

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
camzo   26-04-2007 à 18:40:17

bonjour à tous,

je dois transformer un fichier word avec une macro

le tableau a plusieurs colonnes dont seule la première m'importe

je dois fusionner les cellules qui ont le même contenu

donc j'ai dans ma colonnes les lignes :

1
1
1
1
2
2
3
4
4

et je veux :

1




2

3

4

si quelqu'un a une idée, qu'il n'hésite pas !!!

merci d'avance,
un documentaliste à l'arrache...

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
elendilm   27-04-2007 à 13:45:32
- 0 +

idx=1
for ligne= 2 to n step 1
do
if(cells(ligne,1).value == cells(idx,1).Value)
then
'cellules identique, afficher à blanc
cells(ligne,1).Value=""
else
'cellules différentes, on modifie l'index de comparaison.
idx=ligne
fi
done

Répondre à elendilm
camzo   30-04-2007 à 14:02:33
- 0 +

merci bien mais je ne peux pas exécuter cette macro car il y a apparemment une erreur dans la ligne :

Citation :

if(cells(ligne,1).value == cells(idx,1).Value)



le débogeur me dit que : erreur de compilation Sub ou Function non définie

si quelqu'un sait ce que ça veut dire, qu'il n'hésite pas à m'en faire part !!!

Répondre à camzo
elendilm   04-05-2007 à 12:16:49
- 0 +

désolé pour le retard, je n'avais pas vu ton message.

donc je fais plus de C++ que de VBA :) du coup erreur de syntaxe.

mets donc if (cells(ligne,1).Value = Cells(idx,1).value ) then
[...]

Répondre à elendilm
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [WORD MACRO] : fusion des cellules
Aller à :

Il y a 2520 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,152 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens