Fusionner des cellules par lots
jensouniev
Messages postés
2
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 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 ?
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
-
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.-
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
-
