Discussion :

[fredym]

Bonjour,
Je n’arrive pas à résoudre le problème suivant :
Dans une textbox j’encode des caractères qui servent à la recherche sélective dans une colonne d’un tableau.
Le résultat de la recherche est listée dans une listbox.

Chaque nouveau caractère dans la textbox rafraichi la listbox.
La recherche ne trouve pas ou n’affiche pas lorsque la valeur dans la colonne est numérique.

J’ai bien formaté les cellules de la colonne au format ‘texte’ mais toujours échec !
Sauf si je place une apostrophe devant les chiffres alors le chiffre est bien reconnu comme texte.

Ce n’est pas cette dernière solution qui me convient, mais que dois-je changer dans mon code ci-après ?

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
17
18
Private Sub TextBox1_Change()   ' liste sélective dans l’onglet temp
    With Sheets("temp")
        .Cells.Clear
        .[p1] = "Colonne 1"     ' titre de la colonne dans laquelle la recherche s’effectue
        .[p2] = Me.TextBox1.Value & "*"       'critère(s) de recherche
    End With
 
    Sheets("feuille_Donnees").[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
                criteriarange:=Sheets("temp").[p1:p2], _
                copytorange:=Sheets("temp").[A1], Unique:=False    '  copie dans la feuille temp la liste filtrée par P1 et P2 (doublons inclus)
 
    If Sheets("temp").[A1].CurrentRegion.Rows.Count > 1 Then
        Set plagefeuil2 =  sheets("temp").[A1].CurrentRegion.Offset(1).Resize(Sheets("temp").[A1].CurrentRegion.Rows.Count - 1)
        Me.ListBox1.RowSource = plagefeuil2.Address(external:=True)    ' liste le résultat dans la listbox
   Else
   End If
   Set plagefeuil2 = Nothing
End Sub

merci

[78chris]

Bonjour

Si la colonne contient des nombre c'est le critère de recherche qu'il convertir en numérique pas l'inverse

Me.TextBox1.Value*1 peut le faire mais il est souvent nécessaire de contrôler que le valeur saisie ne contient que des caractères de la liste 0 à 9

[fredym]

Bonjour,
Me.TextBox1.Value*1 provoque une erreur d'incompatibilité de type...

N'y a t'il pas une instruction qui ne tienne pas compte si c'est un caractère numérique ou un caractère alphabétique et que je pourrais intercaler dans le code ?
genre find avec la propriété xlhole ou une autre appropriée?
J'ai déjà placé l' 'option compare' au dessus de la sub mais cela ne résout pas le problème numérique!

Merci de votre attention.

[MarcelG]

Bonsoir à tous,

2 pistes

Opérateur Like

La fonction IsNumeric
Cette dernière étant booléenne (retourne True ou False)

[fredym]

Bjr,

Je vais exploiter la fonction isNumeric
Merci du tuyau.
Fredy