je souhaiterais concaténer les valeurs "ligne 1" qui sont associées à un "X" (ligne 2) dans le label1 lors de l'initialisation de mon formulaire. Si quelqu'un à la solution je suis preneur.
J'ai une condition à respecter le texte concatené doit l'être sur une seule ligne et non sous la forme d'une liste (sur plusieurs lignes).
pas spécialiste des UF mais ...
ceci peut être :
Private Sub UserForm_Initialize()
Set f = Sheets("Feuil1")
For i = 1 To 8 ' colonne A à H
plus = IIf(Cells(2, i).Value = "X", plus & Cells(1, i).Value & "", plus)
Me.TextBox1 = plus
Next
End Sub
Dim MaCel As Range
Set MaCel = Worksheets("Feuil1").Cells(2, 1)
For i = 0 To 7
If MaCel.Offset(0, i) = "X" Then Label1.Caption = Label1.Caption & " " & MaCel.Offset(-1, i)
Next