Utilisation du "if not"

Le 25/04/2020 à 22:12

Bonsoir,

Je cherche à valider un import via une macro.

La colonne E doit contenir uniquement une des 4 valeurs (ART, REG, ANN ou RED). J'ai essayé le code ci-dessous. Cependant, cela me renvoie faux même si la cellule contient bien une de ces 4 valeurs.

Voyez-vous une erreur dans mon code?

Range("E7").Select
Do
If Not (ActiveCell.Value Like "ART") Or Not (ActiveCell.Value Like "REG") Or Not (ActiveCell.Value Like "ANN") Or Not (ActiveCell.Value Like "RED") Then
Range("D7:O100000").ClearContents
MsgBox ("La colonne TYPE n'est pas conforme" & Chr(10) & Chr(13) & "Les seules valeurs acceptées sont ART - RED - REG - ANN")
Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Offset(1, 0) = ""

Merci par avance de votre aide,

Le 25/04/2020 à 22:34

Bonjour,

Un essai ...

    Range("E7").Select
    Do
        If Not (ActiveCell.Value Like "ART") And Not (ActiveCell.Value Like "REG") And Not (ActiveCell.Value Like "ANN") And Not (ActiveCell.Value Like "RED") Then
            Range("D7:O100000").ClearContents
            MsgBox ("La colonne TYPE n'est pas conforme" & Chr(10) & Chr(13) & "Les seules valeurs acceptées sont ART - RED - REG - ANN")
            Exit Sub
        End If
        ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Offset(1, 0) = ""

ric

Le 25/04/2020 à 22:53

Parfait merci!

Effectivement cela est plus logique