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

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Février 2020

• #2

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

 

Vote positif 0 Vote négatif

E

Energy_Teek

XLDnaute Nouveau

• 14 Février 2020

• #3

Robert à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• DM.xlsm

  62 KB · Affichages: 13

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 14 Février 2020

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2020

• #5

Bonsoir le fil

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Février 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2020

• #7

Re, Bonsoir Robert

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

 

Vote positif 0 Vote négatif

E

Energy_Teek

XLDnaute Nouveau

• 15 Février 2020

• #8

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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 15 Février 2020

• #9

Bonjour

Il n'y a pas de ComboBox_Niveau dans ce formulaire

Cdt

 

Vote positif 0 Vote négatif

E

Energy_Teek

XLDnaute Nouveau

• 15 Février 2020

• #10

Merci cela fonctionne !
Cordialement

 

Vote positif 0 Vote négatif

N

NAIM

XLDnaute Nouveau

• 15 Février 2020

• #11

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

 

Pièces jointes

• CONDITION SELON.xlsm

  19.4 KB · Affichages: 6

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2020

• #12

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

 

Vote positif 0 Vote négatif

N

NAIM

XLDnaute Nouveau

• 17 Février 2020

• #13

Bonjour
Message reçu.
Bonne journée.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Février 2020

• #14

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

 

Vote positif 0 Vote négatif

N

NAIM

XLDnaute Nouveau

• 17 Février 2020

• #15

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

 

Pièces jointes

• CONDITION SELON.xlsm

  19.4 KB · Affichages: 9

Vote positif 0 Vote négatif