VBA Filtre multi critères

[Arpette]

Bonsoir à toutes et tous, je galère avec un fitre sur une colonne.
En VB je souhaite supprimer te ma colonne toutes cellules commençant par B, C et D.
J'y parviens avec un filtre mais que sur un seul critère.
Merci de votre aide.
@+

 

[goldenboy]

Re : VBA Filtre multi critères

Bonjour Arpette,

Moi je ferais une deuxième colonne avec la formule =GAUCHE(A2;1), avec pour intitulée Premier caractere.
Ainsi, vous pourriez faire un filtre sur les lettres B,C, et D

Ensuite, en VBA, il faut utiliser ce code :

'supprime les lignes filtrées à partir de B2 (en ligne 1 il y a les titres.)
Range("B2", [B65536].End(xlUp).Address).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Pour le filtre en VBA :

'Filtre B,C et D
ActiveSheet.Range("$A$1:$B$783").AutoFilter Field:=2, Criteria1:=Array("B", "C", "D"), Operator:=xlFilterValues

Avec mes petites connaissances, c'est ce que j'aurais fais. En attendant que d'autres avis expert vous parviennent.

Cordialement,

 

[Arpette]

Re : VBA Filtre multi critères

Bonsoir Goldenboy et merci pour ta réponse, mais je cherche quelque chose de ce genre :

Sub Filtre_()
    With Sheets("Feuil1")
        
        If Not AutoFilterMode Then AutoFilterMode = True
        .[A1].AutoFilter 1, "<>B*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
    
     End With
End Sub

Comme ceci je garde que les cellules qui commence par B et moi je souhaite supprimer celles qui commencent par B, C et D, je n'arrive pas à construire le code.
Merci de votre aide
@+

 

[Arpette]

Re : VBA Filtre multi critères

Re,
comme ceci j'élimine les cellules qui commencent par B:

Sub Filtre_()
    With Sheets("Feuil1")
        
        If Not AutoFilterMode Then AutoFilterMode = True
        .[A1].AutoFilter 1, "=B*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
    End With
End Sub

Il me reste plus qu'à éliminer celles qui commencent par C et D.
Je creuse😛
@+

 

[laurent950]

Re : VBA Filtre multi critères

Bonsoir,

Peut être avec se code en fichier joint

ps : avec pour intitulée Premier caractere " La macro prend en compte que le 1er caractére de la phrase

si vous ne voulais pas les caracteres suivant exemple :

i/E/f/G (toute et repasser en minuscule et le sépérateur est le slash "/")

laurent

 

[Arpette]

Re : VBA Filtre multi critères

Bonsoir Laurent et merci pour ce code qui fonctionne très bien mais je ne peux pas l'adapter au fichier original.
Merci encore
@+

 

[Arpette]

Re : VBA Filtre multi critères

Rebonsoir, je pense qu'il y a plus simple mais j'ai fait comme ceci :

Sub Filtre_()
    With Sheets("Feuil1")
        
        If Not AutoFilterMode Then AutoFilterMode = True
        .[A1].AutoFilter 1, "=B*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
        .[A1].AutoFilter 1, "=C*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
        .[A1].AutoFilter 1, "=D*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
        .[A1].AutoFilter 1, "=FI*"
        Set d = .Range("_FilterDataBase")
        d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
        .ShowAllData
        
    End With
End Sub

Merci à tous
@

 

[DoubleZero]

Re : VBA Filtre multi critères

Bonjour, le Fil, le Forum,

Une suggestion dans le fichier joint.

A bientôt 🙂

 

[Arpette]

Re : VBA Filtre multi critères

Bonsoir à toi,
bien plus approprié à mon besoin que le filtre, je l'ai adopté
Merci à toi
@+

 

[DoubleZero]

Re : VBA Filtre multi critères

Bonjour, le Fil, le Forum,

Une autre façon d'agir.

A bientôt 🙂

 

[Arpette]

Re : VBA Filtre multi critères

Bonsoir Double00,
Merci pour cette méthode qui va m'être très utile pour un autre filtre.
@+