Re-bonjour
Je n'ai malheureusement pas réussi à utiliser Application.Transpose....ça me met une erreur.
(Peut-être dû à Excel 2003 ?)
J'ai tout de même réussi à concaténer une listbox comme je le désirais, par contre, la variable ne prend pas la concaténation en compte, alors que si je l'intercepte dans une msgbox, ça marque bien ce que je désire. Mystère !!!
("transfert", "Divers A trier-1", "Recherche", "M850", "Booko", "Kolbus", "Puma", "Clauberg 104", "WPM", "M600")
Ci-dessous, ce que j'ai fait :
P { margin-bottom: 0.21cm; direction: ltr; color: rgb(0, 0, 0); widows: 2; orphans: 2; }P.western { font-family: "Times New Roman",serif; font-size: 12pt; }P.cjk { font-family: "Times New Roman",serif; font-size: 12pt; }P.ctl { font-family: "Times New Roman",serif; font-size: 10pt; }
‘Copie du contenu de la listbox en ligne dans la feuille « transfert » en ligne B
Private Sub CommandButton15_Click()
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("transfert")
.Range("B2").EntireRow.Clear
For x = 1 To Me.L1.ListCount
.Cells(2, x) = Me.L1.List(x - 1, 0)
Next x
End With
'Feuil1.Activate
Sheets("transfert").Activate
End Sub
‘Concaténation
Private Sub TextBox1_Change()
Sheets("transfert").Range("A4") = "(" & Chr(34) & [A2] & Chr(34) & ", " & Chr(34) & [B2] & Chr(34) & ", " & Chr(34) & [C2] & Chr(34) & ", " & Chr(34) & [D2] & Chr(34) & ", " & Chr(34) & [E2] & Chr(34) & ", " & Chr(34) & [F2] & Chr(34) & ", " & Chr(34) & [G2] & Chr(34) & ", " & Chr(34) & [H2] & Chr(34) & ", " & Chr(34) & [I2] & Chr(34) & ", " & Chr(34) & [J2] & Chr(34) & ")"
End sub
Résultat concaténation:
("transfert", "Divers A trier-1", "Recherche", "M850", "Booko", "Kolbus", "Puma", "Clauberg 104", "WPM", "M600")
Resultat désiré :
excl4 = array ("transfert", "Divers A trier-1", "Recherche", "M850", "Booko", "Kolbus", "Puma", "Clauberg 104", "WPM", "M600")
Pour l'instant: pas de message d'erreur, mais variable ignorée.
La nuit portant conseil, parait-il
Bonne nuit
A suivre....