compter cellule oui/non dans tous les onglets

Marc21 · 19 Octobre 2005

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 · 20 Octobre 2005

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 · 20 Octobre 2005

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

compter cellule oui/non dans tous les onglets

Marc21

Guest

Robert

XLDnaute Barbatruc

Marc21

Guest

Discussions similaires