Outil de recherche

Dranreb

XLDnaute Barbatruc

• 11 Octobre 2012

• #2

Re : Outil de recherche

Bonjour.
Vous auriez intérêt à remplacer votre TextBox par un ComboBox et alimenter sa propriété List avec les noms.
Une suite existante serait proposée à chaque frappe d'un caractère et vous vous dispenseriez de la recherche car sa propriété ListIndex+2 vous donnerait directement le numéro de ligne.
À +

 

Vote positif 0 Vote négatif

P

paulinesna

Guest

• 12 Octobre 2012

• #3

Re : Outil de recherche

Merci, ça me semble intéressant...!

Par contre, pourrais-tu me dire en détail comment procéder pour programmer une combobox?!
Je suis un peu un boulet de VB!! Je commence à peine et le langage VB me semble super compliqué.

Avec les éléments que j'ai envoyé, peut être que tu pourrais m'aider?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Octobre 2012

• #4

Re : Outil de recherche

Bonjour
Implante une "Zone de liste modifiable" (=ComboBox) à la place de la "Zone de texte" (=TextBox).
Utilise les listes déroulantes qui surmontent la fenêtre de code pour installer les modèles de procédures évènements :
Pour l'userform il te faut Userform_Activate ou Userform_Initialize pour affecter par exemple au ComboBox1.List = Feuil1.[A2].Resize(Feuil1.[A65536].End(XlUp).Row - 1).Value
Pour le combo il te faut ComboBox1_Change pour récupérer les infos de la ligne donnée par ComboBox1.ListIndex + 2
À +

 

Vote positif 0 Vote négatif

P

paulinesna

Guest

• 12 Octobre 2012

• #5

Re : Outil de recherche

Super, merci beaucoup!

Par contre, pour la Combobox1, le logiciel détecte une erreur, il me met :
Utilisation incorrecte de la propriété.

J'ai bien vérifié et j'ai recopier exactement ton modèle.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Octobre 2012

• #6

Re : Outil de recherche

Chez moi, pas d'erreur, après avoir mis une une "Zone de liste modifiable" nommée ComboBox1, cette procédure vite fait a fonctionné du premier coup:

VB:

Private Sub UserForm_Activate()
ComboBox1.List = Feuil1.[A2].Resize(Feuil1.[A65536].End(xlUp).Row - 1).Value
End Sub

 

Dernière édition: 12 Octobre 2012

Vote positif 0 Vote négatif

P

paulinesna

Guest

• 12 Octobre 2012

• #7

Re : Outil de recherche

Moi non plus je n'ai pas d'erreur sur cette partie, c'est après, pour :
Private Sub ComboBox1_Change()
ComboBox1.ListIndex 2
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Octobre 2012

• #8

Re : Outil de recherche

VB:

Private Sub ComboBox1_Change()
Dim Lig As Long, Prénom As String
Lig = ComboBox1.ListIndex + 2
If Lig > 1 Then
   Prénom = Feuil1.Cells(Lig, "B").Value
   MsgBox "Cette personne se prénomme " & Prénom, vbInformation, "Essais"
   End If
End Sub

 

Dernière édition: 12 Octobre 2012

Vote positif 0 Vote négatif