XL 2013 besoin d'aide

[eldinal]

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

 

[Phil69970]

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

Merci de rectifier

 

[eldinal]

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

 

[eldinal]

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

Regarde la pièce jointe 1183590

Merci de rectifier

je vous présente mes excuses

BONJOUR

 

[Phil69970]

Bonjour @eldinal

C'est bien mais il reste à lire la suite de la charte !!! et de l'appliquer ....

 

[eldinal]

Bonjour @eldinal

C'est bien mais il reste à lire la suite de la charte !!! et de l'appliquer ....

D'accord c'est compris

 

[Eric KERGRESSE]

Il me semble avoir répondu ce matin, je n'ai pas eu de retour

https://excel-downloads.com/threads...-dapres-choix-listbox.20079499/#post-20615369

 

[eldinal]

bonjour

excusez moi j'ai finalement trouvé une solution mais pas de cette manière