Codage vb boucle a plusieur condition

bonjour, ou bonsoir,

je cherche a coder une condition assez complexe , du moins pour moi . La macro doit "tester" les contenue de toute les cellules d'une même colonne , a savoir si elle contient "oui" ou "non" et afficher une bordure verte pour les "oui" et rouge pour les "non".

De plus pour les "non" si la date d'une autre cellule sur la même ligne est dépasser ( par exemple hier ) toute les ligne doit ce surligner en rouge.

voila je sais pas si je me suis bien faire comprendre mais j'ai réaliser cette macro mais elle ne fonctionne pas.

Sub relance_impayée()

'selection de la premiere cellule de la colone

Range("I2").Select

Dim a As String, b As String, c As String

a = "Oui"

b = "Non"

'création de la boucle

Do While Not (IsEmpty(ActiveCell))

nbligne = nbligne + 1

Selection.Offset(1, 0).Select

If c = a Then

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(0, 255, 0)

Else

If c = b Then

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(255, 0, 0)

Else

End If

End If

Loop

End Sub

je ne suis as encore chauve mais a ce rythme ça va pas tarder

merci de votre aide

Bonjour et bienvenue sur le forum

Essaie ce code, inspiré du tien :

Sub relance_impayée()
'selection de la premiere cellule de la colone
Range("I2").Select

'création de la boucle
Do While Not (IsEmpty(ActiveCell))
     If Selection.Value Like "oui" Then
        Selection.Borders.Weight = 4
        Selection.Borders.Color = RGB(0, 255, 0)
     Else
        If Selection.Value Like "non" Then
           Selection.Borders.Weight = 4
           Selection.Borders.Color = RGB(255, 0, 0)
        Else
        End If
     End If
     Selection.Offset(1, 0).Select
Loop
End Sub

Merci de ton accueil et de ton aide.

j'ai tester ton code mais o=il m'indique erreur 13 lorsque je le lance sur la ligne like "oui"

j'ai continuer a essayer de m'en sortir seul et suis arriver a ce resultat:

Sub relance_impayée()

'selection de la premiere cellule de la colone

Range("I2").Select

Dim a As String, b As String, c As String

a = "Oui"

b = "Non"

c=

'création de la boucle

Do While Not (IsEmpty(ActiveCell))

nbligne = nbligne + 1

Selection.Offset(1, 0).Select

If c = a Then

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(0, 255, 0)

Else

If c = b Then

Selection.Borders.Weight = 4

Selection.Borders.Color = RGB(255, 0, 0)

Else

End If

End If

Loop

End Sub

mais je ne sais aps ce qu'il faut coder pour que c soit egale au texte de la cellule tester et qu'il soit comparer a "a" ou "b"

( toutes les cellule ont des bordure vertes que le texte soit oui ou non)