test sur double conditions en VBA pour Excel

Bonjour.
If range("A" & i).Value = quelquechose And range("B" & i).Value =
autrechose Then
Action
End If
Cordialement.
Daniel

"wilf" <wilfried_atge@hotmail.com> a écrit dans le message de news:
1140518936.009390.156420@f14g2000cwb.googlegroups.com...
Bonjour,

je cherche à tester une double condition:
Je souhaite effectuer la routine suivante :
Sur toute la longueur de 2 colonnes :
C a d : For i = 1 to n
Si la valeur Ai=quelquechose et que Bi= autre chose
alors Action ...
Sinon Rien

C'est pas easy ..

Merci de votre aide

Merci ..
Après mise en forme ca donne ca !!

Sub test3()
For i = 1 To 4
If Range("B" & i).Value = "oui" And Range("C" & i).Value = "0%"
Then
Range("A1").Interior.Color = RGB(0, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 255, 0)
End If
Next
End Sub


Ben ca marche pas..
Il détecte pas que b1=oui et C1= 0%

Pénible le truc..
il y aurait pas un truc du genre IsArray à utiliser..

Bonjour Wilf

If (Range("B" & i).Value = "oui" And Range("C" & i).Value = "0%") Then

Ajoute des parenthèses et test pas a pas tu trouveras l'erreur
cordialement Yo
Yo

Merci ..
Après mise en forme ca donne ca !!

Sub test3()
For i = 1 To 4
If Range("B" & i).Value = "oui" And Range("C" & i).Value = "0%"
Then
Range("A1").Interior.Color = RGB(0, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 255, 0)
End If
Next
End Sub


Ben ca marche pas..
Il détecte pas que b1=oui et C1= 0%

Pénible le truc..
il y aurait pas un truc du genre IsArray à utiliser..

ben .. je menerve.. je m'énerve et ca marche pas..

crotte...

Sub test3()

For I = 1 To 4
If (Range("B" & I).Value = oui And Range("C" & I).Value = 0) Then
Range("A1").Interior.Color = RGB(0, 0, 0)
Else
Range("A1").Interior.Color = RGB(255, 255, 0)
End If
Next
End Sub

le problème c'est que ca ne remonte pas d'erreur..
je dois mal écrire un truc du coup il passe immediatement à la
deuxieme solution
Range("A1").Interior.Color = RGB(255, 255, 0)

pénible ..
pourtant c trivial ..

merci quand même

Essaye cela je crois que c'est ce qu tu veux faire

ordialement

Yoyo

Sub test3()


For I = 1 To 4




If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then
Range("A" & I).Interior.Color = RGB(0, 0, 0)
Else
Range("A" & I).Interior.Color = RGB(255, 255, 0)
End If

Next
End Sub

merci ca marche en fait je faisais un repaint sur la même cellule ..