compter cellule oui/non dans tous les onglets

[Marc21]

Rebonjour,
Dans le fichier qui m'ajoute des onglets a ma demande, j'ai une cellule h8 qui dans chaque onglet qui contient la mention 'NON' pour m'informer que cette feuille ou onglet n'est pas terminée et si il y a un 'OUI' c'est qu'elle est clôturée et comment puis-je sur ma feuille 'Présentation' en c4 comptabiliser le nombre de 'non' et en et en c5 comptabiliser le nombre de 'oui' de toutes les feuilles ou onglets du fichier.

Merci

Marc21

 

[Robert]

Bonsoir Marc, bonsoir le forum,

Il doit y avoir beaucoup plus simple avec une formule mais je suis trop nul en formules... Je te porpose donc la macro ci-dessous :

Sub Macro1()
Dim x As Byte, y As Byte 'déclare les variables x et y
Dim ws As Worksheet 'déclare la variable ws

For Each ws In Sheets 'boucle sur tous les onglets du classeur
If Not ws.Name = 'Présentation' Then
'si la cellule H8 de l'onglet contient 'OUI', redéfinit la variable x
If UCase(ws.Range('H8').Value) = 'OUI' Then x = x + 1
'si la cellule H8 de l'onglet contient 'NON', redéfinit la variable y
If UCase(ws.Range('H8').Value) = 'NON' Then y = y + 1
End If
Next ws

With Sheets('Présentation')
.Range('C4') = y 'place en C4 le nombre de 'NON'
.Range('C5') = x 'place en C5 le nombre de 'OUI'
End With
End Sub

 

[Marc21]

Je te remercie, c'est ok, cool
c'est vraiment ce que je voulais,
j'ai encore appris qqe chose,

merci a toi et aux foruméens et foruméennes.......

a+
Marc21