Chaine de caractere separee par slash

Bonsoir les amis, je souhaite séparer mes chaînes de caractères ci-dessous à chaque slash et les mettre dans différentes colonnes :

EXEMPLE 1 :

BLOC A DISPATCHER DANS 3 CELLULES DIFFERENTES :

NOMENY/GO/43.12 LITRES

3 BLOCS DE MOTS, premier bloc NOMENY, second bloc GO, troisière bloc 43.12 LITRES

Je souhaite inscrire NOMENY EN A1, inscrire GO en B1, inscrire 43.12 LITRES en C1

EXEMPLE 2 :

BLOC A DISPATCHER DANS 3 CELLULES DIFFERENTES :

CUSTINES/GO PLUS/44.51 LITRES

3 BLOCS DE MOTS, premier bloc CUSTINES, second bloc GO PLUS, troisième bloc 44.51 LITRES

Je souhaite inscrire CUSTINES en A2, inscrire GO PLUS en B2, inscrire 44.51 LITRES en C2

DERNIER EXEMPLE :

BLOC A DISPATCHER DANS DIFFERENTES CELLULES

240/50/55.93/19.69/0.66/-276.77

6 BLOCS DE CHIFFRE A DISPATCHER

240 à inscrire en A3, 50 à inscrire en B3, 55.93 à inscrire en C3, 19.69 à inscrire en D3, 0.66 à inscrire en E3, et -276.77 à inscrire en F3

Quelqu'un pourrait m'aider svp ?

Merci

Bonjour,

sélectionne ta colonne et 'Données / Convertir'

eric

Bonsoir,

Il faut déjà que les données à convertir soit en A1, A2, A3

Ensuite tu vas dans Données > Convertir cocher "Autre" puis le séparateur / et tu valides toussa avec suivant ou Ok...

[EDIT] Hi ! Battu sur le fil... Salut Eric !

A+

C'est parfait, c'est exactement ce que je voulais, merci infiniment les amis

Je vais tenter de le mettre au format vba pour automatiser la procédure

Merci encore

bonjour,

Pour mettre ça en VBA :

Sub test()
Dim a, i
a = Split([A1], "/")
For i = 0 To UBound(a)
   ActiveSheet.Cells(1, i + 1) = Val(a(i))
Next
End Sub

A+

Bonjour GALOPIN01

Je viens de tester ta macro, malheureusement ça ne fonctionne pas.

J'ai réussi à le faire en vba mais ça ne marche que sur le premier onglet, quelqu'un pourrais m'aider svp.

J'ai plusieurs onglets qui commencent par "F_" et je souhaite que la macro ci-dessous fonctionne sur tous les onglets et non pas que sur le premier.

Voici la macro :

Sub DonneesConvertirSurChaqueFeuilleCommencantParF_()
Dim Ws As Worksheet

Application.DisplayAlerts = False

    For Each Ws In Worksheets

        If Ws.Name Like "F_*" Then

        range("H9:H259").Select
        Selection.TextToColumns Destination:=range("J9"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True

        End If

    Next Ws

Application.DisplayAlerts = True

End Sub

Je viens de trouver mon erreur les amis, il fallait simplement ajouter * après le F_ ce qui donne une macro complète ci-dessous :

Sub DonneesConvertirSurChaqueFeuilleCommencantParF_()
Dim Ws As Worksheet

Application.DisplayAlerts = False

    For Each Ws In Worksheets

        If Ws.Name Like "F_*" Then

        Ws.Activate

        range("H9:H259").Select
        Selection.TextToColumns Destination:=range("J9"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True

        End If

    Next Ws

Application.DisplayAlerts = True

End Sub

re...

Comment ça, "ça ne marche pas" ?

ça marche pour A1 après tu ne sais pas t'en servir pour traiter les feuilles...

Mais ça c'est pas de ma faute si tu ne mets pas de fichier joint !

A+