Dé - concatener

[anthooooony]

Bonjour à tous chers downloadiens,


Je cherche un moyen de "vulgairement" de déconcatener les chiffres des lettres

Z2020 doit donner 2020
TOC9210 doit donner 9210


Auriez vous deja eu ce cas de figure?

Je continue à chercher de mon côté

Bien à vous

Anthooooony

 

[JHA]

Re : Dé - concatener

Bonjour à tous,

Si tu as toujours 4 chiffres à la fin,
=droite(A1;4)

JHA

 

[anthooooony]

Re : Dé - concatener

Bonjour,

Nous en faite c'est aléatoire il peut y avoir 1-2-3-4-5 Lettre à et autant à droite j'y avais pensé 😀

 

[anthooooony]

Re : Dé - concatener

J'ai cette formule =DROITE(A1;NBCAR(A1)-12)
mais je ne sais pas encore comment isoler le nombre de lettre que je pourrais mettre à la place de 12

 

[Orodreth]

Re : Dé - concatener

Bonjour,

Il faut que tu considères ta chaine en entrée comme un tableau de caractères.
A partir de là, tu boucles sur chaque élément du tableau, et à chaque fois que tu trouves un chiffre, tu viens l'ajouter à une chaine de récupération.

Une fois ta boucle finie, tu castes en integer/long suivant ton besoin, et tu as ton information numérique.

    Dim chaineEntree As String
    chaineEntree = "Z2020"
    Dim chaineSortie As String
    chaineSortie = ""
    Dim pcs_str As Integer
    For pcs_str = 1 To Len(chaineEntree)
        If IsNumeric(Mid(chaineEntree, pcs_str, 1)) Then
            chaineSortie = chaineSortie & Mid(chaineEntree, pcs_str, 1)
        End If
    Next pcs_str
    
    MsgBox chaineSortie

EDIT: pas sûr qu'il soit obligé de passer par VBA, mais je ne sais pas le faire en formule. Tu peux récupérer ce code dans une fonction, et après, tu appelles ta fonction depuis Excel.

Cordialement,
Orodreth

 

[anthooooony]

Re : Dé - concatener

Bonjour!

Merci pour ton code !

Je

 

[Jocelyn]

Re : Dé - concatener

Bonjour le Forum,
Bonjour anthooooony,

testes cette formule pour une valeur située en A2

=STXT(A2;EQUIV(VRAI;ESTNUM(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)*1);0);NB(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)*1))

formule matricielle, il faut valider la formule en appuyant simultanément sur CTRL, Maj (au dessus de CTRL) et entrée, si ta formule est bien validée excel va mettre de lui même le signe { devant le égal et le signe } en fin de formule.

Cordialement

EDIT : Oup's pas rafraichi et en plus pas rapide du tout, enfin Bonjour JHA et orodreth désolé pour la collision

 

[Modeste geedee]

Re : Dé - concatener

Bonsour® anthooooony
autres façons avec fonctions personnalisées à integrer dans un module standard :
Code vba:
Function NumSeul(target)
Dim Mask As Object
Set Mask = CreateObject("vbscript.RegExp")
Mask.Pattern = "[^0-9]"
Mask.Global = True
NumSeul = Mask.Replace(target, "")
End Function



Code vba:
Function NumOnly(target)
Dim temp As String, idx As Integer
temp = ""
For idx = 1 To Len(target)
temp = temp & IIf(Mid(target, idx, 1) Like "[0-9]", Mid(target, idx, 1), "")
Next
NumOnly = temp
End Function

 

[Modeste geedee]

Re : Dé - concatener

Bonsour®
autres variations :
Code Vba:
Function SaufNum(target)
'-----uniquement les chiffres
Dim Mask As Object
Set Mask = CreateObject("vbscript.RegExp")
Mask.Pattern = "[0-9]"
Mask.Global = True
SaufNum = Mask.Replace(target, "")
End Function



Code vba:
Function MasqNum(target)
' masque les chiffres
Dim Mask As Object
Set Mask = CreateObject("vbscript.RegExp")
Mask.Pattern = "[0-9]"
Mask.Global = True
MasqNum = Mask.Replace(target, "_")
End Function



Code vba:
Function MasqAlpha(target)
'masque les non-numeriques
Dim Mask As Object
Set Mask = CreateObject("vbscript.RegExp")
Mask.Pattern = "[^0-9]"
Mask.Global = True
MasqAlpha = Mask.Replace(target, "_")
End Function

 

[anthooooony]

Re : Dé - concatener

Génial ! merci à vous tous !!!