OVH Cloud OVH Cloud

Filtre sur des chiffres

4 réponses
Avatar
Didier Novarin
Bonjour
J'ai une colonne de chiffre avec dans chaque cellule des chiffres ex : A3 =
123 +563 + 35
je souhaite filtrer uniquement les chiffres commençant par 5 par exemple, et
là, je ne connais pas la syntaxe, j'utilise un textbox afin de choisir le
chiffre.
Dans l'exemple ci-dessous, cela ne fonctionne pas, et sélectionne uniquement
le premier chiffre.
Je vous remercie
Didier

Mavar = Textbox1.value
Range("A3:A300").Select

Selection.AutoFilter Field:=1, Criteria1:=Mavar & "*"

4 réponses

Avatar
lSteph
Bonjour Didier,

filtrer ou? .....dans l'opération..non je ne crois pas.
.....dans la colonne plutôt puisque tu parles de filtre
automatique
Amha pas la bonne méthode car le premier chr "commence par"
est "=" et le reste indépendant du résultat qui peut donner 5 au début.
Il est donc normal que tu n'y arrives pas ainsi.

S'il faut rester dans l'idée d'un filtre auto "commence par"
possibilité manuelle ou macro

ajouter une colonne avec les valeurs de la colonne A en format texte.

lSteph

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai une colonne de chiffre avec dans chaque cellule des chiffres ex : A3
= 123 +563 + 35
je souhaite filtrer uniquement les chiffres commençant par 5 par exemple,
et là, je ne connais pas la syntaxe, j'utilise un textbox afin de choisir
le chiffre.
Dans l'exemple ci-dessous, cela ne fonctionne pas, et sélectionne
uniquement le premier chiffre.
Je vous remercie
Didier

Mavar = Textbox1.value
Range("A3:A300").Select

Selection.AutoFilter Field:=1, Criteria1:=Mavar & "*"




Avatar
Didier Novarin
Bonjour lSteph
dans les cellules, il y a ex : 1254 + 3655 + 754
et non =, je sais que ma syntaxe n'est pas bonne, mais je ne sais pas
comment faire pour contourner le pb
Merci
Didier


"lSteph" a écrit dans le message de news:

Bonjour Didier,

filtrer ou? .....dans l'opération..non je ne crois pas.
.....dans la colonne plutôt puisque tu parles de filtre
automatique
Amha pas la bonne méthode car le premier chr "commence par"
est "=" et le reste indépendant du résultat qui peut donner 5 au début.
Il est donc normal que tu n'y arrives pas ainsi.

S'il faut rester dans l'idée d'un filtre auto "commence par"
possibilité manuelle ou macro

ajouter une colonne avec les valeurs de la colonne A en format texte.

lSteph

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai une colonne de chiffre avec dans chaque cellule des chiffres ex : A3
= 123 +563 + 35
je souhaite filtrer uniquement les chiffres commençant par 5 par exemple,
et là, je ne connais pas la syntaxe, j'utilise un textbox afin de choisir
le chiffre.
Dans l'exemple ci-dessous, cela ne fonctionne pas, et sélectionne
uniquement le premier chiffre.
Je vous remercie
Didier

Mavar = Textbox1.value
Range("A3:A300").Select

Selection.AutoFilter Field:=1, Criteria1:=Mavar & "*"








Avatar
michdenis
Bonjour Didier,

Essaie ceci en adaptant le nom de la feuille
et la colonne où tu veux filtrer tes données.

Un exemple avec le filtre élaboré :

Plage de crtitère : C1:C2
C1 = Vide
C2 =GAUCHE(A2;1)="5"

'-------------------------------------
Sub Test()

Dim Rg As Range
Dim Sh As Worksheet
Set Sh = Worksheets("Feuil1")
With Sh
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Range("C1") = ""
.Range("C2").FormulaLocal = "=GAUCHE(A2;1)=""5"""
With Rg
.AdvancedFilter xlFilterInPlace, Sh.Range("C1:C2")
End With
End With
Sh.Range("C1:C2").Clear
End Sub
'-------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de news:
Bonjour
J'ai une colonne de chiffre avec dans chaque cellule des chiffres ex : A3 123 +563 + 35
je souhaite filtrer uniquement les chiffres commençant par 5 par exemple, et
là, je ne connais pas la syntaxe, j'utilise un textbox afin de choisir le
chiffre.
Dans l'exemple ci-dessous, cela ne fonctionne pas, et sélectionne uniquement
le premier chiffre.
Je vous remercie
Didier

Mavar = Textbox1.value
Range("A3:A300").Select

Selection.AutoFilter Field:=1, Criteria1:=Mavar & "*"
Avatar
Didier Novarin
Bonsoir Denis et merci beaucoup
Didier

"michdenis" a écrit dans le message de news:
%23HK%
Bonjour Didier,

Essaie ceci en adaptant le nom de la feuille
et la colonne où tu veux filtrer tes données.

Un exemple avec le filtre élaboré :

Plage de crtitère : C1:C2
C1 = Vide
C2 =GAUCHE(A2;1)="5"

'-------------------------------------
Sub Test()

Dim Rg As Range
Dim Sh As Worksheet
Set Sh = Worksheets("Feuil1")
With Sh
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Range("C1") = ""
.Range("C2").FormulaLocal = "=GAUCHE(A2;1)=""5"""
With Rg
.AdvancedFilter xlFilterInPlace, Sh.Range("C1:C2")
End With
End With
Sh.Range("C1:C2").Clear
End Sub
'-------------------------------------


Salutations!



"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai une colonne de chiffre avec dans chaque cellule des chiffres ex : A3
123 +563 + 35
je souhaite filtrer uniquement les chiffres commençant par 5 par exemple,

et
là, je ne connais pas la syntaxe, j'utilise un textbox afin de choisir le
chiffre.
Dans l'exemple ci-dessous, cela ne fonctionne pas, et sélectionne
uniquement
le premier chiffre.
Je vous remercie
Didier

Mavar = Textbox1.value
Range("A3:A300").Select

Selection.AutoFilter Field:=1, Criteria1:=Mavar & "*"