XL 2016 concaténer plusieurs lignes sous condition

[Coulibaly ben]

Bonjour,
J'ai besoin de votre aide svp.

Je cherche à concaténer dans une cellule plusieurs textes présents dans d'autres cellules, sous une condition commune. Je vous donne mon exemple en pièce jointe, merci pour votre aide. merci pour votre aide.

 

[job75]

Bonsoir Coulibaly ben, bienvenue sur XLD,

Quand il s'agit de concaténer des cellules il faut généralement du VBA.

Utiliser ici cette fonction VBA, à placer impérativement dans un module standard :

Function Concat(c As Range, colonne As Range)
If c = "" Then Concat = "": Exit Function
Concat = colonne(c.Row)
While c(2) = "" And colonne(c.Row + 1) <> ""
    Set c = c(2)
    Concat = Concat & " " & colonne(c.Row)
Wend
End Function

Elle est utilisée dans la feuille de calcul du fichier joint avec cette formule en D2, à tirer vers le bas :

=Concat(B2;C:C)

A+

 

[Coulibaly ben]

Bonsoir Coulibaly ben, bienvenue sur XLD,

Quand il s'agit de concaténer des cellules il faut généralement du VBA.

Utiliser ici cette fonction VBA, à placer impérativement dans un module standard :

Function Concat(c As Range, colonne As Range)
If c = "" Then Concat = "": Exit Function
Concat = colonne(c.Row)
While c(2) = "" And colonne(c.Row + 1) <> ""
    Set c = c(2)
    Concat = Concat & " " & colonne(c.Row)
Wend
End Function

Elle est utilisée dans la feuille de calcul du fichier joint avec cette formule en D2, à tirer vers le bas :

=Concat(B2;C:C)

A+

merci énormément.