Bonjour,

Je dois remplir un entête avec 8 cellules fusionnées espacées d'une cellule.
j'ai fais ça comme ça :
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
Ça fonctionne bien pour le premier mois, le deuxième mais pas le troisième.
Je ne comprend pas très bien comment fonctionne l'offset avec les cellules fusionnées.

Avez vous une idée??

Cordialement,

Pierre