Discussion :

[Jane92]

Bonjour,
Je tourne en rond... J'ai un formulaire sur lequel, en sélectionnant une valeur de ma ComboBox "CbAckcustpo" je souhaite voir apparaître les données correspondantes situées sur 2 feuilles différentes "Commande" (plage 1) et "Lignes de commande" (plage 2).

La macro suivante affiche bien les données de la plage 1 en fonction de la valeur de ma combobox "CbAckcustpo" mais la suite ne fonctionne pas lorsque je souhaite afficher les données de la plage 2 en fonction d'une concaténation de ma ComboBox "CbAckcustpo" et du TextBox" TbAcklinenum1".

Auriez-vous une solution ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CbAckcustpo_Change()
 
'Remplir automatiquement dans le formulaire "Acknowledgement" toutes les données liées à CbAckcustpo à partir de la feuille Commande
    Dim plage1 As Range
    Dim plage2 As Range
    Set plage1 = Sheets("Commande").Range("A3:AA500")
 
    TbAckcustomer = plage1(1 + CbAckcustpo.ListIndex, 2)
    TbAckalloy = plage1(1 + CbAckcustpo.ListIndex, 14)
    TbAckpriceusd = plage1(1 + CbAckcustpo.ListIndex, 16)
    TbAckpriceeur = plage1(1 + CbAckcustpo.ListIndex, 17)
    TbAckcmvirgin = plage1(1 + CbAckcustpo.ListIndex, 18)
    TbAckrevert = plage1(1 + CbAckcustpo.ListIndex, 19)
    TbAckcmselect = plage1(1 + CbAckcustpo.ListIndex, 20)
    TbAckdiameter = plage1(1 + CbAckcustpo.ListIndex, 21)
    TbAcklength = plage1(1 + CbAckcustpo.ListIndex, 22)
    TbAcksurfinish = plage1(1 + CbAckcustpo.ListIndex, 23)
 
 
'***Problème pour remplir automatiquement dans le formulaire Acknowlesdgement les données en fonction de valeurs concaténées d'un combobox et d'un textbox depuis la feuille Lignes de commande
 
    Set plage2 = Sheets("Lignes de commande").Range("C3:E500")
    TbAcklineqty1 = plage2(1 + (CbAckcustpo.Value & "-" & Me.TbAcklinenum1), 2)
 
 
    End Sub

Un grand merci pour votre aide !

Jane92

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1 + (CbAckcustpo.Value & "-" & Me.TbAcklinenum1)

Je ne comprends pas ce que tu veux faire là. Tu mélanges une opération arithmétique avec une concaténation de chaîne de caractère.

[Jane92]

Désolée Menhir, je débute toute seule, mais je vais essayer de mieux m'expliquer :

J'ai un formulaire qui comporte une combobox qui contient des numéros de commande. Les données relatives à ces commandes se trouvent sur la plage 1 dans ma feuille "Commande". Les données relatives aux lignes de commande se trouvent sur la plage 2 de ma feuille "Lignes de commande".

Lorsque je choisi un numéro de commande, les données relatives aux commandes apparaissent bien.

Le problème c'est que je n'arrive pas à afficher les données suivantes, celles relatives aux lignes de commande parce que la 1ère colonne de ma plage 2 est une concaténation du numéro de commande et de la ligne de commande.
Je souhaite donc concaténer la valeur de ma combobox qui contient les numéros de commande et la textbox qui contient le numéro de ligne afin de retrouver les données correspondant à chaque ligne de commande dans les textbox suivants dans mon formulaire.

J'espère que c'est plus clair...

Merci pour ton aide

Jane92