données a separer dans une cellule

[jammy17]

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

 

[Dugenou]

Re : données a separer dans une cellule

Salut jammy, salut les forumistes du samedi

j'ai une soluce par formule, peut être que ça pourra t'aider :

s'il y a avurnav local dans la cellule, on cherche un espace dans les 8 derniers caractères (il faut que le chiffre fasse moins de 8 caractères !) et on renvoie la partie droite du texte de puis le dernier espace.

cordialement

 

[_Thierry]

Re : données a separer dans une cellule

Bonjour Dugenou, Jammy17, le Forum

Par VBA on peut faire ceci au cas où....

Option Explicit
Sub Number_Finder()
Dim Plage As Range, Cell As Range
Dim Starting As Integer, i As Integer
Dim TmpNumber As String
    With Feuil1
        Set Plage = .Range(.Range("A2"), .Range("A5000").End(xlUp))
    End With
        
        For Each Cell In Plage
            
            Starting = InStr(1, Cell, "AVURNAV LOCAL")
                If Starting <> 0 Then
                
                    For i = Starting To Len(Cell)
                        If IsNumeric(Mid(Cell, i, 1)) Then
                        TmpNumber = TmpNumber & Mid(Cell, i, 1)
                        End If
                    Next
                    Cell.Offset(0, 1) = Val(TmpNumber)
                End If
        TmpNumber = ""
        Next Cell
        
End Sub

Bon Week End
@+Thierry

 

[chris]

Re : données a separer dans une cellule

Bonjour

For Each cel In plage
If cel.Value Like "*AVURNAV LOCAL*" Then
x = InStrRev(cel, " ")
y = Right(cel, Len(cel) - x)
cel.Offset(0, 1).Value = y
cel.Value = Left(cel, x - 1)
End If
Next cel

 

[chris]

Re : données a separer dans une cellule

RE
Oups collision
Bonjour à Thierry et Dugenou

 

[jammy17]

Re : données a separer dans une cellule

super, merci chris, c'est exactement cela

merci encore le forum, et tous ses membres, c'est vraiment ensemble que nous pouvons progresser , en partageant nos connaissances mutuelles

merci encore et bravo!!

 

[nat54]

Re : données a separer dans une cellule

Bonjour

@ chris : ca n'a marché que sur ma 1ère cellule 🙁

Sub extraire_chaine()
For Each cel In [B2:B3]
If cel.Value Like "*AAA*" Then
x = InStrRev(cel, " ")
y = Right(cel, Len(cel) - x)
cel.Offset(0, 1).Value = y
cel.Value = Left(cel, x - 1)
End If
Next cel
End Sub

 

[chris]

Re : données a separer dans une cellule

Salut nat54
Cela cherche le dernier espace et coupe ce qui se trouve entre cet espace et la fin car ce que voulais jammy c'était récupérer la valeur en bout de chaîne.
Mais cela ne marche pas dans d'autres cas.
Quel est le tiens ?

 

[nat54]

Re : données a separer dans une cellule

Rien de spécial, je m'instruis juste et j'ai compris pourquoi ça ne fonctionnait pas grâce à ton explication
Merci

 

[jammy17]

Re : données a separer dans une cellule

rebonsoir, un nouveau problème cela dit:

comment fair la meme chose si entre mes 2 chiffre j'ai une lettre, c'est a dire trouver l'avant avant dernier espace/
TTT AVURNAV BREST 465 M 281
AAAA

d'avance merci

 

[_Thierry]

Re : données a separer dans une cellule

Bonsoir Chris, Nat54, re Jammy, le Forum

Le Code que j'ai écrit, permet de "tracker" toute valeur numérique de ta string (chaine de caractères) du moment que cette chaine contient "AVURNAV LOCAL"...

Et ce quelque soit l'emplacement des valeur numériques... Ce code reconstruira une valeur numérique avec la concaténation tous les nombres trouvés...

Bonne Soirée

@+Thierry

 

[jammy17]

Re : données a separer dans une cellule

merci thierry, jva essayer et jvous dis si ca marche avec mes feuilles....@plus

 

[jammy17]

Re : données a separer dans une cellule

REREBONSOIR

bon bah j'ai testé, cela ne fonctionne pas bien, enfin pas du tout a vrai, la solution semble se trouver dans le code de CHRIS, seulement je voudrais dire a la macros d'aller chercher l'avant avant dernier espace, est ce possible?

 

[_Thierry]

Re : données a separer dans une cellule

re Jammy


En général quand je produis un code je fais l'effort de le tester ce que j'avais fait.

Essaie donc sur ton classeur de test...

@+Thierry

 

[skoobi]

Re : données a separer dans une cellule

Bonsoir tout le monde,
dans ce cas tu fais un mix des macro de _thierry et chris:

For Each cel In plage
If cel.Value Like "*AVURNAV BREST*" Then
   For i = 1 To Len(cel)
      If IsNumeric(Mid(cel, i, 1)) Then
         j = (Mid(cel, i, 1))
         k = InStr(cel, j)
         y = Right(cel, Len(cel) - (k - 1))
         x = Left(cel, Len(cel) - (Len(cel) - k) - 1)
         cel.Offset(0, 1).Value = y
         cel.Value = x
         Exit For
      End If
   Next
End If
Next
End Sub

A+