Concatener si

[boyz]

Bonjour,

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).

Merci à vous.

 

[gosselien]

Re : Concatener si

Bonjour,

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

 

[Paf]

Re : Concatener si

Bonjour,

une solution possible, à tester

 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

A+