Fusionner des cellules par lots

jensouniev Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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 ?

1 réponse

jensouniev Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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