Reprise du message précédent :
Ben ca me fait pareil, j'ai un resultat egal a 14 au lieu de 22.
Je comprend pas.
je te redonne le code:
Sub ContactMois()
 
Dim a As Long, Mois, MaPlage As Range
NbContactMois = 0
Set MaPlage = Worksheets("Fichier Toulouse" ).Range("K2:K" & Cells(Rows.Count, "K" ).End(xlUp).Row)
On Error Resume Next
   
  Mois = 2 'Month(Now())
   
  For Each c In MaPlage
    If IsDate(c.Value) Then
      If Month(c.Value2) = CInt(Mois) Then
          NbContactMois = NbContactMois + 1
      End If
    End If
  Next
 
  Set MaPlage = Nothing
   
Worksheets("Bilan" ).Cells(32, Mois + 2).Value = NbContactMois
 
End Sub
 
JE comprend vraiment pas

Hum,  
Met un c.activate après : For Each c In MaPlage  
et un point d'arret sur next et débogue  en vérifiant que NbContactMois s'incréménte bien quand il faut.
mais y a pas de raison... T'aurais pas un peu bricolé les dates ?

Personne ne voit?
 
Please help
 
Merci

J'ai pas bricole les dates.
T'as le classeur tel que je l'ai.

J'ai compris !
Met ça au début de ta macro...
Worksheets("Fichier Toulouse" ).Activate
Ciao !

Bien vu Galopin.
Mais je comprend pas pkoi ca marche sur les semaines et que pour les mois je suis oblige de mettre: Worksheets("Fichier Toulouse" ).Activate  
 
Si tu peux m'expliquer

Worksheets("Fichier Toulouse" ).Activate ...
Si tu regardes bien dans les réponses moi je l'avais ajouté dans mes réponses pour les semaines donc tu as du l'ajouter aussi par copier coller...
Pourquoi ?
La Macro s'exécute sur la feuille active.
Si tu actives la feuille "Bilan" avant de lancer la macro  
MaPlage n'est pas correctement définie sur "Toulouse" car :
Cells(Rows.Count, "K" ) s'applique à la feuille active, donc s'arrète à 44 comme la dernière ligne de "bilan"
Ok ?

C bon j'ai compris.
Je l'avait pas vu dans le code precedent.
 
Merci de ton aide Galopin.
 
Cordialement