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

Etoto

XLDnaute Barbatruc
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:p. 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.
 

Pièces jointes

  • Test XLD.xlsx
    9.8 KB · Affichages: 15

Lolote83

XLDnaute Barbatruc
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
 

Pièces jointes

  • Copie de ETOTO - Extraire chiffre.xlsx
    10.9 KB · Affichages: 14

djidji59430

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test XLD.xlsx
    10.7 KB · Affichages: 13
Dernière édition:

Etoto

XLDnaute Barbatruc
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 ?
 

djidji59430

XLDnaute Barbatruc
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)
 

Pièces jointes

  • Test XLD.xlsx
    19.5 KB · Affichages: 1
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour à tous,

Voyez le fichier joint et cette fonction VBA :
VB:
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 ;
Code:
=SIERREUR(INDEX(Extract($R4;"h");COLONNES($R4:R4));"")
A+
 

Pièces jointes

  • Test XLD(1).xlsm
    17.7 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs