Microsoft 365 Extraire un chiffre derrière une lettre bien précise

[Etoto]

Bonjour,

Actuellement, je bosse sur mon fichier de suivi d'activité, je sais, ce n'est pas le plus joli mais pour l'instant, la boîte ne veut pas trop le changer😛. Dans le fichier joint, nous avons des données sur mes heures faites dans une seule cellule et je voudrais les extraire pour faire des statistiques. Je ne vous demande absolument pas de faire les statistiques vous-même, c’est mon job 🤣. La seule chose dont j'aurais besoin, ce serait de pouvoir extraire les données en question, par exemple, je voudrais extraire dans la cellule R6, le "2" et le "3". En gros, tous les chiffres qui se situent avant chaque "h". J'ai tenté de faire des formules qui extraient automatiquement les chiffres mais le "1" qui se situe derrière le "GL" est aussi extrait 🤣. Si c'est possible, j’aimerais que le résultat soit matriciel mais je ne veux pas trop vous demander. Je trouve que c'est déjà assez compliqué 🤣.

Pour information, il peux avoir plus que 2 chiffres à extraire.

Merci d'avance, hâte de voir comment vous allez me surprendre.

 

[Lolote83]

Salut ETOTO,

Ca faisait longtemps.
Voila ce que j'ai imaginé mais il y a des colonnes de calculs. Ya peut être plus simple, mais j'ai fait ca vite fait.
@+ Lolote83

 

[djidji59430]

Bonjour à tous,

En D4
=TRANSPOSE(FILTRE(TRANSPOSE(GAUCHE(FRACTIONNERTEXTE(R4;" = ");1))*1;ESTNUM(TRANSPOSE(GAUCHE(FRACTIONNERTEXTE(R4;" = ");1))*1)))
ou bien, la meme mais en lambda


Crdlmt

 

[Etoto]

Hello,

Voila ce que j'ai imaginé mais il y a des colonnes de calculs. Ya peut être plus simple, mais j'ai fait ca vite fait.

Lolote, tu es toujours là pour m'aider et je t'en remercie. Cela fonctionne bien.

FRACTIONNERTEXTE

Dit-moi, c'est une fonction personnalisée ? Car je ne l'ai pas sur l'ordinateur. Tu pourrais m'envoyer son code VBA ?

 

[Etoto]

Hello,😅

Dit-moi, c'est une fonction personnalisée ? Car je ne l'ai pas sur l'ordinateur. Tu pourrais m'envoyer son code VBA ?

J'ai rien dit, mon entreprise n'a visiblement pas encore mis entièrement à jour Office 365. Du coup, la fonction FRACTIONNERTEXTE ne fonctionne pas chez moi.🤨

 

[djidji59430]

Bonjour à tous,
Je viens de regarder, et effectivement, c'est encore seulement avec insider.
Avec Power query (données==>obtenir des données
Ajouter une cellule a la colonne R et actualiser le tableau (clic droit==>actualiser)

 

[Etoto]

Merci, je regarderais ton fichier plus tard, en tout cas merci d'avance.

 

[Bernard_XLD]

Bonjour Etoto, lolote83, djidji59430, le forum

Regarde cette fonction personnalisée de PatrickToulon, elle devrait te convenir.

Cordialement, @+
https://www.excel-downloads.com/threads/getnumontext.20060449/

 

[job75]

Bonjour à tous,

Voyez le fichier joint et cette fonction VBA :

Function Extract(txt$, sep$)
Dim s, i%, x$, a(), n%
s = Split(txt, sep)
For i = 0 To UBound(s)
    x = StrReverse(Trim(s(i)))
    If IsNumeric(Left(x, 1)) Then
        ReDim Preserve a(n) 'base 0
        a(n) = Val(StrReverse(Val(x)))
        n = n + 1
    End If
Next
If n Then Extract = a Else Extract = "" 'vecteur ligne
End Function

Le code doit être placé impérativement dans un module standard.

Formule en T4 à tirer à droite et vers le bas ;

=SIERREUR(INDEX(Extract($R4;"h");COLONNES($R4:R4));"")

A+

 

[Etoto]

Merci beaucoup à tous, je testerais vos méthodes demain matin sur l'ordinateur en question. Passez un excellent après-midi.

 

[mapomme]

Bonsoir à tous,

Pour le premier nombre :

=--GAUCHE(STXT(R4;TROUVE("=";R4)+1;99);TROUVE("h";STXT(R4;TROUVE("=";R4)+1;99))-1)

Pour le second nombre :

=--SUPPRESPACE((SUBSTITUE(DROITE(SUBSTITUE(R4;" ";REPT(" ";255));255);"h";"")))