Bonjour à tous,
Voilà j’ai dans ma colonne A feuil 1, une serie de date.
Je souhaite noter dans la case A1 de la feuil2, le nombre de date présente au cours du mois précédant, en A2, le nombre de date présent au cours de ce mois et en A3 le nombre de date présent au cours du mois suivant.
Au début je voulais faire une fonction nb.si mais vu qu’il s’agit du mois en cours (actuellement janvier) et non d’un mois fixe, je me suis dit que sur vba ca serait plus simple !
J’ai essayé de faire ca, mais bon c’est pas top :s
ActiveWorkbook.Sheets("feuil1").Range ("A:A") <= DateSerial(Year(Date), Month(Date) - 1, 1) And ActiveWorkbook.Sheets("feuil1").Range("A:A") >= DateSerial(Year(Date), Month(Date), 0) = mois
If mois Then
ActiveWorkbook.Sheets("feuil2").Cells(1, 1).Value = mois.Count
End If
Si quelqu’un peut m’aider…
Merci à tous
Voilà j’ai dans ma colonne A feuil 1, une serie de date.
Je souhaite noter dans la case A1 de la feuil2, le nombre de date présente au cours du mois précédant, en A2, le nombre de date présent au cours de ce mois et en A3 le nombre de date présent au cours du mois suivant.
Au début je voulais faire une fonction nb.si mais vu qu’il s’agit du mois en cours (actuellement janvier) et non d’un mois fixe, je me suis dit que sur vba ca serait plus simple !
J’ai essayé de faire ca, mais bon c’est pas top :s
ActiveWorkbook.Sheets("feuil1").Range ("A:A") <= DateSerial(Year(Date), Month(Date) - 1, 1) And ActiveWorkbook.Sheets("feuil1").Range("A:A") >= DateSerial(Year(Date), Month(Date), 0) = mois
If mois Then
ActiveWorkbook.Sheets("feuil2").Cells(1, 1).Value = mois.Count
End If
Si quelqu’un peut m’aider…
Merci à tous