Recherche le numéro le plus grand dans un texte, dans une colonne.

**Clemna** · 08/02/2017, 15h50

Bonjour,

Cela fait quelques jours que je n'arrive pas à venir à mes fins et je sollicite votre aide svp.

J'ai une colonne (G) rempli de ligne avec du texte du type : XXXX10
XXXX12
etc...

Je cherche à connaitre et à afficher dans une cellule le texte qui possède le numéro le plus grand de cette colonne.

Par avance, je vous remercie !

**joe.levrai** · 08/02/2017, 15h53

Bonjour,

ton exemple est fiable, et :

- ce sont des numéros à deux chiffres
- ils sont toujours situés à la fin du texte

?

**Clemna** · 08/02/2017, 15h57

Alors les numéros sont de 1 à 6 chiffres maximum et oui les chiffres sont toujours à la fin !

merci !

**BENNASR** · 08/02/2017, 15h55

bonsoir
Je crois que la fonction standard DROITE de EXCEL fait l'affaire

=DROITE(A1;2)

le 2 concerne le nombre des caractère à extraire de la chaîne des caractères

**Marc-L** · 08/02/2017, 15h59

Bonjour !

Envoyé par Clemna

Je cherche à connaitre et à afficher dans une cellule le texte qui possède le numéro le plus grand de cette colonne

Extraction via une expression rationnelle par exemple puis soit comparaison des résultats
soit via la fonction de feuille de calculs Application.Max …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**Clemna** · 08/02/2017, 16h02

Extraction via une expression rationnelle par exemple puis soit comparaison des résultats
soit via la fonction de feuille de calculs Application.Max …

Très bien je vais regarder ça !

**Marc-L** · 08/02/2017, 16h20

Une p'tite démonstration :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Demo()
            VA = Range("G1", Cells(Rows.Count, 7).End(xlUp)).Value
    With CreateObject("VBScript.RegExp")
            .Pattern = "\d+$"
        For R& = 1 To UBound(VA)
            If .Test(VA(R, 1)) Then VA(R, 1) = Val(.Execute(VA(R, 1))(0).Value)
        Next
    End With
        MsgBox Application.Max(VA)
End Sub