Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compter des chiffres

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Olyxier
  • 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 !

S'inscrire
O

Olyxier

XLDnaute Occasionnel
Bonsoir

voici mon problème je souhaite pouvoir compter des chiffres.

Dans la même cellule j'ai ex: 7 8 9 5 4 3 3 2 9 6 1

j'aimerai donc que dans une cellule de mon choix excel me dise qu'il y a 11 chiffres dans mon exemple.

Et dans une cellules à côté de celle qui m'à dit qu'il y avait 11 chiffres combien de chiffres sont compris entre 1 et 3 soit 4 chiffres dans mon exemple

voici d'autres exemple de ce que je voudrai car si en plus il y a des guillemets on ne compte que les chiffres avant

1 5 8 7 4 3 6 ( 09) 2 2 sept chiffres et deux compris entre 1 et 3
4 5 8 2 2 3 4 1 (09) 4 8 2 Huit chiffres et quatre compris entre 1 et 3
8 8 3 5 2 3 1 1 Huit chiffres et cinq compris entre 1 et 3

ce qui en plus serai vraiment super ce serai de m'expliquer la démarche pour que je puisse essayer de modifier le code si un jour je souhaite compter par exemple les 4 en plus des 1.2.3

je vous remercie d'avance car si pour moi ce code est introuvable pour vous c'est du gâteau
merci encore et bonne soirée
 
Trier par date Trier par votes
Re : Compter des chiffres

re,

Peux-tu joindre un fichier exemple avec peut-être une dizaine de lignes reprenant les différents cas de figure possibles.

Sinon, dans ton exemple, le 09 entre parenthèse doit-il être pris en compte au titre des chiffres ?

Je verrais tout ça demain.

@+
 
Vote positif 0 Vote négatif
Re : Compter des chiffres

Ps si je veux compter en même temps plusieurs cellule quel modif faux t'il faire merci
Cliquez pour agrandir...

Voici comment modifier le code, pour écrire les données à droite des cellules :

Code: 
Private Sub CommandButton2_Click()
' La boucle analyse les cellules depuis A1 jusqu'à la dernière cellule remplie en colonne A
[COLOR="Red"]For lg = 1 To Range("A65536").End(xlUp).Row[/COLOR]
' Créé une variable contenant la chaine de caractères en supprimant les espaces
  Cel = Replace(Cells(lg, 1), " ", "")
' Détermine la position de la parenthèse ouvrante
  Pos = InStr(Cel, "(")
' Si la parenthèse ouvrante est trouvée, alors on extrait la partie gauche de la chaine jusqu'au caractère précédant la parenthèse
  If Pos > 0 Then
    Cel = Left(Cel, Pos - 1)
  End If
' Écrit le nombre de chiffres de la chaine dans la cellule en colonne B
  [COLOR="Red"]Cells(lg, 2)[/COLOR] = Len(Cel)
' Initialise la variable lng (servant à compter le nombre de chiffres < ou = à 3)
  lng = 0
' Boucle de recherche des chiffres < ou = à 3
' si un chiffre est trouvé, on ajoute 1 à la variable lng
  For n = 1 To Len(Cel)
    If Mid(Cel, n, 1) <= 3 Then lng = lng + 1
  Next
' Écrit le nombre de chiffres < ou = à 3 dans la cellule en colonne C
  [COLOR="Red"]Cells(lg, 3)[/COLOR] = lng
[COLOR="Red"]Next[/COLOR]
End Sub

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Compter des chiffres

Bonjour,

Une solution formule (valable pour Excel 2007, compte tenu du nombre d'imbrication de fonctions :

Code: 
=NBCAR(SUBSTITUE(GAUCHE(A1;TROUVE("(";A1&"(")-1);" ";""))

et

Code: 
=SOMMEPROD((ESTNUM(STXT(SUBSTITUE(GAUCHE(A1;TROUVE("(";A1&"(")-1);" ";"");
LIGNE(INDIRECT("1:"&NBCAR(SUBSTITUE(GAUCHE(A1;TROUVE("(";A1&"(")-1);" ";""))));
1)*1)*1);((STXT(SUBSTITUE(GAUCHE(A1;TROUVE("(";A1&"(")-1);" ";"");LIGNE(
INDIRECT("1:"&NBCAR(SUBSTITUE(GAUCHE(A1;TROUVE("(";A1&"(")-1);" ";""))));1))
<"4")*1)

Formules à recopier vers le bas

@+
 
Vote positif 0 Vote négatif
Re : Compter des chiffres

Bonjour Tibo

impossible entrer la formule spécifié car elle utilise plus de niveau imbication que ne l'autorise le
format fichier

Bonne journée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Compter des chiffres

re,

Finalement, une formule plus simple pour la 2ème (passe sans problème sous Excel 2003) :

Code: 
=SOMMEPROD((STXT(GAUCHE(A1;TROUVE("(";A1&"(")-1);LIGNE(INDIRECT("1:"&NBCAR(GAUCHE(
A1;TROUVE("(";A1&"(")-1))));1)<"4")*(STXT(GAUCHE(A1;TROUVE("(";A1&"(")-1);LIGNE(
INDIRECT("1:"&NBCAR(GAUCHE(A1;TROUVE("(";A1&"(")-1))));1)<>" "))

Je te laisse tester

@+
 
Vote positif 0 Vote négatif
Re : Compter des chiffres

Bonsoir
encore un pti problème lorsque la formule compte les chiffres ex: 5 8 9 6 7 3 2 1 0 0 5

=NBCAR(SUBSTITUE(GAUCHE(CY15;TROUVE("(";CY15&"(")-1);" ";""))

cette formules marche très bien

mais le problèmes c'est la formule suivante qui compte les 0 alors que je ne voudrais compter que les chiffres de 1 à 3

=SOMMEPROD((STXT(GAUCHE(CY15;TROUVE("(";CY15&"(")-1);LIGNE(INDIRECT("1:"&NBCAR(GAUCHE(
CY15;TROUVE("(";CY15&"(")-1))));1) <"4")*(STXT(GAUCHE(CY15;TROUVE("(";CY15&"(")-1);LIGNE(
INDIRECT("1:"&NBCAR(GAUCHE(CY15;TROUVE("(";CY15&"(")-1))));1)<>" "))

merci et bonne soirée
 
Vote positif 0 Vote négatif
Re : Compter des chiffres

re,

J'avais en fait pris en compte ton fichier d'hier soir où je n'avais vu aucun zéro.

J'en avais conclu, sans doute un peu hâtivement, qu'il n'y avait pas de zéro.

Petite adaptation :

Code: 
=SOMMEPROD((STXT(GAUCHE(A1;TROUVE("(";A1&"(")-1);LIGNE(INDIRECT("1:"&NBCAR(
GAUCHE(A1;TROUVE("(";A1&"(")-1))));1)<"4")*(STXT(GAUCHE(A1;TROUVE("(";A1&"(")-1)
;LIGNE(INDIRECT("1:"&NBCAR(GAUCHE(A1;TROUVE("(";A1&"(")-1))));1)>"0")*(STXT(
GAUCHE(A1;TROUVE("(";A1&"(")-1);LIGNE(INDIRECT("1:"&NBCAR(GAUCHE(A1;TROUVE(
"(";A1&"(")-1))));1)<>" "))

Je te laisse tester

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
Autres comment effectuer une recherche ordre
2
Réponses
27
Affichages
740
n_turf
N
G
  • Résolu(e)
Microsoft 365 Comparer les prévisions de chiffres affaires projets
Réponses
7
Affichages
426
Germaine
G
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
483
Electron24
C
  • Question Question
XL 2021 challenge de régularité sous EXCEL
Réponses
1
Affichages
100
WTF
C
  • Question Question
Microsoft 365 Encadrement de valeur de textbox par deux nombres decimal
Réponses
5
Affichages
267
Claudiuss
C
Y
  • Résolu(e)
XL 2016 Evaluation sur des imposés
Réponses
6
Affichages
254
YGU1
Y
  • Question Question
XL 2021 Besoin aide sur macro en VBA
Réponses
0
Affichages
256
Francoise_nord
N
  • Question Question
XL 2021 Décompter des valeurs qui se répètent sur deux feuilles
Réponses
3
Affichages
248
Hecatonchire
H
N
  • Question Question
XL 2010 recherche formule
2
Réponses
23
Affichages
655
n_turf
N
C
  • Résolu(e)
XL 2019 Probléme de foncitonnement
Réponses
7
Affichages
146
ciarab8442
C
A
  • Question Question
XL 2010 Comment trier des onglets par ordre croissant
Réponses
4
Affichages
426
aurelio.ewane
A
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
393
job75
Y
  • Résolu(e)
XL 2016 Validation de données en fonction d'une table
Réponses
3
Affichages
242
youguybass
Y
T
  • Résolu(e)
XL 2010 Formule - Numéro à 5 chiffres transformé en date
Réponses
2
Affichages
398
Dranreb
F
Fdaga
Réponses
2
Affichages
135
dysorthographie
M
  • Résolu(e)
XL pour MAC Tirages aléatoires avec critères
2
Réponses
16
Affichages
1 K
crocrocro
C
A
  • Question Question
Power Pivot Numéro de semaine ouvrable dans le calendrier dans le modèle de données
Réponses
1
Affichages
277
fanfan38
  • Résolu(e)
Microsoft 365 Comment supprimer un espace entre deux chiffres ?
2
Réponses
18
Affichages
779
Staple1600
S
  • Question Question
XL 2016 classement avec conservation des doublons et éviter les sauts des chiffres.
Réponses
10
Affichages
530
saberamira
S
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
539
youguybass
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…