Discussion :

[7ider5]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim i As Byte
 
With Sheets("Feuil1")    'à adapter
    For i = 0 To 11
        .Cells(1, 9 * i + 2) = MonthName(i + 1)
        .Range(.Cells(1, 9 * i + 2), .Cells(1, 9 * (i + 1))).Merge
    Next i
End With

[7ider5]

Ah super! merci bien mercatog.