Discussion :

[jameslaguerre]

Bonjour, je voudrais extraire des nombres dans des lettres, et mettre les lettres ainsi que les chiffres ensemble , quelque soit ou se place les nombres,comme l'exemple, quelqu'un peut m'aider s'il te plait pour la formule sur excel.


#7647 JANOT 123 Pierre = #7647123 ;JANOT PIERRE
546 JULES #2314
JUDE #6475 ANDRE 124



Mecri
James

[casefayere]

Bonsoir,
Si j'ai compris, peut-être une fonction personnalisée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function separer(cel As String)
Dim chaine, Schaine As String, x As Integer, Vchaine As String
Schaine = Replace(cel, "#", "")
chaine = Split(Schaine, " ")
Vchaine = ""
For x = 0 To UBound(chaine)
  If IsNumeric(chaine(x)) Then
    Vchaine = Vchaine & chaine(x)
    Schaine = Replace(Schaine, chaine(x), "")
 
  End If
Next x
separer = "# " & Trim(Vchaine) & " ; " & Trim(Schaine)
End Function

PS : j'ajoute mon fichier exemple

[NVCfrm]

Bonsoir à tous,

Pour pouvoir traiter ta chaîne avec formules:
concatenation de 2 expressions:

Code :

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

=STXT(A1;1;CHERCHE(" ";A1)-1)&STXT(A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1)-CHERCHE(" ";A1;CHERCHE(" ";A1)+1))&";"&STXT(A1;CHERCHE(" ";A1);CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-CHERCHE(" ";A1))&STXT(A1&" ";CHERCHE(" ";A1&" ";CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1);NBCAR(A1))

la décomposition de la formule ci-dessus se présente ainsi pour la partie nombre:

Code :

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

=STXT(A1;1;CHERCHE(" ";A1)-1)&STXT(A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1)-CHERCHE(" ";A1;CHERCHE(" ";A1)+1))

Pour la partie chaîne (même procédé que les nombres):

Code :

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

=STXT(A1;CHERCHE(" ";A1);CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-CHERCHE(" ";A1))&STXT(A1&" ";CHERCHE(" ";A1&" ";CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1);NBCAR(A1))

[jameslaguerre]

Bonjour,
Je vous remercie pour vos supports,
J’ai testé le vba de Casefayere, ainsi que la formule de NVCfrm, ca a marché, mais pas sur tout les champs.

J’ai oublié de vous dire, les données sont complexes, j'ai attaché un échantillon pour que vous ayez un exemple.

Merci déjà
James

[mercatog]

Une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function REORG(ByVal Str As String) As String
Dim Rg As Object
 
Str = Replace(Str, "#", "")
Set Rg = CreateObject("VBScript.RegExp")
With Rg
    .Pattern = "(\d*)(\D*)"
    .Global = True
    REORG = "#" & .Replace(Str, "$1") & ";" & .Replace(Str, "$2")
End With
Set Rg = Nothing
End Function

[jameslaguerre]

Bonjour,

La fonction de Mercatog, a marché,
J'aurai juste a faire un Find/Replace pour enlever les caractères spéciaux.


Merci les amis.
James