Extraction d'une chaîne de caractères

[joss56]

Bonjour à tous,

Dans une cellule, j'ai des données qui se présentent ainsi: T0,T28,T56.
T0 signifie jour1, T28, jour 28 etc... Comment extraire la valeur maximale d'une telle chaîne? Par exemple, ici, je voudrais récupérer la valeur 56. Merci de votre aide et bon dimanche.

Jocelyn

 

[joss56]

Re : Extraction d'une chaîne de caractères

Merci JNP, tout est ok. Bon dimanche

 

[MichelXld]

Re : Extraction d'une chaîne de caractères

bonjour à vous

avec un peu de retard, si la valeur maxi est placée n'importe ou dans la chaine de caractères :

Option Explicit
Option Base 1
 
Sub extraireValeursNumeriques_DansChaine()
    Dim i As Integer
    Dim Nb As Byte
    Dim Cible As String
    Dim Resultat() As Long
    Dim Nombre As Long
    
    Cible = "T20 T8 T40 T66 T5"
    'Pour que fonction Val puisse reconnaitre les décimales:
    'Remplacement des virgules par des points
    Cible = Replace(Cible, ",", ".")
    
    For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
            Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
            Nb = Nb + 1
            ReDim Preserve Resultat(Nb)
            Resultat(Nb) = Nombre
        End If
    Next
    
    MsgBox Application.WorksheetFunction.Max(Resultat())
End Sub

bonne journée
michel