macro pour affecter une valeur à une plage de cellules en fonction de la valeur d'une autre cellule

[michel.dupont]

bonjour
Par avance merci de votre aide
j'ai des celules en d1,h1,l1,p1,t1 etc....qui ont une valeur
j'aimerai que lorsque une de ces cellules a une valeur de 1 ,une plage de cellules situées dans la 4 eme colonne à gauche de la dite cellule (qui a valeur 1) prenne la valeur de 2...
voici mon code (qui ne fonctionne pas) et le fichier pour une meilleure compréhension
merci
amicalement
Michel
Sub Macro1()
Dim cell As Range
Range("d1,h1,l1,p1,t1,x1").Select
For Each cell In Selection

If cell.Value = 1 Then cell.Offset(3, -4).Range("A1:A21") = 2

Next cell
End Sub

 

[natorp]

Bonjour Michel

If cell.Value = 1 Then cell.Offset(3, -4).Range("A1:A21") = 2

A remplacer par :

If cell.Value = 1 Then cell.Offset(3, -3).Range("A1:A21") = 2

Cordialement, Gérard