XL 2010 tronquer chaine de caractères

laurent950 à dit:

Bonsoir,

Voici le code associer au dernier fichier excel que vous avez posté :

VB:

Sub test()
For i = 1 To 12
' decoupage
Var = Split(Cells(i, 1), "\")
' resultat
Var = Var(UBound(Var))
' test sur le nombre de .
Var = Split(Var, ".")
If UBound(Var) < 2 Then
    Var = Var(LBound(Var))
    Cells(i, 3) = Var
Else
' pour tous les points
    For j = 0 To UBound(Var) - 1
        If j = 0 Then
            Nouv = Var(j)
            Cells(i, 3) = Nouv
        Else
            Nouv = Nouv & "." & Var(j)
            Cells(i, 3) = Nouv
        End If
    Next j
    Nouv = Empty
End If
Next i
End Sub

Cliquez pour agrandir...