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.
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 :
Code:
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 :
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 :
Code:
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 :