VBA [résolu]: corriger fonct° Concat (1cell. récupère somme cells zone ref.) sf cells ""

[zebanx]

Bonjour,

La fonction concat(), très pratique, permet de bien enregistrer les données en concaténation de la colonne F mais elle prend toutes les données en considération, y compris les données à vide :

Pourriez-vous s'il vous plait corriger son code :
1. soit pour sauter les données vides de la zone sélectionner ?
2. soit pour ne prendre en compte que les cellules visibles (ce qui aurait ma préférence) ?

Merci pour votre aide, cdlt
thierry

ps : recherche infructueuse sur le forum malgré de nbx liens existants

 

[vgendron]

Hello

avec ceci peut etre

Function Concat(plage As Range) As String

Application.Volatile

For Each ele In plage
    If ele <> "" Then
        Concat = Concat & ";" & ele
    End If
Next ele
Concat = Right(Concat, Len(Concat) - 1)
End Function

 

[zebanx]

Bonsoir VGENDRON,

Cela correspond bien à mon attente sur les cellules vides qui ne sont pas reprises dans la cellule donc super !

Je vous remercie pour ce code. Bonne soirée.

thierry