Recherche avec U Bound Tablo (numeric)

[Provence Vintage]

Bonjour le Forum,

J'utilise un code de recherche de ce type pour afficher une ListBox,
mais rien ne se passe,

si l'un de vous veux bien jeter un coup d'oeil...

Merci beaucoup

Bonne soirée

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[jp14]

Re : Recherche avec U Bound Tablo (numeric)

Bonsoir

Ci dessous un code pour voir comment se charge le tablo

Sub ListeLbx7(numeric As String)
Dim cel As Range, tablo[COLOR="Red"]()[/COLOR], i As Long, X As Long, tablo2() As Variant
ListBox7.Clear
With Sheets("Visites")
[COLOR="Red"]For Each cel In .Range("NumeroVisite")
    Call MsgBox("Valeur" & cel _
                & vbCrLf & "cellule" & cel.adress _
                , vbInformation, Application.Name)
    
Next cel[/COLOR]
tablo = .Range("NumeroVisite").Value
.........................................

 

[Provence Vintage]

Re : Recherche avec U Bound Tablo (numeric)

Bonjour JP, le forum,

ça coince ici:

# Call MsgBox("Valeur" & cel _
& vbCrLf & "cellule" & cel.adress _
, vbInformation, Application.Name)# ?

Merci!

 

[Provence Vintage]

Re : Recherche avec U Bound Tablo (numeric)

Hello le forum,

jp, le fil,

quelqu'un à t'il une idée, je n'ai toujours pas trouvé la solution avec ma recherche d'un enregistrement numéric!
merci
bonne fin de journée à toutes et tous

 

[pierrejean]

Re : Recherche avec U Bound Tablo (numeric)

bonjour a tous

A tester

Private Sub TextBox24_Change()
If Len(TextBox24.Text) > 0 Then ListeLbx7 (UCase(TextBox24)) Else: ListBox7.Visible = False
[COLOR=red]'ListBox7.Visible = False
[/COLOR]TextBox24.Text = UCase(TextBox24.Text)
End Sub

avec un nom NumeroVisite correctement defini

 

[Provence Vintage]

Re : Recherche avec U Bound Tablo (numeric)

Merci pierrejean,

tu as raison,
comme celà ça fonctionne

bonne fin de journée