Discussion :

[JohnVist]

Bonjour,

J'ai besoin de votre aide.
J'ai un fichier excel (pièce_jointe) qui comporte des noms et des colonnes contenant des "yes" et "no"
J'arrive pas acompter le nombre de "yes" et de l'inscrire dans la cellule vide juste de dessous, puis de continuer
le même procédé pour les reste des céllules.
voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub compteur_yes()
'
' compteur_yes Macro
'
 
'
Dim i, compteur As Integer
i = 1
compteur = 0
 
While Not (IsEmpty(Cells(i, 4)))
    If (Cells(i, 4).Value = "Yes") Then
    compteur = compteur + 1
    End If
    Cells(i + 1, 4) = compteur
    compteur = 0
Wend
 
 
 
End Sub

Merci d'avance

[joe.levrai]

Bonjour,

une idée comme ça

adapte la ligne de départ et le nom de la feuille
tu peux aussi ajouter une variable pour la colonne

et au final, tu fais une boucle pour chaque colonne, et une autre boucle (si besoin) pour chaque bloc de lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub compteur_yes()
 
Dim LigDepart As Long
Dim LigFin As Long
Dim Critere As String
 
With Worksheets("Feuil1")
    Critere = "yes"
    LigDepart = 1
    LigFin = .Cells(LigDepart, 4).End(xlDown).Row
    .Cells(LigFin + 1, 4) = Application.WorksheetFunction.CountIf(.Range(.Cells(LigDepart, 4), .Cells(LigFin, 4)), Critere)
End With
 
End Sub

[Menhir]

Ca peut se résoudre facilement avec une formule Excel.
En supposant que tes données aille de la ligne 1 à 100, pour avoir le nombre de Yes de la colonne I :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(I$1:I$100;"Yes")

Tu remplaces Yes par No et tu as le nombre de No.

[JohnVist]

Bonjour,

une idée comme ça

adapte la ligne de départ et le nom de la feuille
tu peux aussi ajouter une variable pour la colonne

et au final, tu fais une boucle pour chaque colonne, et une autre boucle (si besoin) pour chaque bloc de lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub compteur_yes()
 
Dim LigDepart As Long
Dim LigFin As Long
Dim Critere As String
 
With Worksheets("Feuil1")
    Critere = "yes"
    LigDepart = 1
    LigFin = .Cells(LigDepart, 4).End(xlDown).Row
    .Cells(LigFin + 1, 4) = Application.WorksheetFunction.CountIf(.Range(.Cells(LigDepart, 4), .Cells(LigFin, 4)), Critere)
End With
 
End Sub

Bonjour,

merci de ton aide, ça marche mais saurais-tu comment mettre la condition jusqu'à la dernière ligne vide ?
Car j'ai essayé la boucle for.. mais il continue au delà des lignes vides de la cellule.
Et je suppose que je dois mettre une seconde boucle pour les autres colonnes qui contiennent des "yes" et "no"

Cordialement

[joe.levrai]

j'ai juste besoin de savoir :

- la toute première ligne de ta feuille où tu aurais des yes/no : ça permettra de calculer le premier bloc à traiter pour traiter tout les blocs .. ensuite on s'arrêtera simplement quand on aura atteint la dernière ligne non vide de ta feuille
- les colonnes où sont ces yes/no, comment on peut les définir ? : ça permettra de boucler le traitement sur chaque colonne

[JohnVist]

j'ai juste besoin de savoir :

- la toute première ligne de ta feuille où tu aurais des yes/no : ça permettra de calculer le premier bloc à traiter pour traiter tout les blocs .. ensuite on s'arrêtera simplement quand on aura atteint la dernière ligne non vide de ta feuille
- les colonnes où sont ces yes/no, comment on peut les définir ? : ça permettra de boucler le traitement sur chaque colonne

Bonjour,

La ligne sur laquelle il faudra commencer c'est la ligne n° 3

Par ailleurs, actuellement le calcul de donne le cumul des "yes" entre chaque vide
alors que moi je veux uniquement le nombre de vide sans tenir compte de ceux au dessus
des précédents dides.

Merci

[joe.levrai]

je n'ai rien compris à ta dernière phrase ... qui semble aller à l'encontre :

- de ta demande initiale
- du code que tu avais essayé de faire

[JohnVist]

je n'ai rien compris à ta dernière phrase ... qui semble aller à l'encontre :

- de ta demande initiale
- du code que tu avais essayé de faire

Au fait ce que je veux:

Quand j'ai 2 vide avec par exemple 2 "yes" et 3 "yes"
je veux qu'il m'insert 2 dans le 1e vide et 3 dans le séconde.
Le code actuel m'insert 2 dans le premier et 5 dans le 2e au lieu de 3

[joe.levrai]

Donc si j'ai bien compris, le problème du cumul de nombre tu ne l'a pas rencontré avec mon code (encore que ... mon exemple commençait en ligne 1)

et tu veux que :

- pour chaque bloc, dont le premier bloc commence en ligne 3
- on compte le nombre de yes
- on marque le nombre de "yes" de ce bloc dans la cellule "vide" en dessous du bloc
- on passe au bloc suivant en remettant le compteur à 0
- etc... jusqu'au dernier bloc de la colonne

[JohnVist]

Donc si j'ai bien compris, le problème du cumul de nombre tu ne l'a pas rencontré avec mon code (encore que ... mon exemple commençait en ligne 1)

et tu veux que :

- pour chaque bloc, dont le premier bloc commence en ligne 3
- on compte le nombre de yes
- on marque le nombre de "yes" de ce bloc dans la cellule "vide" en dessous du bloc
- on passe au bloc suivant en remettant le compteur à 0
- etc... jusqu'au dernier bloc de la colonne

Oui c'est exactement cela !!!!! :cool:
Et pour le cumul je l'ai eu avec ton code en ajoutant une boucle for..

[joe.levrai]

ça devrait ressembler à ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub compteur_yes()
 
Dim LigDepart As Long
Dim LigFin As Long
Dim DerLig As Long
Dim Critere As String
 
With Worksheets("Feuil1")
    Critere = "yes"
    LigDepart = 3
    DerLig = .Cells(.Rows.Count, 4).End(xlUp).Row
 
    While LigDepart < DerLig
        LigFin = .Cells(LigDepart, 4).End(xlDown).Row
        .Cells(LigFin + 1, 4) = Application.WorksheetFunction.CountIf(.Range(.Cells(LigDepart, 4), .Cells(LigFin, 4)), Critere)
        LigDepart = LigFin + 2
    Wend
 
End With
 
End Sub

[JohnVist]

Merci joe.levrai,

Le code marche parfaitement ! :cool:
Un dernier point, je fais une boucle pour faire ce traitement pour plusieurs colonnes en même temps ?
Pour l'instant j'ai choisi la colonne 4 , avant de pouvoir utiliser le code pour plusieurs colonnes.

Bonne soirée!

[joe.levrai]

Bonjour,

la boucle pour appliquer le traitement sur plusieurs colonnes aurait été incluse dans ma proposition, si tu avais répondu à la seconde question de mon post #5

si tes colonnes ont la même "longueur", tu peux ajouter à la ligne 12 une boucle qui change de colonne, et réinitialiser LigDepart à chaque tour de boucle
sinon, il faut faire démarrer la boucle entre la ligne 9 et 10 pour recalculer DerLig et réinitialiser LigDepart

et bien sûr, gérer dynamiquement les colonnes, puisqu'ici la colonne 4 est écrite en dure

[JohnVist]

Bonjour,

Ok, désolé j'avais pas fait attention en répondant.

Je teste et te tiens au courant.

Merci