RechercheV dans userform

[kinkalero]

Bonjour,

actuellement dans mon userform j'ai plusieurs textbox et une combobox et je souhaiterais savoir si il existe un code pour VBA Excel pour que, quand je renseigne mon combobox, mes textbox se remplissent automatiquement d'après des listes enregistrées sur une feuille excel.

Merci

 

[Hervé]

Re : RechercheV dans userform

bonjour 🙂

une possibilité à travers la pièce jointe.

salut

 

[kinkalero]

Re : RechercheV dans userform

Merci beaucoup
je vais l'adapter a mon systeme de suite

 

[kinkalero]

Re : RechercheV dans userform

Dans mon aplication, les listes sont sur une autre feuille et la formule ne marche pas
j'ai essayer la chose suivante:

Private Sub ComboBox1_Change()
Dim i As Byte
Dim ligne As Integer
For i = 1 To 2
Controls("textbox" & i) = ""
Next i
ligne = Sheets("list") & Columns("D").Find(ComboBox1).Row
For i = 1 To 2
Controls("textbox" & i) = Cells(ligne, i + 1)
Next i
End Sub

Mais sa ne fonctionne pas
merci

 

[kinkalero]

Re : RechercheV dans userform

Qlq'un aurait une solution? SVP
je n'arrive pas a créer un code pour qu'il puisse reconnaitre la feuille et la colonne considérée

ligne = Sheets("list") & Columns("D").Find(ComboBox1).Row

apparement ya une erreur

J'ai essayer celle là aussi
ligne = Sheets("list!annuaire").Find(ComboBox1).Row
annuaire est la colonne renomée de ma liste du combobox
Mais tjr rien

Merci d'avance

 

[Hervé]

Re : RechercheV dans userform

re 🙂

si ta liste se trouve sur une autre feuille, il te faut précisez laquelle.

en partant de l'exemple que je t'ai donné, ca pourrait ressembler à ceci ;

'on recherche la ligne correspondant au choix de la combobox
With Sheets("list")
    ligne = Sheets("list").Range("annuaire").Find(ComboBox1).Row

    'on remplit les textbox
    For i = 1 To 4
        Controls("textbox" & i) = .Cells(ligne, i + 1)
    Next i
End With

si tu rencontres de nouveau souci, fournis nous un fichier.

au plaisir de te lire

salut

 

[kinkalero]

Re : RechercheV dans userform

bonjour hervé,

j'ai essayé ta solution mais sa ne veut tjr pas marché
Je t'envoi donc un fichier simplifier de mon projet.
la formule en question est en relation avec le userform "form"
Dès le début il faut cliquer sur créer une demande
et les champs concernés sont ceux du demandeur, N° de poste et service

Merci d'avance
Codialement
Benjamin

 

[Hervé]

Re : RechercheV dans userform

bonjour


Comme tu as renommés tes controles, tu ne peux plus utiliser de boucle pour alimenter ceux-ci.

le plus simple pour toi est donc de les initialiser individuellement :

Private Sub ComboBox1_Click()
Dim ligne As Integer

'on recherche la ligne correspondant au choix de la combobox
With Sheets("list")
ligne = .Range("annuaire").Find(ComboBox1).Row

'on remplit les textbox
TextBox1 = .Cells(ligne, "E")
TextBox2 = .Cells(ligne, "F")
'etc....
End With

End Sub

personnellement je ne renomme jamais les controles, ceci permet de faire des boucles et allège considérablement les codes, surtout pour un userform important comme le tiens.

evites l'utilisation de l'evenement change d'un combobox, préfère lui click, plus stable

salut