Plage de cellules et Target.Offset

Bonjour au forum,

Je cherche à modifier la valeur de plusieurs cellules simultanément via un clique droit sur une cellule spécifique.

Dans le fichier joint, j'arrive à modifier la valeur de la 1er cellule située en dessous avec Target.Offset en cliquant droit sur les cellules C15, E15, G15 ou I15.

J'aimerais que la modification se fasse non pas que sur la 1er cellule située en dessous mais sur les 6 en dessous...

Auriez-vous une idée ?

Nicolas.

Bonjour,

Dim c As Range
For Each c In Target.Offset(1).Resize(6)
    ' ta modif. Ex :
    c.Value = c + 1
Next c
End Sub

eric

Bonjour eriiic,

Merci pour ta réponse.

Je n'arrive pas à intégrer correctement ton code pour qu'il fonctionne via le clique droit sur les cellules mentionnées dans mon précèdent message.

Pourrais-tu m'aider à l'adapter à celui existant... ?

Re eriiic,

C'est tout bon excuse moi, j'avais fait une petite erreur mais cela fonctionne parfaitement.

Je te remercie pour ton aide !

Bonne journée