Condition SI avec report de commentaires dans une colonne

Bonjour,

Je voudrais en fonction des données dans une colonne, reporté des commentaires associées. Le code ne fonctionne pas jusqu'à la fin dans mon tableau...(Absence des données "En attente réception" et données "Inacceptable")

En résumé :

- SI "commandes non reçues" alors reporter commentaires "En attente réception"

- SI "inférieur à 0" alors reporté commentaires "Bon"

- SI "Entre 0 et 20" alors "Mauvais"-

- SI "Supérieur à 20" "Inacceptable"

Voici le code :

Dim Delai As Range, ANL As Range, a As Integer, defc As String

defc = "Commandes non reçues"

For a = 2 To 30000

    Set Delai = Range("T" & a)
    Set ANL = Range("U" & a)

    If c = "Commandes non reçues" Then
    ANL = "En attente réception"

    End If

    If Range("T" & a) <= 0 Then
    ANL = "Bon (inférieur à 0)"

    ElseIf 0 < Range("T" & a) <= 20 Then
    ANL = "Mauvais(entre 0 et 20J)"

    ElseIf Range("T" & a) > 20 Then
    ANL = "Inacceptable(Supérieur à 20J)"

End If

Next a

Merci pour votre aide.

Cordialement,

Skydream

Avec Le code à jour:

Dim Delai As Range, ANL As Range, a As Integer, defc As String

defc = "Commandes non reçues"

For a = 2 To 30000

    Set Delai = Range("T" & a)

    If defc = "Commandes non reçues" Then
    ANL = "En attente réception"

    End If

    If Range("T" & a) <= 0 Then
    ANL = "Bon (inférieur à 0)"

    ElseIf 0 < Range("T" & a) <= 20 Then
    ANL = "Mauvais (entre 0 et 20J)"

    ElseIf Range("T" & a) > 20 Then
    ANL = "Inacceptable (Supérieur à 20J)"

ANL = Range("U" & a)

End If

Next a

Salut Skydream,

pas de souci mais pour éviter de faire et refaire à l'aveugle, ce serait bien de fournir un fichier avec explications.

A+

J'ai réussi à corriger avec la fonction Case.