Bonjour,
Je dois remplir un entête avec 8 cellules fusionnées espacées d'une cellule.
j'ai fais ça comme ça :
Ça fonctionne bien pour le premier mois, le deuxième mais pas le troisième.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For month = 0 To 11 'on récupère les données pour tous les mois 'Remplissage de l'entête des mois Range("B1").Offset(0, 2 * month).Select Range("B1").Offset(0, 2 * month) = mois(month) Range(Range("B1").Offset(0, 2 * month), Range("B1").Offset(0, 2 * month + 7)).Merge Next
Je ne comprend pas très bien comment fonctionne l'offset avec les cellules fusionnées.
Avez vous une idée??
Cordialement,
Pierre
Partager