Discussion :

[Kestion100]

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 :

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

Like

et le caractère

Code :

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

?

(???????) 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.

[Pierre Fauconnier]

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 :

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

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.

[Raccourcix]

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 :

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

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