Discussion :

[rose35]

Bonjour,

Je cherche à récupérer le premier numéro de 8 caractères au milieu d'un contenu plus vaste ( de chiffres et de lettres).

Ex : 3454 okca marche, unifemirvlqn,fgji 455304Z4I5203A2IU 34564890 lr gjnslridunvrsli
Je veux récupérer uniquement 34564890.
Sachant que :
- je dois récupérer cette donnée pour plusieurs lignes
- ce fameux numéro à 8 chiffres n'est jamais au même endroit dans la chaîne
- il peut y avoir différents numéros de 8 chiffres dans la cellule mais je souhaite le premier.

Merci par avance pour votre aide.
Rose

[RyuAutodidacte]

Bonjour,

En partant de ton exemple, en supposant que l'on a bien des espaces qui séparent les parties du texte dont le fameux numéro,
voilà un Exemple en A1 avec le texte donnée (3454 okca marche, unifemirvlqn,fgji 455304Z4I5203A2IU 34564890 lr gjnslridunvrsli) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
 
    MonNum = Split(Cells(1, 1), " ")
    For i = LBound(MonNum) To UBound(MonNum)
        If IsNumeric(MonNum(i)) And Len(MonNum(i)) = 8 Then
            MsgBox MonNum(i)
            Exit For
        End If
    Next
 
End Sub

Edit petite modif

[Menhir]

Une méthode peu élégante (mais on fait c'qu'on peut) :

Code :

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

1
2
3
4
5
6
Function Num8(Test As String) As Long
    For Num8 = 1 To Len(Range("A1") - 7
        If IsNemeric(Mid(Range("A1"), C, 8)) Then Exit For
    Next Num8
    If Num8 > Len(Range("A1") - 7 Then Num8 = 0
End Function

[RyuAutodidacte]

Salut Menhir,

Attention une petite faute dans ton code : IsNemeric à la place de IsNumeric

amicalement
Ryu

Et je viens d'en voir une dans mon texte c'est corrigé

[Menhir]

Tu as raison : j'ai oublié de préciser que j'ai codé ça à l'arrache directement sur le forum.
Ce n'est pas testé et il y aura donc sans doute un peu de débugage à faire (mais on a le concept de base).

[patricktoulon]

re
bonsoir sinon une petite initiation au "reg.expand"familièrement appelé regex
cela te trouvera ta/tes serie(s) dans n'importe quelle condition

Code :

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

1
2
3
4
5
6
Sub test()
    Dim texte As String
    texte = "dssdvdsvgsd455d6dddd15dd dddd45556987 kkdkdkdkd452d"
    With CreateObject("VBScript.RegExp"): .Pattern = "(\d{8})": Set matchs = .Execute(texte): End With
    MsgBox matchs(0)
End Sub