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

Energy_Teek

XLDnaute Nouveau
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
Feuille de stockage.PNG UserForm Saisir panne.PNG
 

Robert

XLDnaute Barbatruc
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...
 

Chris24

XLDnaute Impliqué
Supporter XLD
Bonsoir

Un bout de code pour alimenter les TextBox(s)

VB:
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
 

Robert

XLDnaute Barbatruc
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...
 

Energy_Teek

XLDnaute Nouveau
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
 

NAIM

XLDnaute Nouveau
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
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
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
 

Robert

XLDnaute Barbatruc
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 :

VB:
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

XLDnaute Nouveau
Bonjour Robert,
Une petite demande supplémentaire ,j'ai un combobox et un texobox et je souhaite lorsque je sélectionne un valeur dans le combox le resultat s'affiche dans le textbox en le multipliant par le chiffre 5,5
merci.
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, Robert, Naim et tous les autres participants du fil

Bonjour
Message reçu.
Bonne journée.
NAIM
Si le message est reçu, alors...
Il est peut-être temps d'ouvrir ta propre discussion non ?
Car ton dernier message n'a plus rien à voir avec la question initiale.
(logique puisque ce n'est pas ton fil)
;)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas