Bonjour à tous,
J'ai une feuille excel avec des données en ligne.
J'aimerais que pour chaque valeur donnée dans la colonne A (définie par une combobox dans mon userform), la textbox affiche une ligne de concaténation des données dans colonnes B à G avec retour à la ligne entre chaque ligne.
Mon code permet de concatener la première pour laquelle la valeur combobox1 est présent dans la colonne A alors que j'aimerais ajouter toutes les lignes pour lesquelles on a la combobox1 dans la colonne A.
S = langue.value
Dim I As Byte
With Sheets("Feuille" & S)
Liste = .Cells(Me.ComboBox1.ListIndex + 2, 2)
For K = 2 To 7
Liste = Liste & " " & .Cells(Me.ComboBox1.ListIndex + 2, K)
Next
TextBox1 = Liste
End With
Merci beaucoup d'avance pour votre aide !
J'ai une feuille excel avec des données en ligne.
J'aimerais que pour chaque valeur donnée dans la colonne A (définie par une combobox dans mon userform), la textbox affiche une ligne de concaténation des données dans colonnes B à G avec retour à la ligne entre chaque ligne.
Mon code permet de concatener la première pour laquelle la valeur combobox1 est présent dans la colonne A alors que j'aimerais ajouter toutes les lignes pour lesquelles on a la combobox1 dans la colonne A.
S = langue.value
Dim I As Byte
With Sheets("Feuille" & S)
Liste = .Cells(Me.ComboBox1.ListIndex + 2, 2)
For K = 2 To 7
Liste = Liste & " " & .Cells(Me.ComboBox1.ListIndex + 2, K)
Next
TextBox1 = Liste
End With
Merci beaucoup d'avance pour votre aide !