Autofilter Like ?

Bonjour,
Je souhaiterais savoir s'il est possible de filtrer une colonne sur la forme d'une chaîne de caractères.

Dans mon fichier, j'ai une colonne qui contient des dates dont certaines (31042019) sont sur 8 caractères mais d'autres sur 7 (1122020) au lieu de 8 (01122020), j'ai développé un code qui balaye les cellules une à une de la colonne pour vérifier puis corriger si nécessaire.
Code qui me paraît longué. Je me demande si coder pour agir sur la colonne filtrée ne serait pas plus rapide:

- Filtrer sur les cellules contenant 7 caractères;
- Corriger les cellules visibles dans la colonne filtrée.

Or, je ne sais pas s'il est possible de filtre sur les cellule contenant 7 caractères, je me demandais si avec

Code:

---

Like

---

et le caractère

Code:

---

?

---

(???????) ne pourrait pas être la solution mais ne connais pas la syntaxe qui serait à utiliser.

Je ne sais pas non-plus boucler uniquement sur les cellules filtrées de la colonne.


Si quelqu'un peut me donner un coup de main, merci beaucoup d'avance.

Salut.

Perso, je corrige toujours mes données avant de les traiter. Ca me semble être une approche raisonnable:

1. Acquérir les données;
2. Préparer les données;
3. Analyser les données.

Une macro sur 500 000 dates pour ajouter le 0 devant s'exécute en à peine 2 secondes pour remplacer "sur place"...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim Dates Dim i As Long   Dates = Range("tableau2[Date]").Value For i = LBound(Dates) To UBound(Dates) Dates(i, 1) = Format(Dates(i, 1), "00000000") Next i Range("tableau2[Date]").Value = Dates End Sub

---

Power Query peut également réaliser le taf, au prix d'une duplication puis d'un éventuel remplacement des données.

Bonjour

comme suggéré par Pierre avec Power Query pour mettre sur 8 caractères le champ "Date" d'un Tableau1
Text.PadStart(Text.From(_), 8,"0") va ajouter suffisamment de 0 au début de chaîne pour avoir 8 caractères

Code:

---

1 2 3 4 5

let Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content], #"Préfixe ajouté" = Table.TransformColumns(Source, {{"Date", each Text.PadStart(Text.From(_), 8,"0"), type text}}) in #"Préfixe ajouté"

---

Stéphane