bonsoir le forum,
je cherche à separer un ensemble de chiffre sur un ligne de texte en passant par vba,
mon texte ressemble a ca:
TTT AVURNAV LOCAL CHERBOURG 1571
celui ci est inserer dans un message a des emplacement variés a chaque nouveau message.
mon probleme est de realiser une macro qui me dise en gros:
a chaque fois que tu decelera le mot"AVURNAV LOCAL", separe le chiffre" 1571" du reste dans la colonne suivante, en sachant que le chiffre est different a chaque fois:
j'ai essayé de faire ceci:
For Each cel In plage
If cel.Offset(0, 0).Value Like "*AVURNAV LOCAL*" Then
cel.Offset(0, 0).Select
Selection.TextToColumns Destination:=cel.Offset(0, 0), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End If
Next cel
le probleme c'est qu'il me separe tout les ligne du texte, ce que je ne veux surtout pas
si quelqu'un a une solution cela serait vraiment super, cela fait 5 heures que je planche sur la question sans trouver de reponse
en attendant merci a vous....JAMMY
je cherche à separer un ensemble de chiffre sur un ligne de texte en passant par vba,
mon texte ressemble a ca:
TTT AVURNAV LOCAL CHERBOURG 1571
celui ci est inserer dans un message a des emplacement variés a chaque nouveau message.
mon probleme est de realiser une macro qui me dise en gros:
a chaque fois que tu decelera le mot"AVURNAV LOCAL", separe le chiffre" 1571" du reste dans la colonne suivante, en sachant que le chiffre est different a chaque fois:
j'ai essayé de faire ceci:
For Each cel In plage
If cel.Offset(0, 0).Value Like "*AVURNAV LOCAL*" Then
cel.Offset(0, 0).Select
Selection.TextToColumns Destination:=cel.Offset(0, 0), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End If
Next cel
le probleme c'est qu'il me separe tout les ligne du texte, ce que je ne veux surtout pas
si quelqu'un a une solution cela serait vraiment super, cela fait 5 heures que je planche sur la question sans trouver de reponse
en attendant merci a vous....JAMMY