Macro : If avec plusieur conditons

[aerocrash]

Bonjour,
je suis entrain de réalisé une toute petite macro et j'aimerai savoir si il est possible de dire :

If cellule1 <> "cado" Then
If cellule1 <> "oiseau" Then
If cellule1 <> "papi" Then
If cellule1 <> "mami" Then
If cellule1 <> "zoro" Then

Mais ceci, en une ligne ?

En gros : si la valeur de la cellule 1 est différent des valeurs : cado, oiseau...
alors ... je fait xxx.

voila une question rapide 🙂
en vous remerciant d'avance

 

[Guest]

Re : Macro : If avec plusieur conditons

Bonjour AeroCrash,

If Instr(1,"Cadeau,oiseau,papi,mamie,zorro",Cellule1)=0 then [COLOR=red]CeQueTuVeux[/COLOR]

Où CeQueTuVeux est a remplacer par l'action désirée.

La fonction Instr Chercher la position d'une chaine de caractère dans une autre.

A bientôt

 

[i0raek]

Re : Macro : If avec plusieur conditons

Salut @ll !

voici une solution :

Dim list as variant
Dim Tampon as boolean

list = array("cado","oiseau",...,"zoro")

For i = 0 to ubound(list)-1
     If cellule1.value=list(i) then
          Tampon = true
          Exit For
     end if
next

if Tampon = true then
     ...
else
     xxx
end if

Tu fais une liste avec toutes tes valeurs possibles et tu passes en revue la valeur de ta cellule par rapport à toutes celles de la liste
Si la cellule est égale à une des valeurs de la liste Tampon devient true sinon il reste à false (valeur par défaut)
et en faisant un test sur tampon tu sais si ta cellule est égale à une de tes valeurs !!!

Voila !

 

[aerocrash]

Re : Macro : If avec plusieur conditons

Sub Filtre_IDF()
Dim I As Long
Dim list As Variant
Dim Tampon As Boolean

Sheets("IDF").Select

list = Array("oiseaux", "lyon", "paris", "papi", "mami")

For I = 2 To 100
Tampon = FAUX
    
        For J = 0 To UBound(list) - 1
        If Cells(I, "A").Value = list(J) Then
        Tampon = VRAI
        End If
        Next
        
    If Tampon = FAUX Then
    Rows(I).Delete
    End If

Next

End Sub

Le probléme .. c'est qu'il supprimer un peu n'importe quoi... ca ne marche pas pourquoi ? la est la question 😛

 

[aerocrash]

Re : Macro : If avec plusieur conditons

pareil poru la méthode avec instr... si je lance plusieur fois la macro ca me vide ma feuille excel lol .. c'est étrange tout ca ^^

 

[Guest]

Re : Macro : If avec plusieur conditons

Re bonjour AeroCrash

As-tu essayé la méthode que je t'ai donné plus haut?

si oui qu'est-ce qui ne fonctionne pas.
donne nous eventuellement un fichier.

A bientôt

 

[i0raek]

Re : Macro : If avec plusieur conditons

Re,

En fait tu souhaites supprime la ligne i si la cellule Ai contient l'une des valeurs de ta liste ?

 

[aerocrash]

Re : Macro : If avec plusieur conditons

tout simplement...

 

[aerocrash]

Re : Macro : If avec plusieur conditons

Voila un fichier témoin.
si on relance 3 fois la macro ou 4 fois .. il ma tout supprimer

 

[Guest]

Re : Macro : If avec plusieur conditons

Re,

Joins nous un bout du fichier avec la macro et des donnée anonymisées.
Sinon on va tourner en rond.
A bientôt

 

[i0raek]

Re : Macro : If avec plusieur conditons

Re !
Ok alors voici ton code !!!

Sub Filtre_IDF()

    Dim i As Integer
    Dim j As Integer

    Dim List As Variant
    Dim Tampon As Boolean

    List = Array("oiseaux", "lyon", "paris", "papi", "mami")

    ' fige l'écran ce qui accélère le code
    Application.ScreenUpdating = False

    Sheets("IDF").Activate

    For i = 2 To 100
    
        For j = 0 To UBound(List) - 1
            If Cells(i, "A").Value = List(j) Then
                Rows(i).Delete
                i = i - 1 'comme tu supprimes une ligne il faut revenir en arrière dans le décompte des lignes
                Exit For
            End If
        Next

    Next

End Sub

voila la ca doit fonctionner !

 

[Guest]

Re : Macro : If avec plusieur conditons

Re AeroCrash,

Voici une version qui fonctionne avec Instr:

Sub Filtre_IDF()
    Dim Plage As Range
    Dim i As Long
    Set Plage = Sheets("IDF").Range("A2:A" & Sheets("IDF").Range("A65536").End(xlUp).Row)
    For i = Plage.Rows.Count To 1 Step -1
        If InStr(1, "PAPI,MAMI,OISEAU", Plage.Cells(i).Text) = 0 Then
            Plage.Cells(i).EntireRow.Delete
        End If
    Next

End Sub

A bientôt

 

[aerocrash]

Re : Macro : If avec plusieur conditons

super merci beaucoup 🙂 je me planche sur le sujet pour bien comprendre mais ca fonctionne