Formule avec boucle For dans une macro
Bonjour, je vous pose mon problème pour initialiser plusieurs cellules avec différentes formules incrémentées par une boucle.
J'aimerai tester pour chaque ligne si la valeur d'une cellule correspond à l'une des trois autres si oui on met 10 sinon 0.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private Sub CommandButton1_Click()
For i = 3 To 100
Range("EH" & i).Formula = "=IF(OR(EH2=EA " & i & ",EH2=EB " & i & ",EH2=EC " & i & "),10,0)"
Range("EI" & i).Formula = "=IF(OR(EI2=EA " & i & ",EI2=EB " & i & ",EI2=EC " & i & "),10,0)"
Range("EJ" & i).Formula = "=IF(OR(EJ2=EA " & i & ",EJ2=EB " & i & ",EJ2=EC " & i & "),10,0)"
Range("EK" & i).Formula = "=IF(OR(EK2=ED " & i & ",EK2=EE " & i & ",EK2=EF " & i & "),10,0)"
Range("EL" & i).Formula = "=IF(OR(EL2=ED " & i & ",EL2=EE " & i & ",EL2=EF " & i & "),10,0)"
Range("EM" & i).Formula = "=IF(OR(EM2=ED " & i & ",EM2=EE " & i & ",EM2=EF " & i & "),10,0)"
Next i
End Sub |
Merci de me dire ce qu'il ne va pas.
