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

michel.dupont

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur12.xlsm
    22.6 KB · Affichages: 37

natorp

XLDnaute Accro
Bonjour Michel

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

Cordialement, Gérard
 

Discussions similaires

Haut Bas