Discussion :

[pascal1967]

Bonjour à tous,
J'ai un comboxBox dans un formulaire qui me permet si je tape le nom d'un commerce que les informations de ce commerce s'affiche dans les textBox du formulaire.
le souci si le nom que je tape ne figure pas dans la BD j'ai un message de bogage et je doit fermer le formulaire. j'aimerai une solution qui me dise simplement que le commerce n'est pas dans la BD
code

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
19
20
Private Sub ComboBox1_Change()
 
    Dim Lign As Long
    Dim I As Integer
 
    If ComboBox1 = "" Then Exit Sub
 
    With Sheets("commerce")
 
        Lign = .Columns(1).Cells.Find(ComboBox1).Row
 
        For I = 1 To 30
 
        Me.Controls("TextBox" & I).Text = .Cells(Lign, I).Value
 
        Next I
 
    End With
 
End Sub

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Si tu utilises un contrôle ComboBox, tu as nativement sur ce contrôle une valeur qui apparaît de plus en plus précise au fur et à mesure de la frappe.
Il n'y a pas besoin d'utiliser l'événement Change, ni la méthode Find. Tu peux aussi sélectionner directement dans la liste la valeur cherchée

[pascal1967]

Merci pour la réponse,
J'ai un doute, si je ne me sert pas de l'événement Find, je ne pourrai pas récupérer les informations dans ma base de données pour les afficher dans les différents TextBox

[Philippe Tulliez]

Bonjour,
A partir du moment où le contenu de ta Combobox est chargée et que tu sélectionnes un élément de cette liste, la propriété ListIndex te renvoie une valeur correspondant à la position dans la liste. Sauf si la liste ne correspond pas à une liste de données complète, cette position correspond en général à la position relative en ligne de la donnée sélectionnée sur une plage de cellule.
Il suffit donc de lire les colonnes de cette ligne correspondant à la sélection.

[pascal1967]

Ok j'ai compris.
merci pour les explications
Bonne journée