test sur double conditions en VBA pour Excel

Le
wilf
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
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Daniel
Le #3583021
Bonjour.
If range("A" & i).Value = quelquechose And range("B" & i).Value =
autrechose Then
Action
End If
Cordialement.
Daniel

"wilf"
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
wilf
Le #3582931
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..
Yoyo
Le #3582841
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..


wilf
Le #3582811
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
Yoyo
Le #3582781
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
wilf
Le #3582641
merci ca marche en fait je faisais un repaint sur la même cellule ..
Poster une réponse
Anonyme