XL 2019 Extraire une suite de 4 chiffres dans une désignation

[CBrd]

Bonjour,

Je viens solliciter votre aide aujourd'hui car j'ai un problème que je n'arrive pas à résoudre.

Dans l'entreprise où je travaille nous avons une assez grosse base de données, surtout concernant les composants.
Aujourd'hui nous voudrions modifier massivement les désignations afin de les uniformiser. Pour ce faire, j'isole chaque partie de la désignation (les ohms, la tolérance [%], etc.) pour ensuite bien remettre toutes ses valeurs dans l'ordre souhaité par la société. Pour la plupart des valeurs j'arrive à les isoler et les récupérer pour modifier la désignation (grâce aux fonctions TROUVE, CHERCHE et DROITE par exemple)

Le problème est que dans la quasi totalité des désignations nous avons une valeur que l'on appelle un boitier. Dans mon exemple, ce boitier sera toujours une suite de 4 chiffres (sur d'autres composants plus spécifiques ce pourrait être autre chose). Le problème aussi est que la suite de 4 chiffres ne se trouve pas forcément toujours au même endroit.

Sur le fichier ci-joint, pour la première ligne de mon tableau je souhaiterais récupérer la valeur 0805.
Que pouvez-vous me conseiller pour pouvoir extraire cette suite ?

Merci par avance.

 

[patricktoulon]

re
bon ben la je crois que l'on a perdu Laurent victime du corogexonavirus a rallonge

 

[Staple1600]

Re

Désolé, mais le confinement m'oblige à m'amuser

Sub Test_RegEx()
PapyBrossard Range("A1:A4")
End Sub
Private Sub PapyBrossard(Rng As Range, Optional QUATRE_QUART As String = "4")
Dim C As Range, RE As Object, MC As Object, M As Object, I&
Set R = Rng
Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .Pattern = "\b\d{" & QUATRE_QUART & "}\b"
    For Each C In R
        If .test(C.Text) = True Then
        I = 0: Set MC = .Execute(C.Text)
        For Each M In MC
        I = I + 1: C.Offset(0, I) = M
        Next M
    End If
    Next C
End With
End Sub

PS: Je sais que c'est perfectible
(Mais je prends mon temps demain, je suis encore confiné

 

[laurent950]

Mais Non Non C'est pour les débutants le code est au Top Patrick

 

[laurent950]

.Pattern = "\b\d{" & QUATRE_QUART & "}\b"

C'est quoi le nouveau salaire du chomage Partiel

 

[patricktoulon]

bien vu Staple1600 la j’adhère"\b"

 

[patricktoulon]

ben non dans ces exemples c'est au début
l'espace ca definie ce qui est avant dans ton motif comme etant STRICTEMENT des numériques me si il y a le "*"

ce la dit j’adhère au motif de Staple1600 qui délimite la chaîne \dx par un début et une fin "\b" ce qui veux dire que \d{4} et non seulement la chaîne recherché mais aussi un "mot" a lui tout seul

 

[laurent950]

Patrick
Pourquoi tu ajoutes un espaces aprés le % il n'y a pas besoin : reg.Pattern = "^(\d.*\d[\%])\s"
Pourquoi tu ajoutes le \s (qui correspond a un espace aprés le % sa j'ai pas compris

Merci j'ai compris Maintenant

 

[laurent950]

.Pattern = "\b\d{" & QUATRE_QUART & "}\b"

Staple1600 tu peux décomposé se pattern j'ai pas compris ?

Réponse de PATRICKTOULON en méssage privé

ben ta pas compris
\b veux dire debut ou fin de chaîne numérique
QUATRE_QUART=4
.Pattern = "\b\d{" & QUATRE_QUART & "}\b"
set matches=.execute(texte)
msgbox matches(0)

Merci PatrickToulon

 

[Staple1600]

Re

Il est trop tard, je vais au dodo
(QUATRE_QUART c'était juste histoire de faire la blague )
Classiquement le pattern serait:
.Pattern = "\b\d{4}\b"

Bonne nuit à tous.

 

[patricktoulon]

.Pattern = "\b\d{" & QUATRE_QUART & "}\b"

Staple1600 tu peux décomposé se pattern j'ai pas compris ?

\b =debut absolu
d{" & QUATRE_QUART & "} =\d{4}
\b =fin absolu

 

[laurent950]

Merci PatricToulon, Merci Staple1600

Bonne nuit Staple1600 et un grand Merci

Ps : Merci aussi PatrickToulon

 

[Staple1600]

Re

•>patricktoulon
La question m'était destinée, non ?
(cf message#39)
mais bon comme je vais me coucher, je te laisse répondre à ma place.

 

[patricktoulon]

re

La question m'était destinée, non ?

c'est pas toi qui parlais de synergie colaborative

 

[Staple1600]

Re

Oui, d'où justement les émoticones dans le message#42

Sur ce bonne nuit.
et à demain pour un deuxième vendredi de confinement !!!

 

[patricktoulon]

bonne nuit Staple1600