Discussion :

[dabz06]

Bonjour à tous,

Je suis régulièrement les actualités sur le forum, mais c'est mon premier message pour obtenir des conseils

Je souhaite filtrer une colonne composée uniquement de nombres. Le problème est que mon code fonctionne seulement lorsque les données sont précédées d'un "ALT+ENTER", mais pas dans le cas contraire.

Sauriez-vous alors d'où ce problème peut intervenir ? De ma variable "recherche" en string (je l'ai utilisée pour filtrer d'autres colonnes qui n'ont pas forcément que des nombres) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub toto()
 
Dim nblignes As Integer
Dim recherche As String
 
nblignes = ThisWorkbook.Sheets("test dvp dabz").Range("A2").End(xlDown).Row  'compte le nombre de lignes dans la colonne A
 
recherche = Sheets("test dvp dabz").Cells(1, 4).Value 'l'utilisateur rentre la donnée recherchée, celle ci placée dans une variable string
 
ThisWorkbook.ActiveSheet.Range("A1:A" + CStr(nblignes) + "").Select
ActiveSheet.Range("$A$1:$A$" + CStr(nblignes) + "").AutoFilter Field:=1, Criteria1:="*" & recherche & "*", Operator:=xlAnd
 
'Filtre les données colonne A en fonction de la recherche de l'utilisateur
 
End Sub

J'ai un fichier exemple disponible, je ne suis pas certain d'avoir la permission de le poster directement. N'hésitez pas à me demander de le transmettre si nécessaire.

Merci d'avance,

daBz06

[geogeo70]

Bonjour,

En essayant votre code j'ai pensé que vous recherchez non pas un nombre mais une suite de chiffres, me rappelant mes pbs avec la confusion chiffre et nombre!

Voilà pourquoi le code ne fonctionne que sur chaîne de chiffres, sinon il faut mettre un nombre comme critère de sélection, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub toto()
 
Dim nblignes As Integer
Dim recherche As String
 
nblignes = ThisWorkbook.Sheets("test dvp dabz").Range("A2").End(xlDown).Row  'compte le nombre de lignes dans la colonne A
 
recherche = Sheets("test dvp dabz").Cells(1, 4).Value 'l'utilisateur rentre la donnée recherchée, celle ci placée dans une variable string
 
ThisWorkbook.ActiveSheet.Range("A1:A" + CStr(nblignes)).Select
ActiveSheet.Range("$A$1:$A$" + CStr(nblignes)).AutoFilter Field:=1, Criteria1:=recherche, Operator:=xlAnd
 
'Filtre les données colonne A en fonction de la recherche de l'utilisateur
 
End Sub

Ceci fonctionne avec un nombre en D1, mais cela ne sélectionnera que le nombre en D1 et ce n'est pas ce que vous voulez je pense.

Pour sélectionner par chiffres, il faudrait créer un critère en fonction de la position des chiffres (... c*100+d*10+e !!!) je vais essayer

cordialement

Geogeo70

[Invité]

Bonjour,

• Faites comme beaucoup d'entre nous quand nous ne savons pas.
• Créez une macro et déroulez toute la séquence pour filtrer un nombre. Arrêtez la macro et regardez quelle syntaxe elle vous donne.
• Vous aurez ensuite à simplifier et à modifier le code pour qu'elle s'adapte à tous les contextes.

Cordialement.

[dabz06]

Tout d'abord, merci à vous pour vos réponses.

Bonjour,

• Faites comme beaucoup d'entre nous quand nous ne savons pas.
• Créez une macro et déroulez toute la séquence pour filtrer un nombre. Arrêtez la macro et regardez quelle syntaxe elle vous donne.
• Vous aurez ensuite à simplifier et à modifier le code pour qu'elle s'adapte à tous les contextes.

Cordialement.

Effectivement, la macro proposée provient de l'enregistreur et a été réadaptée selon mes besoins. Cependant, je n'arrive pas à le faire correctement puisqu'il apparaît un problème que je n'arrive pas à surmonter. C'est pourquoi j'espère pouvoir trouver ici des éléments qui pourraient parvenir à résoudre ce soucis.

En essayant votre code j'ai pensé que vous recherchez non pas un nombre mais une suite de chiffres, me rappelant mes pbs avec la confusion chiffre et nombre!

Je pense aussi que cela pourrait interférer... Je vais essayer de voir cela aussi de mon côté C'est bien seule la valeur située en D1 qui doit être comparée à la liste des éléments dans la colonne A.

Cordialement,

A bientôt,

daBz06

[Invité]

Sans faire quelque chose de sophistiqué, faites une simple macro en sélectionnant une valeur directement avec le filtre et regardez ce que vous obtenez.

[dabz06]

Sans faire quelque chose de sophistiqué, faites une simple macro en sélectionnant une valeur directement avec le filtre et regardez ce que vous obtenez.

Ce que j'obtiens a été précedemment décris dans mon premier message.

Le problème est que mon code fonctionne seulement lorsque les données sont précédées d'un "ALT+ENTER", mais pas dans le cas contraire.

Pour être plus clair, si ma colonne est composée des chiffres "10;11;12", et que j'entre "10" dans D1, le filtre devrait faire apparaître seulement "10", mais ne le fais pas.

En revanche, ce que je constate, c'est que si dans cette colonne je met un retour à la ligne dans la cellule "ALT+ENTER 10", alors la macro fonctionne.

Cela fonctionne mais ne me satisfait pas car j'aimerais pouvoir rentrer mes données dans cette colonne sans devoir utiliser cette solution alternative contraignante.

J'espère que j'ai pu vous éclairer sur ma situation.

Merci bien,

daBz06

[Invité]

Pièce jointe 232598