Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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