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

Etoto · 3 Juin 2022

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 · 3 Juin 2022

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 · 3 Juin 2022

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 · 3 Juin 2022

Hello,

Lolote83 à dit:
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.

djidji59430 à dit:
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 · 7 Juin 2022

Hello,

Etoto à dit:
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 · 7 Juin 2022

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 · 7 Juin 2022

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

Bernard_XLD · 7 Juin 2022

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 · 7 Juin 2022

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+

Etoto · 8 Juin 2022

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

mapomme · 8 Juin 2022

Bonsoir à tous,

Pour le premier nombre :

VB:

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

Pour le second nombre :

Code:

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

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

Etoto

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

Pièces jointes

djidji59430

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

djidji59430

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires