Filtre VBA "ne commence pas par"

bonjour à tous,


je rencontre un problème est ne trouve pas de solution dans les différents forums,

j'ai besoin de faire un filtre avec comme critère "ne commence pas par" (au pire "ne contient pas"), le souci c'est que je ne sais pas comment écrire cela avec ma variable :?

ci dessous le code ou j'arrive à filtrer ce qui contient.

si l'un d'entre vous à une solution je suis preneur :)

Code:

---

1 2 3 4 5 6 7

Dim rep As String rep = InputBox("QUEL FRS", "Fournisseur à sélectionner") & "*"   With Sheets("Base (2)").Range("b2") .AutoFilter .AutoFilter field:=2, Criteria1:=rep End With

---

Bonjour,
As tu essayé:

Code:

---

Criteria1:=<>rep

---

oui oui ça me met erreur de compilation :?

Sans la variable la syntaxe que m'as donné l'enregistreur de macro

Code:

---

Criteria1:="<>15*"

---

edit: En fait non essaye:

Code:

---

Criteria1:="<>" & rep

---

presque ci dessous la syntaxe exact merci à toi halaster08 :D

Code:

---

Criteria1:="<>" & rep

---

Dernière question un peux bête mais je n'arrive pas à supprimer ma plage :arf: comment faire sachant que ma plage est variable

Code:

---

1 2 3 4 5 6 7

Dim rep As String rep = InputBox("QUEL FRS", "Fournisseur à sélectionner") & "*"     With Sheets("Base (2)").Range("b2") .AutoFilter field:=2, Criteria1:="<>" & rep End With

---

Essaye ceci

Code:

---

Range("A2:A" & Range("A"& rows.count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

Au passage un peu de pub pour un tuto qui pourrait t'être utile (sur les filtres avancés) http://philippetulliez.developpez.co...dvancedfilter/

oui c'est le bout de code que j'avais mit mais çà m'affiche erreur 1004 "la méthode delete de la classe range à échouer"


oui je l'avais déjà lu très utile :)

As tu des données dans la colonne A? si non change le A en une colonne où tu as des données.
Si oui je ne sais pas d'où viens le probleme.

Bonjour
Cela arrive lorsque la plage est complexe. Ce sera par exemple le cas si tu as un grand nombre de lignes visibles "entrelacées" dans un grand nombre de lignes cachées.
Remède : "découper" la plage en sous-plages (de 1000 lignes, par exemple) et traiter ces sous-plages en boucle, de bas en haut.

EDIT : Pour vérifier le bien fondé de ce que j'ai dit plus haut
Petite expérience :

Code:

---

1 2 3 4 5 6 7 8

Application.ScreenUpdating = False For i = 1 To 2000 Range("A" & i).Value = "a" If i Mod 2 = 0 Then Rows(i).Hidden = True Next   Application.ScreenUpdating = True Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

Pas de problème avec 2000
Essayez maintenant avec 100000 et constatez.

Bonjour,
Si tu utilises les critères nommés avec le filtre avancé voici une formule qui fonctionne pour filtrer "Tout ce qui ne commence pas par..."

Code:

---

=GAUCHE(A2;NBCAR($L$1))<>$L$1

---

La colonne A contient les valeurs à filtrer et la cellule L1 la chaîne de caractères qui compose le début des mots qui ne peuvent figurer dans la colonne A (Exemple si la cellule L1 contient la chaîne BAV la ligne dont la valeur de la cellule de la colonne A est Bavard ne sera pas affichée.

En VBA la chaîne contenant la formule sera

Code:

---

=LEFT(A2,LEN($L$1))<>$L$1

---

bonjour,
tu dis ce que tu veux mais pas pourquoi!

car si ça ce trouve un filtre élaboré ferait l'affaire. mais comme on le sait pas, le grand spécialiste qu'est Philippe ne peut pas te proposé une solution plus appropriée peut être!

Désolé pour la réponse tardive mais pas mal de boulot en ce moment :)

Alors le pourquoi et que j'ai besoin de faire tourner une boucle pour importer une donnée par rapport à une autre le souci c'est que ma base fait environ 200 000 lignes,
du coup ma boucle tourne pendant un long moment.

Donc j'ai penser passer par un filtre pour sélectionner se dont je n'avais pas besoin, y supprimer et ensuite faire tourner ma boucle.

je ne sais pas si j'ai été clair :)

PS: j'essaye ta ligne de code unparia

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim rep As String rep = InputBox("QUEL FRS", "Fournisseur à sélectionner") & "*"     With Sheets("Base (2)").Range("b2") .AutoFilter field:=2, Criteria1:="<>" & rep End With     Dim nbl As Long Dim nbl2 As Long   nbl = Sheets("Etude").Cells(Application.Rows.Count, 2).End(xlUp).Row 'compte le nombre ligne nbl2 = Sheets("Base (2)").Cells(Application.Rows.Count, 2).End(xlUp).Row 'compte le nombre de ligne   For a = 1 To nbl For b = 1 To nbl2   If Sheets("Etude").Cells(a, 7) = Sheets("Base (2)").Cells(b, 2) Then Sheets("Etude").Cells(a, 8) = Sheets("Base (2)").Cells(b, 15) End If   If Sheets("Etude").Cells(a, 7) = Sheets("Base (2)").Cells(b, 2) Then Sheets("Etude").Cells(a, 9) = Sheets("Base (2)").Cells(b, 16) End If   Next Next

---

Bonjour,
c'était bien la raison de ma question.

1. tu fais un filtre élaboré qui envoi sur un autre onglet ce que tu garde.
2. tu supprime toute les ligne de ta feulle.
3. tu copie colle le résulta du filtre dans ta feuille.

c'est plus rapide.

ah oui pas bête je n'y avait pas penser je vais essayer

Bonjour,
Exemple Excel VBA – Supprimer des lignes suivant critères avec la méthode AdvancedFilter