remplir plusieurs textbox en fonction d'un combobox

Rémy00

XLDnaute Nouveau
Bonjour à tous,
Je débute sur le sujet donc évidemment je galère un peu, mon problème est que je n'arrive pas à trouver un code qui me permettrait de pouvoir afficher dans des textbox plusieurs caractéristiques de mon produit que j'aurai sélectionné dans mon combobox pour après pouvoir modifier ces caractéristiques.
Les informations à prendre pour remplir les textbox sont toutes sur la même ligne comme vous pouvez le voir sur les images ci-joint.
J'ai commencé un code mais dans le TextBox1 il m'indique FALSE.
Voici le code :

Private Sub ChoixBox_Change()
Worksheets("Véhicule").Select
For n = 2 To Range("B65536").End(xlUp).Row
If Range("B" & n) = ChoixBox Then TextBox1 = Range("B" & n) & TextBox2 = Range("C" & n) & TextBox3 = Range("D" & n)
Next
End Sub


Merci d'avance

1027524


1027523
 
Dernière édition:

piga25

XLDnaute Barbatruc
Bonjour Remy00

N'ayant pas de fichier exemple pas facile à faire. Néanmoins avec le peu de mes connaissances en VBA, voir si cela peut correspondre.

VB:
Private Sub ComboBox1_Change()
Dim Nom as Range
    With ThisWorkbook.Sheets("Véhicule")
        For Each Nom In .Range("B2:B" & .[B65000].End(xlUp).Row)
            If CStr(Nom) = CStr(Me.ComboBox1.Value) Then
                Me.TextBox1.Value = .Cells(Nom.Row, 2)
                Me.TextBox2.Value = .Cells(Nom.Row, 3)
                Me.TextBox2.Value = .Cells(Nom.Row, 4)
             End If
        Next
    End With
End Sub
 

jleo

XLDnaute Nouveau
Bonjour,
effectivement pour les autres qui aimerais reprendre le code sans fichier c'est un peu compliqué.
C'est un peu mon cas j'ai deux combobox en cascade et j'aimerais alimenter mes texts box.
Ci joint mon fichier? LE Userform que je travaille dessus est Form_Prod.
Merci encore pour votre aide
 

Pièces jointes

  • FICHE PRODUCTION 2018-4-FORUM.xlsm
    1.8 MB · Affichages: 76

Maryz

XLDnaute Nouveau
Bonjour,

J'avoue que l'astuce m'aiderai bien aussi (plusieurs semaines que je suis bloqué sur cette seule fonction!) o_O
Je m'arrache les cheveux, j'ai beau chercher dans les forums, les tutos... J'ai toujours une erreur dans mon code...

Si quelqu'un avait la gentillesse de se pencher sur mon problème...

Merci!
 

Pièces jointes

  • Essai Formulaire.xlsm
    41 KB · Affichages: 58

ahmedhj

XLDnaute Nouveau
Bonjour , je suis débutante en vba excel
Mon problème est:
J'ai tableau qui contient des Numéro de cheque ,échéance , bénéficiaire et montant
Je veux en choisissant un bénéficiaire (dans combobox) afficher tout ses numéro des chèque , échéance et montant dans des textbox
Je dois parcourir tout le tableau
Aidez moi s"il vous plait
 

Discussions similaires

Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo