Remplir plusieurs textbox via le choix d'une combobox stocké dans une feuille

[Energy_Teek]

Bonjour,

J'ai un petit soucis, je n'arrive pas à remplir mes 3 textbox après le choix d'une valeur d'un combobox.
En gros je dois faire une application de maintenance, jusque la tous va bien j'ai tout fais juqu'à la page saisir une panne, les codes des pannes sont déjà rempli dans une feuille de calcul Excel avec ce qui va avec (le nom de l'erreur, le niveau de tolérance, le message). donc ma combobox fonctionne bien j'ai réussi a mettre mes valeurs de ma feuille de calcul dans cette combobox mais quand je choisi le code, je n'arrive pas a faire afficher tout le reste dans mes textbox…
Si quelqu'un sait et pourrais m'aider, se serait pas de refus.
Toutes les images sont en pièce joint.
La Combobox s'appelle Combobox_Code
Les textbox s'appellent TextBox_Nom, TextBox_Niveau et TextBox_Message
Cordialement

 

[Robert]

Bonsoir le tech, bonsoir le forum,

Les captures d'écran c'est bien, le fichier c'est mieux ! Tu as un problème Excel et pas otocohp il me semble...

 

[Energy_Teek]

Bonsoir le tech, bonsoir le forum,

Les captures d'écran c'est bien, le fichier c'est mieux ! Tu as un problème Excel et pas otocohp il me semble...

Bonsoir Robert,
Voici le Fichier. Je ne comprends pas otocohp ...

 

[Chris24]

Bonsoir

Un bout de code pour alimenter les TextBox(s)

Private Sub ComboBox_Code_Change()
Dim F As Worksheet
Set F = Sheets("Erreurs")
TextBox_Niveau = F.Range("C" & ComboBox_Code.ListIndex + 3)
TextBox_Nom = F.Range("B" & ComboBox_Code.ListIndex + 3)
TextBox_Message = F.Range("D" & ComboBox_Code.ListIndex + 3)
End Sub

Cdt

 

[Staple1600]

Bonsoir le fil

Pour info
Comme Robert est déconnecté (et que je parle le Robert )
otocohp= Photoshop

 

[Robert]

Re,

Je pense que Chris t'as donné la réponse...
Staple, en plus de parler couramment le "moi", corrige mes fautes de dyslexie. Je voulais parler de otochop évidemment bien dur...

 

[Staple1600]

Re, Bonsoir Robert

C'est vrai que c'est bien dur, otochop
(Ce lien n'existe plus)

 

[Energy_Teek]

Bonjour,
lorsque j'execute le code il me met une erreur 424, manque objet .... or je ne sais pas de quoi il s'agit ....
cordialement

 

[Chris24]

Bonjour

Il n'y a pas de ComboBox_Niveau dans ce formulaire

Cdt

 

[Energy_Teek]

Merci cela fonctionne !
Cordialement

 

[NAIM]

Bonsoir
J 'ai un check box et un combobox l'idée dans mon userform si je active mon check box et je sélectionne un des valeurs de mon combobox un résultat qui s'affiche dans mon text box et si les champs sont vide affiche message erreur "veuillez remplir les champs"
merci

 

[Staple1600]

Bonsoir le fil

NAIM
Petit conseil en guise de bienvenue sur le forum
L'usage c'est de créer sa propre discussion pour poser sa question.
Pas de "squatter" un fil initié par un autre membre du forum

 

[NAIM]

Bonjour
Message reçu.
Bonne journée.

 

[Robert]

Bonjour Naim, bonjour le forum,

N'ayant pas vu ton fil malgré la juste remarque de l'Agrafe, je te réponds ici. La case à cocher est superflue, tu peux avoir un affichage direct dans la TextBox1 avec le code ci-dessous :

Private Sub ComboBox1_Change()
'la propriété [ListIndex] dune ComboBox renvoie la position de l'élément sélectionné. Sachant que cette propriété est égale à 0 pour le premier élément,
'pour obtenir le numéro de ligne sur le tableau qui commence à la ligne 2 on rajoute + 2...
Me.TextBox1.Value = Format(Sheets("Feuil1").Cells(Me.ComboBox1.ListIndex + 2, "B").Value, "#,##0.00 €")
End Sub

 

[NAIM]

Bonjour Robert,
Je n'arrive pas à le faire fonctionne le code.
Merci pour votre aide.