Une fonction autre que celle là?

[raziel02]

voila j'aimerais savoir si il existait une fonction ressemblant à la fonction "concatener"? car je dois réussir à regrouper différentes cellules dans une cellule avec concarener çà à marcher mais elle est limité à 30 argument et moi j'en ai 45.

 

[kiki29]

Re : Une fonction autre que celle là?

Salut tu modifies comme suit celle proposée plus haut
Le séparateur est laissé au choix de l'utilisateur,ainsi que son nb de caractères :
"," "_____" " " etc ...

Option Explicit

Public Function Concat(Plage As Range, Optional sSep As String) As String
Dim c As Range
Dim sTmp As String
    'Application.Volatile
    sTmp = ""
    For Each c In Plage
       [b] If c <> "" Then sTmp = sTmp & sSep & c[/b]
    Next c
    
    Select Case Len(sSep)
        Case 0
            Concat = sTmp
        Case Else
            Concat = Mid(sTmp, Len(sSep) + 1, Len(sTmp) - Len(sSep))
    End Select
End Function

 

[Lii]

Re : Une fonction autre que celle là?

Bonjour,

Autre procédure pour la virgule.
Pour le temps, il suffit de copier la cellule du dessus.

 

[raziel02]

Re : Une fonction autre que celle là?

merci beaucoup.