Modifier formule en VBA

Bonjour,

Est-il possible de mettre cette formule en VBA:

=SIERREUR(DROITE(E5;NBCAR(E5)-19);"")

Je vous remercie

Max

Bonjour,

Fichier plus le contexte svp. Pour comprendre ce que tu veux faire c'est mieux ;D

Bonjour,

quelque chose du type (à adapter)

if len(E5) < 19 then msgbox "ton message d'erreur"

Bonjour vince, MPETIT,

Je joint un fichier exemple

Merci

Max

Voilà

Sub test()
    For Each c In Range("J8:J39")
        If c.Offset(0, -1) <> "" Then
            valeur = Split(c.Offset(0, -1), ":")
            c.Value = valeur(1)
        End If
    Next c
End Sub

Re,

Oui sa fonctionne mais j'ai oublié de dire qu'il doit rectifier dans la colonne "I"

en "J" c'était l'exemple excuse moi

Max