Extraire données d'un cellule

Bonsoir à tous,

Vous seriez bien aimables de vous pencher sur mon problème.

Merci d'avance

Bonjour et

Function coder(cel As Range)
coder = "": texte = cel.Value: prov = "": nb = 0
    For i = 1 To Len(texte)
        If prov = Mid(texte, i, 1) Then
            nb = nb + 1
        Else
            If prov <> "" Then coder = coder & nb & prov
            prov = Mid(texte, i, 1): nb = 1
        End If
    Next
    coder = coder & nb & prov
End Function

Salut Steelson,

c'est encouragent de voir de nouveau visage, quel ange

nous attentons également du nouveau dans la famille pour juin, je partagerai.

merci!

Bonjour Isabelle,

J'ai passé l'âge ... sauf d'être grand-père !

C'est juste que je trouvais ce visage rigolo, et parfois adapté aux questions posées.

Bravo cela marche très bien

Merci à tous et en particulier à Steelson