OVH Cloud OVH Cloud

Fusionnées plusieurs cellules avec une boucle

4 réponses
Avatar
khinoa
Bonjour à tous,

Je voudrais fusionner les cellules de deux colonnes adjacentes A et B depuis
la ligne 2 jusqu'à la ligne 6. J'ai essayé de faire une boucle et je n'y
arrive pas. Comment remplacer les instructions suivantes par une boucle For
?

Range("a2:b2").Merge
Range("a3:b3").Merge
Range("a4:b4").Merge
Range("a5:b5").Merge
Range("a6:b6").Merge

D'avance merci

khinoa

4 réponses

Avatar
michdenis
bonjour khinoa,


Essaie ceci :

For a = 2 To 6
Range("a" & a & ":b" & a).Merge
Next


Salutations!

"khinoa" a écrit dans le message de news:4172b058$0$834$
Bonjour à tous,

Je voudrais fusionner les cellules de deux colonnes adjacentes A et B depuis
la ligne 2 jusqu'à la ligne 6. J'ai essayé de faire une boucle et je n'y
arrive pas. Comment remplacer les instructions suivantes par une boucle For
?

Range("a2:b2").Merge
Range("a3:b3").Merge
Range("a4:b4").Merge
Range("a5:b5").Merge
Range("a6:b6").Merge

D'avance merci

khinoa
Avatar
michdenis
Il y a aussi :

For Each c In Range("a2:b6").Rows
c.Merge
Next


Essaie ceci :

For a = 2 To 6
Range("a" & a & ":b" & a).Merge
Next


Salutations!

"khinoa" a écrit dans le message de news:4172b058$0$834$
Bonjour à tous,

Je voudrais fusionner les cellules de deux colonnes adjacentes A et B depuis
la ligne 2 jusqu'à la ligne 6. J'ai essayé de faire une boucle et je n'y
arrive pas. Comment remplacer les instructions suivantes par une boucle For
?

Range("a2:b2").Merge
Range("a3:b3").Merge
Range("a4:b4").Merge
Range("a5:b5").Merge
Range("a6:b6").Merge

D'avance merci

khinoa
Avatar
khinoa
Bonjour michdenis,

Je te remercie beaucoup

Au revoir

khinoa


For a = 2 To 6
Range("a" & a & ":b" & a).Merge
Next



Avatar
...Patrick
plutot déconseillé de fusionner , mais enfin ....


--
...Patrick
Quoi que vous fassiez, faites le bien .
Mail: http://cerbermail.com/?KPW0tTCjFw
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel

"khinoa" a écrit dans le message de news:
4172b058$0$834$
Bonjour à tous,

Je voudrais fusionner les cellules de deux colonnes adjacentes A et B
depuis
la ligne 2 jusqu'à la ligne 6. J'ai essayé de faire une boucle et je n'y
arrive pas. Comment remplacer les instructions suivantes par une boucle
For
?

Range("a2:b2").Merge
Range("a3:b3").Merge
Range("a4:b4").Merge
Range("a5:b5").Merge
Range("a6:b6").Merge

D'avance merci

khinoa