XL 2013 besoin d'aide

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eldinal

XLDnaute Nouveau
j'aimerai afficher dans des textbox(userforme nommé modificationarticle) , la liste de données selectionnée dans une listbox(userforme nommé stocktotal)


voici le code d'affichage que j'ai mis qui ne marche pas

Private Sub ListBox1_Click()
ThisWorkbook.Worksheets("Stock total").Activate
Modificationarticle.TextBox1.Value = ThisWorkbook.Worksheets("Temp21").Range("A" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox2.Value = ThisWorkbook.Worksheets("Temp21").Range("B" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox3.Value = ThisWorkbook.Worksheets("Temp21").Range("C" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox4.Value = ThisWorkbook.Worksheets("Temp21").Range("D" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox5.Value = ThisWorkbook.Worksheets("Temp21").Range("E" & ListBox1.ListIndex + 1).Value
Modificationarticle.Show
End Sub
 

Pièces jointes

Bonjour @eldinal

😡😡😡

Merci de relire la charte

Tout est à revoir §1.3, 2.2, 2.3

Et comme Sylvain te l'as déjà dit dans la précédente demande

1699877445567.png


Merci de rectifier
 
j'aimerai afficher dans des textbox(userforme nommé modificationarticle) , la liste de données selectionnée dans une listbox(userforme nommé stocktotal)


voici le code d'affichage que j'ai mis qui ne marche pas



VB:
Private Sub ListBox1_Click()

ThisWorkbook.Worksheets("Stock total").Activate

Modificationarticle.TextBox1.Value = ThisWorkbook.Worksheets("Temp21").Range("A" & ListBox1.ListIndex + 1).Value

Modificationarticle.TextBox2.Value = ThisWorkbook.Worksheets("Temp21").Range("B" & ListBox1.ListIndex + 1).Value

Modificationarticle.TextBox3.Value = ThisWorkbook.Worksheets("Temp21").Range("C" & ListBox1.ListIndex + 1).Value

Modificationarticle.TextBox4.Value = ThisWorkbook.Worksheets("Temp21").Range("D" & ListBox1.ListIndex + 1).Value

Modificationarticle.TextBox5.Value = ThisWorkbook.Worksheets("Temp21").Range("E" & ListBox1.ListIndex + 1).Value

Modificationarticle.Show

End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
1 K
Retour