Cellules fusionnées et offset

Bonjour

à ma demande d'aide j'ai joins un fichier dans lequel à partir d'une macro toute simple je souhaiterai remplir

un tableau contenant des cellules fusionnées en faisant varier un entier qui est affecté à la colonne à remplir

seulement l'utilisation de offset ne m'a pas l'air adéquate , des cellules du tableau ne se remplissent pas

quelle en est la cause ?

Merci pour vos explications

Bonjour,

Avec un pas de 2, ça devrait ballet

Sub tableau()
Dim i As Integer
    For i = 1 To 7 Step 2
        Range("C7").Offset(0, i) = "non disponible"
    Next
End Sub

A+

Bonjour

Bonjour frangy

Tu te prépares à des difficultés (en programmation) avec tes cellules fusionnées

Essayes

Sub tableau()
Dim i As Integer

  With ActiveSheet
    For i = 1 To 7 Step 2
      Range("C7").Offset(0, i) = "non disponible"
    Next
  End With
End Sub

Bonjour Frangy et Banzai , merci pour vos réponses rapides , je n'ai pas saisi pourquoi est ce que i varie de 1 à 7 ? , je comprend pour le pas de 2

Bonjour

Supprimes tes cellules fusionnées sauf la 1ère et lances la macro

Un offset de 1 dans une zone fusionnée sort de la zone fusionnée

Ensuite c'est le décalage normal

For i = 1 to 7 Step 2

1 ---> sort de la zone fusionnée

3 ---> va dans la 3ème cellule

5 ----> vas dans la 5ème cellule

etc ...

Merci Banzai , j'ai bien compris !