Discussion :

[taquatzieu]

Bonjour,

J'ai lu cette contribution.

Si le contenu des cellules est de ce type :
Nom : Dupont - Eric / Tél : 0612345678

Je n'ai pas testé ce code mais je ne doute pas qu'il fonctionne bien. J'ai une problématique un peu similaire. Je voudrais extraire d'une chaine de caractères un code à 7 chiffres mais qui n'est jamais dans la même position à l'intérieur de la chaine, dont la seule caractéristique est de toujours commencer par 22, (mais 22 peut se trouver ailleurs dans la chaine !!) et il n'y a aucune balise avant ou après ce numéro.
Ma cellule ressemble à çà : F2370403338865 192,00 21/07/2014 NOM Prénom-Composé - 1991234567890 59 3,66 2259966 43,80 43,80.
Je cherche à récupérer le code 2259966. Sur des centaines de lignes la chaine de caractère est différente en nombre de caractères et la position du code recherché n'est pas fixe.
Si vous aviez une piste en VBA ou en formule texte je serai intéressé.
Merci.

[vinc_bilb]

Bonjour,

Similaire à ce qui a été proposé, sauf erreur:
=> Vous pouvez par la fonction split, qui vous ressort un tableau sur la base du séparateur (" ") ici si j'ai bien compris
du style

Code :

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

1
2
3
4
5
6
' en supposant que cl point sur la valeur à traiter
MyDataAR = Split(cl.value, " ") ' retourne tout le tableau
 
If UBound(MyDataAR, 1) > 4 then 'par exemple
   MyData = MyDataAR (4) ' a affiner
End If

Bonne journée

[taquatzieu]

Merci pour la réactivité mais j'avoue que je ne comprends pas comment adapter cela par rapport à votre premier code.

[vinc_bilb]

Ca ne marche que si l'enregistrement que vous voulez extraire est à une position fixe (9ème espace ici), sinon, il faut comprendre la logique

Si en A1 de Sheet1 j'ai:
F2370403338865 192,00 21/07/2014 NOM Prénom-Composé - 1991234567890 59 3,66 2259966 43,80 43,80.
ça ressort en B1 la valeur (String ici) 2259966

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Extract_Data()
 
Dim InpRng As Range, InpCl As Range
Dim ClValExtr As String, ClValAR As Variant
Dim RecPos As Integer
 
' A adapter sur la feuille et la cellule
Set InpRng = ThisWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
RecPos = 9 'Record à extraire
 
' A adapter (Columns)
For Each InpCl In InpRng.Columns(1).Cells
 
    Debug.Print InpCl.Value
    'Je crée un tableau ClValAR contenant tous les enregistrements entre le " "
    ClValAR = Split(InpCl.Value, " ")
 
    ' Si le nombre d'élèments retournés à supéreiur à l'extract que je recherche
    If UBound(ClValAR, 1) >= RecPos Then
 
        ' Attention au type: ici on retourne un string
        ClValExtr = ClValAR(RecPos)
        InpCl.Offset(0, 1) = ClValExtr  'J'écris sur la colonne suivante
 
    End If
 
Next InpCl
 
End Sub

Bonne journée

[taquatzieu]

Merci bien. Mais justement la position de la donnée à extraire n'est pas forcément à la même place. Mais votre solution avec les espaces peut m'aider. Je revois cela demain...

[vinc_bilb]

Merci bien. Mais justement la position de la donnée à extraire n'est pas forcément à la même place. Mais votre solution avec les espaces peut m'aider. Je revois cela demain...

Si l'enregistrement n'est pas toujours à la même place, quelle est la logique derrière? Comment le savoir?
Bonne soirée