XL 2016 Garder uniquement le contenu situé entre les parenthèses

[FAFA01]

Bonjour,
je cherche un moyen de ne conserver que les chiffres situé à l'intérieur d'une cellule (quelque soit l'endroit)
ou
comment ne conserver que les caractères qui se trouvent à l'intérieur des parenthèses

ex : MONT-BLANC/LEMAN F+18 à X (20232420010159RST) ou R C LAPALISSOIS (5826H)
dans ces deux exemples je souhaiterai qu'il ne conserve que 20232420010159 et 5826

merci pour votre retour

cordialement
alain

 

[Cousinhub]

Bonjour,
Une solution utilisant Power Query (en natif dans ta version)
Ruban Données, "Actualiser tout" pour mettre à jour
Bonne journée

 

[Dudu2]

Bonjour à tous,
Ou une petite fonction personnalisée qui n'a pas besoin de bouton pour mettre à jour sa valeur.

Fichier supprimé, voir plus loin.

 

[Cousinhub]

Bonsoir,
Dudu, tu aurais ouvert le fichier, tu aurais (peut-être) vu des cas (spéciaux)...
Parfois, 2 parenthèses ouvrantes, parfois aucune...
Mais pas de difficultés particulières en VBA, toutefois
Bonne soirée

 

[Cousinhub]

Re-,
Tu vas me dire, à juste titre, que moi aussi, j'aurai dû bien lire la question...
Il ne faut que les chiffres...
La v2
Bonne soirée

 

[Dudu2]

J'ai pris les 2 exemples fournis comme référence.
Alors tu as raison, j'ai ouvert le fichier et constaté que l'énoncé de la demande était incomplet.
Qu'à cela ne tienne, en supposant que le bon contenu est toujours à la fin...

Par contre je ne suis pas allé jusqu'à traiter les parenthèses potentiellement imbriquées.
Ni traité les cas où il n'y a PAS de parenthèses.
Edit: bon allez, je les traite ces 2 cas ! C'est pas ce que ça coûte.

Fichier supprimé, voir plus loin.

 

[Cousinhub]

Re-,
Perso, pour la fin, j'aurais opté pour un Val(S)....
Bonne soirée
Edit, et pour le début, un split? okake y'ait une "(" ? suivi d'un Ubound?

 

[Dudu2]

Oui Val(S) c'eut été possible. Il y a quand même des gros nombres genre 20 232 420 010 162 où le début semble être l'année.
Dans la dernière version pour les parenthèses imbriquées, je fais ça au début k = InStrRev(S, "("). En principe je tombe sur celle la plus incluse du dernier groupe et je pars de là pour chercher la fermante. Quoique je trouve, avec ou sans ouvrante et/ou fermante, je prends les chiffres.

 

[Dudu2]

En fait je m'embête bien à chercher la parenthèse fermante, ça sert à rien.
Il n'est pas nécessaire d'avoir un code plus long que ça.

Function CEP(Cellule As Range) As String
    Dim S As String
    Dim k As Integer
    
    S = CStr(Cellule.Value)
    k = InStrRev(S, "(")
    If k > 0 Then S = Mid(S, k + 1)
    For k = 1 To Len(S)
        If Not (Mid(S, k, 1) >= "0" And Mid(S, k, 1) <= "9") Then Exit For
    Next k
    CEP = Left(S, k - 1)
End Function

 

[Cousinhub]

Re-,
Et un split sur la parenthèse ouvrante (si elle existe), suivi d'un Ubound (si plusieurs), afin d'en retirer le Val?
Bonne soirée

 

[mapomme]

Bonsoir à tous ,

La p'tite formule de ma pomme en B2 à copier vers le bas :
=SI(DROITE(A2;1)<>")";"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(DROITE(SUBSTITUE(A2;" ";REPT(" ";255));255);"(";"");")";"")))

nota : le demandeur a demandé les caractères entre parenthèses mais il ne donne en exemple que l'extraction des chiffres !!! Donc la réponse de mapomme est incomplète...

 

[mapomme]

Re,

Une autre formule (matricielle cette fois) en B2 à copier vers le bas :
=SIERREUR(GAUCHE(SI(DROITE(A2;1)<>")";"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(DROITE(SUBSTITUE(SI(DROITE(A2;1)<>")";"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(DROITE(SUBSTITUE(A2;" ";REPT(" ";255));255);"(";"");")";"")));" ";REPT(" ";255));255);"(";"");")";"")));EQUIV(99;SIERREUR(1*STXT(SI(DROITE(A2;1)<>")";"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(DROITE(SUBSTITUE(A2;" ";REPT(" ";255));255);"(";"");")";"")));COLONNE($A:$ZZ);1);"")));"")

 

[patricktoulon]

Bonjour,
je cherche un moyen de ne conserver que les chiffres situé à l'intérieur d'une cellule (quelque soit l'endroit)
ou
comment ne conserver que les caractères qui se trouvent à l'intérieur des parenthèses

ex : MONT-BLANC/LEMAN F+18 à X (20232420010159RST) ou R C LAPALISSOIS (5826H)
dans ces deux exemples je souhaiterai qu'il ne conserve que 20232420010159 et 5826

merci pour votre retour

cordialement
alain

si je me fis a la demande initiale c'est à dire concerver toutes les chaines numérique
alors une petite fonction qui recupère toute les chaines numeriques sans les fins en lettre
chaque chaine numerique séparées par un espace pour bien les différencier
exemple
sub

Sub test2()
    Dim cc As String
    cc = "toto mange(533 bannanes pas ans) et (422 kiwy) et detemps en temps (mais pas ouvent une 10 aines de grenade)"
    MsgBox GetNumericChain(cc)
End Sub

Function GetNumericChain(txt As String, Optional A& = 1) As String
    Dim b As Long, c$, d$: Static chain As String
    If A = 1 Then chain = ""
    A = InStr(A, txt, "(")
    If A > 0 Then
        b = InStr(A + 1, txt, ")")
        c = Trim(Mid(txt, A + 1, (b - A) - 1))
        For i = 1 To Len(c)
            If IsNumeric(Mid(c, i, 1)) Then d = d & Mid(c, i, 1)
        Next
        If Val(d) > 0 Then chain = chain & d & " "
        GetNumericChain txt, b
    End If
    GetNumericChain = Trim(chain)
End Function

il va de soi que l'on peut l'utiliser en formule
=GetNumericChain(A1)

pour info c'est une fonction récursive

pour les parentèses je boucle en récursif avec instr(index texte,"recherche")
pour les caractères numerique dans le portions instr je boucle for sur le len(de la portion)
terminé

 

[mapomme]

Re,

Ma petite fonction personnalisée. J'extrais uniquement le dernier groupe (...) le plus à droite.
Voir cellule B2 à recopier vers le bas.

Le code dans moduler1 :

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Split(x, "(")(UBound(Split(x, "(")))
   If x = "" Then Exit Function
   For i = 1 To Len(x): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

 

[Dudu2]

Impressionnante formule de @mapomme !
Je sais pas comment tu arrives à faire des trucs pareils.