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

dénombrer avec conditions [CountIf]

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pou pouille
  • 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
P

pou pouille

Guest
Bonjour,
je fait appèle a vos service pour un problème avec la fonction CountIf utilisé dans une de mes macro.
Problème :
j'ai trois colonnes A,B,C
dans A (rien) , en B des donnée numériques, en C des données numériques avec un indice . exemple:
1 123
1 124
2 150
2 152
1 123 B
1 123 C

et cela sur plusieurs lignes ( au moins 300)

ce que je souhaiterai :
dans la colonne E dénombrer le nombre de 1 ( dans la ligne B) et pas d'indice dans le numéro de colonne C

pour l'instant dans mon fichier je compte le nombre de 1 , 2, 3 ... dans la colonne B mais sans pouvoir les différencier.
(dans mon code la boucle va jusqu'a 20000 parce que je peut avoir des boites avec comme numéro 10100)

je joins mon fichier.
Par avance merci.
Pou Pouille
 

Pièces jointes

Trier par date Trier par votes
Re : dénombrer avec conditions [CountIf]

merci pour la réponse.
mais le principe de la macro c'est que je récupère un fichier je le transforme avec le format que tu vien de voir, et ensuite je fait l'inventaire des composants ( qui sont appelé Repère TOPO) => nombre de composant pour chaque boite ( et le nombre de boite peut varier, voir ne pas y avoir toutes les boite ex : 1,2,5,19.. 10100), et ensuite je récupère le nom dans la cellule Référence GPAO .
( je ne sais pas si tu as éxécuter un peut ma macro ? elle donne une partie de l'idé mais ne peut faire la différence entre une boite avec l'indice B ou C justement à cause d'un seul critère pour la fonction CountIf)

encore merci pour avoir pris du temps pour travailler sur mon fichier.
Pou Pouille
 
Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]

Un grand merci à skoobi et Lii d'avoir réflichi sur ma Macro ^^
en effet c'est exactement ce que je souhaitais faire !
j'ai juste une petite réclamation ( oui une dernière ^^) serait-il possible de copier la colonne A qui correspond à chaque boite ? meme si ici il n'y as rien dans les cases A il faudrait les retrouver dans la colone E
je joint le petit exemple ,
en tout cas , encore un très grand merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]

Re,

Je te propose ce code:

Code: 
Sub Macro1()
Dim DicoBoite As Object, Boite As Range, DerLig As Integer, Lig As Integer, Elmnt As Variant
Application.ScreenUpdating = False
[E2:E65000].ClearContents
Set DicoBoite = CreateObject("Scripting.Dictionary")
DerLig = [B65000].End(xlUp).Row
'on identifie la liste unique des boites
For Each Boite In Range([B2], [B65000].End(xlUp))
   If Not DicoBoite.Exists(Boite.Value) Then DicoBoite.Add Boite.Value, Boite.Value
Next Boite

For Each Elmnt In DicoBoite.items
  Lig = [E65536].End(xlUp).Row + 1
  Range("E" & Lig).Value = Elmnt: Range("E" & Lig + 1).Value = Elmnt & "B": Range("E" & Lig + 2).Value = Elmnt & "C"
  Range("F" & Lig).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)<>""C"")*(RIGHT(C2:C" & DerLig & ",1)<>""B""))")
  Range("F" & Lig + 1).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""B""))")
  Range("F" & Lig + 2).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""C""))")
Next
End Sub

Edit: ouppsss, j'avais pas édité, bonjour Lii 🙂
 
Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]


Voici:

Code: 
Sub Macro1()
Dim DicoBoite As Object, Boite As Range, DerLig As Integer, Lig As Integer, Elmnt As Variant
Dim Qte As Integer, QteB As Integer, QteC As Integer
Application.ScreenUpdating = False
[E2:E65000].ClearContents
Set DicoBoite = CreateObject("Scripting.Dictionary")
DerLig = [B65000].End(xlUp).Row
'on identifie la liste unique des boites
For Each Boite In Range([B2], [B65000].End(xlUp))
   If Not DicoBoite.Exists(Boite.Value) Then DicoBoite.Add Boite.Value, Boite.Value
Next Boite

For Each Elmnt In DicoBoite.items
  Lig = [E65536].End(xlUp).Row + 1
  Qte = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)<>""C"")*(RIGHT(C2:C" & DerLig & ",1)<>""B""))")
  QteB = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""B""))")
  QteC = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""C""))")
  If Qte > 0 Then
    Range("E" & Lig).Value = Elmnt
    Range("F" & Lig).Value = Qte
    Range("G" & Lig).Value = Columns(2).Find(Elmnt, LookIn:=xlValues, lookat:=xlWhole).Offset(0, -1).Value
    Lig = Lig + 1
  End If
  If QteB > 0 Then
    Range("E" & Lig).Value = Elmnt & "B"
    Range("F" & Lig).Value = QteB
    Lig = Lig + 1
  End If
  If QteC > 0 Then
    Range("E" & Lig).Value = Elmnt & "C"
    Range("F" & Lig).Value = QteC
    Lig = Lig + 1
  End If
'  Range("E" & Lig).Value = Elmnt: Range("E" & Lig + 1).Value = Elmnt & "B": Range("E" & Lig + 2).Value = Elmnt & "C"
'  Range("F" & Lig).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)<>""C"")*(RIGHT(C2:C" & DerLig & ",1)<>""B""))")
'  Range("F" & Lig + 1).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""B""))")
'  Range("F" & Lig + 2).Value = Evaluate("SUMPRODUCT((B2:B" & DerLig & "=" & Elmnt & ")*(RIGHT(C2:C" & DerLig & ",1)=""C""))")
Next
End Sub
 
Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]

Un grand merci pour ce code c'est exactement je que je souhaitais faire ( en plus je m'était trompé dans la colonne cible qui n'était pas E mais bien G comme tu l'as écrit).
cela va me faire gagner 1 journée de préparation .
 
Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]

Re,

j'aurais ajouté à ma macro, les lignes en gras :
Code: 
Next
  [B]For Each cel In Range("D2:D" & DerLi)
    For Each cl In Range("B2:B" & DerLi)
      If cel = cl Then Cells(cel.Row, "F") = cl.Offset(, -1): Exit For
    Next
  Next[/B]
End Sub

skoobi 😉 donne, judicieusement, un exemple de traduction de formules en macro.
 
Vote positif 0 Vote négatif
Re : dénombrer avec conditions [CountIf]

bonjour le fil et dsl de revenir que maintenant mais lorsque j'ai tester les macro , j'avai pas de référence,
or cela fonctionne bien pour les cellules sans indice, cependant pour les indices B ou C cela ne fonctionne pas (il dénombre mais ne copie pas le code GPAO en cellule G).
cela vien du faite que dans le code de skoobi il n'y as pas cette ligne
Code: 
Range("G" & Lig).Value = Columns(2).Find(Elmnt, LookIn:=xlValues, lookat:=xlWhole).Offset(0, -1).Value
pour les 2 autres if..., si je place cette ligne tel qu'elle il me copi systématiquement la première valeur trouvé or ce n'est pas ce que je souhaite.
et Lii j'ai essayer d'ajouter les lignes dans la macro d'orrigine mais je ne comprend pas bien ou les placer dsl .
merci d'avance pour vos réponses
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
366
Piment
P
X
  • Résolu(e)
Microsoft 365 Formule avec conditions
2
Réponses
20
Affichages
1 K
piegal
V
  • Question Question
XL 2019 Numéro d'ordre automatique
Réponses
1
Affichages
523
vilcoyotte90
V
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
812
RyuAutodidacte
A
  • Question Question
XL 2013 Aide dans une formule IndexEquiv/Recherche V
Réponses
7
Affichages
695
danielco
D
N
  • Résolu(e)
XL 2021 Recherche une valeur avec plusieurs conditions
Réponses
10
Affichages
712
Lolote83
L
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Résolu(e)
Microsoft 365 Si avec des conditions
Réponses
8
Affichages
821
milor17
M
C
  • Question Question
XL pour MAC Incrementation automatique par paquet
Réponses
3
Affichages
702
sylvanu
A
  • Question Question
Google Sheets rang et doublon google sheet
Réponses
1
Affichages
933
Adrienelodie
A
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
3 K
Mak_tarmak
M
D
  • Question Question
XL 2013 Répartir une liste de tâches
Réponses
0
Affichages
721
degards
D
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
B
  • Question Question
XL 2013 Interdire saisie de doublon et faire synthèse à chaque saisie
Réponses
5
Affichages
732
BIROULIG
B
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
2 K
gaby.jvx
G
  • Résolu(e)
Microsoft 365 Somme avec plusieurs conditions
Réponses
4
Affichages
756
Roseline
R
  • Question Question
XL 2016 Comptabiliser sans doublon avec conditions
Réponses
5
Affichages
891
ram_ia
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…