Fusionner des cellules par lots

Fermé
jensouniev Messages postés 2 Date d'inscription lundi 12 septembre 2016 Statut Membre Dernière intervention 12 septembre 2016 - 12 sept. 2016 à 22:30
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 12 sept. 2016 à 23:21
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 lundi 12 septembre 2016 Statut Membre Dernière intervention 12 septembre 2016
Modifié par jensouniev le 12/09/2016 à 23:16
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
12 sept. 2016 à 23:21
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