Discussion :

[Derfixien]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Derfixien]

J'ai trouvé la réponse, j'avais ajouté un espace de trop dans mon code.

Pour info et si ca peut servir à quelqu'un.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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