Filtre "411*" en VBA

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:

---

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

---

Merci de votre retour

Essaye d'enlever le = devant 411.

Merci de ton retour.

mais malheureusement, cela n'a rien changer :(

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

Bonjour,

Merci de la confirmation de ce que je pensé

Je vais regarder ton lien externe.

Merci

Bonjour,

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

Bonjour,

une idée sans colonne sup :

Code:

---

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