Copie de carractères

Bonjour a tous .

Je cherche a copier dans une autre cellule des carractères qui se trouvent entre deux vergules.

Soit, isoler 46.15489

5.59665,46.15489,"NANTUA (01) Aire CCI 308"

Quelle est la formule SVP

Marilian

Bonjour,

Sub Separe()
Dim Lg%, i%, x
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
    For i = 2 To Lg
        If Range("a" & i) <> "" Then
            x = Split(Range("a" & i), ",")
            Cells(i, "b") = x(1)
        End If
    Next i
End Sub

Bonne journée

Claude

Bonjour,

Par formule (mais il doit y avoir moyen de simplifier) :

=DROITE(GAUCHE(A1;TROUVE(",";A1;TROUVE(",";A1;1)+1)-1);TROUVE(",";A1;1))

Cordialement,

Zirak a écrit :

Bonjour,

Par formule (mais il doit y avoir moyen de simplifier) :

=DROITE(GAUCHE(A1;TROUVE(",";A1;TROUVE(",";A1;1)+1)-1);TROUVE(",";A1;1))

Cordialement,

Merci, cela fonctionne et l'avantage c'est le le nombre de carractères peu varier

Merci encore

dubois a écrit :

Bonjour,

Sub Separe()
Dim Lg%, i%, x
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
    For i = 2 To Lg
        If Range("a" & i) <> "" Then
            x = Split(Range("a" & i), ",")
            Cells(i, "b") = x(1)
        End If
    Next i
End Sub

Bonne journée

Claude

Merci, cela fonctionne et l'avantage c'est le le nombre de carractères peu varier

Merci encore