Extraire les deux premier chiffres

  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guido

XLDnaute Accro
Bonjour

J'aimerais pouvoir extraire les deux premiers chiffres

d'une plage en supprimant les valeur zero,et les lettres..

Voir le pti fichier

Merci

Guido
 

Pièces jointes

Re : Extraire les deux premier chiffres

Bonjour Guido

Formule en colonne Q6
Code:
=SI(NB.SI($K6:$P6;">0")>0;INDEX(6:6;1;PETITE.VALEUR((SI($K6:$P6>0;SI(ESTNUM($K6:$P6);COLONNE($K:$P))));1));"")

Formule en colonne R6
Code:
=SI(NB.SI($K6:$P6;">0")>1;INDEX(6:6;1;PETITE.VALEUR((SI($K6:$P6>0;SI(ESTNUM($K6:$P6);COLONNE($K:$P))));2));"")
Ces deux formules sont à valider par les touches Ctrl+Shift+Entrée. après validation Excel entoure la formule par des {}.

@+Jean-Marie
 
Re : Extraire les deux premier chiffres

Bonjour le fil,
Salut Jean-Marie🙂,

Avec une fonction personnalisée:

Code:
Function DeuxPremiersChiffresSansZero(Plage As Range)
    Dim c As Range
    Dim resultat As Variant
    Dim cpt As Integer
    Application.Volatile
    
    For Each c In Plage.Cells
        If cpt = 2 Then Exit For
        If IsNumeric(c) And c.Value > 0 Then
            cpt = cpt + 1
            resultat = resultat & Left(c.Text, 1)
        End If
    Next c
    
    resultat = CDbl(resultat)
    If resultat = 0 Then resultat = ""
    DeuxPremiersChiffresSansZero = resultat

End Function

utilisation:
=DeuxPremiersChiffresSansZero(K6😛6)

A+
 
Re : Extraire les deux premier chiffres

Bonjour Guido,

les formules sont bonnes mais tu dois les valider par Ctrl+Maj+Entrée
mets toi sur la cellule puis F2 et valide avec les trois touches ta formule doit avoir des accolades {formule}
JHA
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
352
Réponses
10
Affichages
305
Réponses
3
Affichages
151
  • Question Question
Réponses
28
Affichages
552
Réponses
6
Affichages
204
Réponses
15
Affichages
541
Retour