Do Until Isempty => comment renseigner plusieurs variables

Bonjour,

Je ne sais pas comment faire pour que l'instruction DO UNTIL ISEMPTY tienne compte de plusieurs variables, dans mon exemple ci-dessous, je souhaiterais que les lignes relatives à une colonne soient supprimées si les données en question sont différentes de A360773, A347847, A396983, A351251.

La macro fonctionne seulement si je n'utilise qu'une seule variable.

En vous remerciant par avance pour votre retour.

Bonne journée.

Sheets("REQUETE_MODIFIEE").Select

Range("G3").Select

Do Until IsEmpty(ActiveCell)

If ActiveCell.Value <> "A360773;"A347847";"A396983";"A351251" Then

Selection.EntireRow.Delete

Else: ActiveCell.Offset(1, 0).Select

End If

Loop

Bonjour

Merci d'utiliser les balises de code lorsque vous placez un code dans un fil

Cela ne fonctionne pas car vous devez mettre la condition sur chaque valeur --> If ActiveCell.Value <> "A360773 and ActiveCell.Value <> A347847" and ActiveCell.Value <> "A396983".....

En fonction de votre demande je verrais plutot le code comme ceci :

Sub test()
Dim i As Integer
With Sheets("REQUETE_MODIFIEE")
    .Select
    dlg = .Range("G" & .Rows.Count).End(xlUp).Row
    For i = dlg To 3 Step -1
        If .Range("G" & i) <> "A360773" And .Range("G" & i) <> "A347847" And .Range("G" & i) <> "A396983" And .Range("G" & i) <> "A351251" Then .Range("G" & i).EntireRow.Delete
    Next i
End With
End Sub

Cordialement

Merci Dan pour cette suggestion, je vais essayer et je vous tiens informer. Bonne journée. CDT

Re

Ok...