Filtre VBA "ne commence pas par"

**matthieu69** · 26/08/2016, 11h53

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**halaster08** · 26/08/2016, 12h04

Bonjour,
As tu essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:=<>rep

**matthieu69** · 26/08/2016, 13h37

oui oui ça me met erreur de compilation

**halaster08** · 26/08/2016, 14h01

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="<>15*"

edit: En fait non essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="<>" &  rep

**matthieu69** · 26/08/2016, 14h10

presque ci dessous la syntaxe exact merci à toi halaster08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="<>" & rep

**matthieu69** · 26/08/2016, 15h45

Dernière question un peux bête mais je n'arrive pas à supprimer ma plage

comment faire sachant que ma plage est variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**halaster08** · 26/08/2016, 15h48

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

**matthieu69** · 26/08/2016, 15h58

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

**halaster08** · 26/08/2016, 23h31

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.

**unparia** · 27/08/2016, 00h27

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Philippe Tulliez** · 27/08/2016, 08h40

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Invité · 29/08/2016, 13h07

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!

**matthieu69** · 02/09/2016, 08h14

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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