Msgbox pour afficher le résultat d'une addition

Version imprimable

Bonjour,

J'ai un fichier avec plusieurs feuilles Excel pour le moment 4 ou 5 mais cela pourrait augmenter autour d'une dizaine de feuilles.
Sur la première colonne de chaque feuille j'ai créé une formule qui m'alerte sur des tâches que je dois réaliser à partir d'une date donnée dans la deuxième colonne :
une des formules => A2

Code:

=SI(C2="";"";SI(D2<>"";"";SI(C2+21>AUJOURDHUI();"";"travail à effectuer")))

Maintenant mon problème :
Je souhaite à l'ouverture du fichier passer par une Msgbox qui m'indiquerait par feuille le nombre de taches à effectuer pour le moment j'ai fait ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Workbook_Open() Dim R As Long Dim S As Long Dim T As Long With Application.WorksheetFunction R = .CountA(Worksheets("Feuil1").Columns(1)) S = .CountA(Worksheets("Feuil2").Columns(1)) T = .CountA(Worksheets("Feuil3").Columns(1)) MsgBox ("il y a " & R & " cellules non vides sur la Feuil1") MsgBox ("il y a " & S & " cellules non vides sur la Feuil2") MsgBox ("il y a " & T & " cellules non vides sur la Feuil3") End With End Sub
Cette méthode me permet bien de compter les cellules non vides (présence d'une formule) mais ce que je veux c'est qu'elle ne compte que les cellules où il y a un résultat.

Je précise n'avoir qu'un faible niveau en VBA et que si la solution est trop compliqué je réaliserai une feuille accueil où j'utiliserai des formules NB

Merci par avance de vos réponses.

Bonjour,

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim R As Long
Dim S As Long
Dim T As Long
Dim I As Byte
 
With Application
    For I = 1 To 3
        R = Sheets("Feuil" & I).Rows.Count - .CountBlank(Sheets("Feuil" & I).Columns(1))
        MsgBox ("il y a " & R & " cellules non vides sur la Feuil" & I)
    Next I
End With

10/12/2014, 11h37
lumiere118

Merci pour la réponse

Je n'ai pas encore testé mais j'ai peur que la solution trouvée implique que mes feuilles ne soient pas renommées hors c'est le cas j'avais modifier un peu pour une présentation plus simple mais tous mes onglets portent des noms différents.

Ca serait tellement simple si tu exposais ton problème dans son entièreté dès le début.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim R As Long
Dim S As Long
Dim T As Long
Dim I As Byte
Dim Feuilles As Variant
Feuilles = Array("Feuil1", "Feuil2", "Feuil3") 'change le nom des feuilles
With Application
    For Each Item In Feuilles
        R = Sheets(Item).Rows.Count - .CountBlank(Sheets(Item).Columns(1))
        MsgBox ("il y a " & R & " cellules non vides sur la " & Item)
    Next Item
End With
End Sub

10/12/2014, 12h28
lumiere118

Désolé première fois que je laisse un post, j'ai essayé de penser à tous mais comme je fais peu de VBA j'ai pas pensé sur le moment que le nom des feuilles pouvait poser un problème.
Un grand merci pour la solution.