Fusionner des cellules par lots

jensouniev Messages postés 2 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
Bonsoir.

Après une demi-heure de recherches infructueuses, je me résous à poser la question :

Existe-t-il une formule (ou manip ou macro) qui permette dans une colonne de fusionner les cellules par paquet de 8 (ou autre valeurs pour les copains) sur un nombre défini de répétition ?
A voir également:

1 réponse

jensouniev Messages postés 2 Statut Membre
 
Je me réponds à moi-même.

1) sélectionner les huit premières cellules
2) fusionner
3) sélectionner la "grosse cellule" ainsi créée et la copier
4) en dessous de cette "grosse cellule", sélectionner le reste de la colonne jusqu'à l'endroit désiré
5) dans une des cases sélectionnées, soit a) faire un clic droit, puis collage spécial ou b) [Ctrl + Alt + v]
6) dans le menu collage spécial, sélectionner "tout".

Voilà, voilà.
Heuuu... Merci moi.

... et pardon pour le dérangement, j'aurais du persévérer avant de pauser la question. Si la solution peut servir à quelqu'un d'encore plus novice que moi ce sera déjà pas mal.

Bonne soirée à tous.
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour,

Avec une macro :
Option Explicit
Sub Fusionner()
Const c$ = "D"     'colonne
Const p& = 5       'première ligne
Const n% = 8       'nombre de cellules à fusionner
Const r& = 20      'nombre de répétitions
Dim ctr&           'compteur
Dim cel As Range   'cellule
  
  Set cel = Worksheets(1).Cells(p, c)
  For ctr = 1 To r
    cel.Resize(n, 1).Merge
    Set cel = cel.Offset(1, 0)
  Next ctr

End Sub
0