Discussion :

[juancu]

Bonjour à tous !

Je suis nouveau sur Excel et je me retrouve face à une situation que je n'arrive pas à résoudre malgré mes nombreuses recherches, j'espère que vous pourrez m'aider à la solutionner car je commence à désespérer.

Dans ma feuille Excel, j'ai plusieurs cellules contenant du texte, des chiffres, et en général un nombre de plus de 4 chiffres.

Exemple de texte dans une cellule : "iPhone 64 GB, en très bon état, référence 243278, garantie de 12 mois".

La seule constante dans mes cellules est ce nombre de plus de 4 chiffres, il peut se retrouver n'importe dans la cellule et le mot « référence » n'est pas une constante, il ne se retrouve donc pas dans toutes les cellules.

je ne peux donc pas utiliser une formule qui effacerais uniquement les lettres car tous mes chiffres se retrouverait collé ensemble (Cela donnerait quelque chose comme 6424327812 dans cet exemple), et je ne peux pas non plus garder le nombre juste après le mot « référence » car ce mot n'apparaît pas dans toutes les cellules.

Je recherche donc une formule qui pourrait me permettre d'effacer tout le contenu de la cellule sauf les nombres de plus de 4 chiffres.

savez-vous si c'est quelque chose de faisable, et si oui comment y arriver SVP ?

Je vous remercie par avance de vos réponses !

Juan

[jurassic pork]

Hello,
je te propose une fonction personnalisée en VBA utilisant les expressions régulières :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ExtBigNum(Cellule)
Dim oRegExp As Object, oRegMatches As Object
ExtBigNum = ""
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "\d{4,}"
oRegExp.Global = True
Set oRegMatches = oRegExp.Execute(Cellule)
If oRegMatches.Count = 1 Then
   ExtBigNum = oRegMatches(0)
End If
Set oRegExp = Nothing
Set oRegMatches = Nothing
End Function

Explication du motif \d{4,} : une suite de chiffres composée d'au moins 4 chiffres.
La fonction ne renvoie rien si il n'y a pas de nombre répondant au motif ou si il y a plus d'un nombre répondant au motif.




Ami calmant, J.P

[Raccourcix]

Bonjour

par formule avec Excel 365 ou 2021 (j'utilise la fonction SEQUENCE)

Code :

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

=MAX(SIERREUR(--STXT(A1;EQUIV(VRAI;ESTNUM(--STXT(SUBSTITUE(A1;" ";"x");SEQUENCE(NBCAR(A1)-3);4));0);SEQUENCE(20));""))

SUBSTITUE(A1;" ";"x") remplace les espaces par des x
STXT(...;SEQUENCE(NBCAR(A1)-3);4) va générer la liste de 4 caractères successifs
ESTNUM(--...) va convertir cette liste en VRAI si numérique, FAUX sinon
EQUIV(VRAI;...;0) va renvoyer la position du 1er VRAI (donc de la première série de 4 chiffres successifs)

STXT(A1;...;SEQUENCE(20)) va tester toutes les chaines de texte à partir de la position déterminée
MAX(SIERREUR(--...;"")) va renvoyer la plus grande (et donc la plus longue)

il y a peut-être plus simple !

Stéphane