Calcul nb de cellules non vides en fonction du mois

**mia.555** · 03/01/2017, 10h24

Bonjour tout le monde,

j'ai besoin que vous m'aidiez avec mon code suivant:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub PPréaliséspardomaine()
Dim sm, support, rth As Integer
Dim i As Integer, j, n, k, ligne As Integer, d, dd As Date, aa As Date
Dim source_SMS As Workbook
Dim classeurpardomaine As Workbook
On Error Resume Next
'Ouvrir le fichier
Set source_SMS = Workbooks.Open(FileName:="C:\Users\\Desktop\Modèle stat\Suivi de réalisation des visites de PP SM 2016.xlsx")
'initialisation des variables à 0
ligne = 0 'nombre de ligne
sm = 0   'somme des opérations de SM
support = 0   'somme des opération de SUPPORT
rth = 0  'somme des opérations de RTH
For i = 6 To Range("M1048576").End(xlUp).Row
Dim mois As String
    mois = Format(Date, "mmmm")
    dd = Cells(i, 13).Value
    If IsDate(dd) = True Then
 
  If Month(dd) = Month(Date) And Year(dd) = Year(Date) Then
                If Cells(i, 13).Value <> "" Then
              sm = sm + 1
 
              End If  
      End If
    End If
 
Next
 
'fermeture du fichier
source_SM.Close False
'Ouvrir le fichier
Set classeurpardomaine = Workbooks.Open(FileName:="\\mv0\Stagia\Stag\projet\Automatisation BDD PP\Documents\Développement\Futur Environnement\Statistique de gestion des PP.xlsx"
Sheets("NB DE PP Réalisés par domaine").Activate
Dim m, x As Integer
Dim valdate As Integer
'boucle for parcourant les colonnes pour trouver le mois et l'année en cours
For m = 2 To 13
 
valdate = Cells(1, m).Value
 
If Month(valdate) = Month(Date) And Year(valdate) = Year(Date) Then
'boucle for parcourant les lignes
For x = 2 To 5
If Cells(x, 1).Value = "SM" Then
    Cells(x, m).Value = sms
End If
Next
'total des cellules
Cells(5, m).Value = sm 
Cells(5, m).Font.Color = RGB(252, 152, 4)
x = x + 1
End If
 
 
Next
 
 
End Sub

En fait il n'y a pas de message d'erreur. Je m'explique j'ai crée un bouton appelé mis à jour où j'ai mis le code que je vous ai envoyé .Ainsi dans ma colonne 13 du fichier que j'ai mis en gras contient les valeurs suivantes: 13/01/2016, 2/02/2017,25/01/2017,16/12/2017 etc et j'aimerais qu'il me calcule le nombre de fois qu'on trouve le mois de janvier/2017, février/2017 etc et le met dans mon fichier en occurrence ma feuille 3 ci joint Statistique de gestion des PP.xlsx

merci d'avance

**halaster08** · 03/01/2017, 10h49

Envoyé par mia.555

En fait il n'y a pas de message d'erreur.

S'il n'y a pas de message d'erreur quel est le problème?
Pas les bonnes valeurs? Pas mise au bon endroit?

**Philippe Tulliez** · 03/01/2017, 10h58

Bonjour,
Quelque chose m'échappe.
Tu testes le mois et l'année de la cellule de la colonne 13 de la ligne (variable i) et en même temps si cette même cellule n'est pas vide ????
De toute manière, quelle que soit le test à réaliser, une simple formule d'excel suffit.

**mia.555** · 03/01/2017, 11h09

Oui c'est ça que je veux faire.la cellule de la colonne 13 ne doit pas être vide. Oui mais j'aimerais le faire en vba

Envoyé par halaster08

S'il n'y a pas de message d'erreur quel est le problème?
Pas les bonnes valeurs? Pas mise au bon endroit?

Je ne sais pas vraiment où se trouve le problème. Le code n'affiche rien sur mon fichier statistique

**Philippe Tulliez** · 03/01/2017, 12h00

Bonjour,
Quel est l'objectif ?
Compter le nombre de cellules dont le mois et l'année de la date contenue en colonne 13 est égal au mois et à l'année de la date en cours ?