Discussion :

[olive1007]

Bonjour,
J'essaye d'automatiser le traitement de données sur un classeur excel et je bloque sur la tâche suivante: extraire dans des cellules des nombres avec décimales et signes séparés par des /
J'ai par exemple en A1 la chaîne -1.2345/+67.8900/+0.9876/-5.4321/-123.4567
Je souhaiterai extraire en A2 le nombre -1.2345, en B2 le nombre 67.8900, en C2 0.9876.....
Est ce qu'il y aurait une formule ou un code vba qui me permettrait de faire cette manipulation?
Merci pour votre aide!
Olivier

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nombre = Split("-1.2345/+67.8900/+0.9876/-5.4321/-123.4567", "/")(0)

[mercatog]

Ou bien utiliser la commande convertir d'Excel

Exemple (données sources de A1 à A100 de la feuille Feuil5)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Separe()
 
With Worksheets("Feuil5").Range("A1:A100")
    .TextToColumns Destination:=.Range("A1"), Other:=True, OtherChar:="/"
End With
End Sub