Discussion :

[kyopis]

Bonjour,

Mon problème est relativement simple.

J'essaye d'effectuer un filtre sur un tableau, avec comme critère tous ce qui commence par 411 dans la colonne n°8

Le faire "à la main" fonctionne très bien, je sélectionne ma colonne, je clique sur le filtre, 'j'indique "411*" et je clique sur OK.

Mais quand j'essaye de le retranscrire en VBA, le filtre me renvoie aucun résultat.

Code :

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

 ActiveSheet.Range("$A:$W").AutoFilter Field:=8, Criteria1:="=411*"

Merci de votre retour

[Menhir]

Essaye d'enlever le = devant 411.

[kyopis]

Merci de ton retour.

mais malheureusement, cela n'a rien changer

[jeanmidudu]

Il n'est malheureusement pas possible, en VBA, d'utiliser directement le critère "commence par", l'utilisation du caractère "*" ne fonctionnera pas tel qu'attendu (il serait considéré comme un caractère écrit tout simplement).
Voilà un sujet apportant une manière de résoudre le problème (si tu n'es pas allergique à l'anglais) :
https://www.mrexcel.com/forum/excel-...not-begin.html

[kyopis]

Bonjour,

Merci de la confirmation de ce que je pensé

Je vais regarder ton lien externe.

Merci

[parmi]

Bonjour,

Si les données de la colonne H sont numériques, ça ne fonctionnera pas.
Autrement, ça devrait fonctionner correctement.

[eriiic]

Bonjour,

une idée sans colonne sup :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    ' filtrer nombres commence par xxx. eriiic
    Dim pl As Range, c As Range
    On Error Resume Next
    Set pl = Columns(8).SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    If Not pl Is Nothing Then For Each c In pl: c.Value = "'" & c.Value: Next c
    ActiveSheet.Range("A:H").AutoFilter Field:=8, Criteria1:="=411*"
    If Not pl Is Nothing Then For Each c In pl: c.Formula = c.Formula: Next c
End Sub

eric