Calculer nombre de dates saisies

[Hubert]

Bonjour à toutes et à tous ...

Problème simple pour expert !

J'ai une colonne avec le format "date". Toutes les lignes de sont pas renseignées. j'aimerai connaître le nombre de dates saisies dans cette colonne.
Ou autrement dit : le nombre de cellule vide dans la colonne.

Merci à vous.

Hubert.

 

[tatiak]

Bonjour,
une formule du genre :
=10-NBVAL(A2:A11)
donne le nombre de cellule vide de la plage A2 à A11 mais ne teste pas si la cellules "pleines" sont des dates.
Je ne pense pas qu'il existe de fonction prédéfinie pour un test de date, il faudrait écrire une macro pour cela. A moins que qqun éclaire notre lanterne?

 

[tatiak]

Après reflexion, la macro suivante teste la plage A2:A11 et renvoie le nombre de date valides en A1 :

Sub testdate()
Dim cell as range
Dim compteur As Integer
compteur = 0
Range("A2 : A11").Select
For Each cell In Selection
If IsDate(cell) Then compteur = compteur + 1
Next cell
Range("A1").Value = compteur
End Sub

 

[Hubert]

Merci un max.

malheureusement ca fonctionne pas. Le résulat n'est pas cohérent (affiche 6 alors qu'il n'y en a que 4) et en plus le résulat ne bouge pas si je rajoute ou si j'enlève une date.

A+

Hubert

 

[tatiak]

??
tu utilise la formule ou la macro?

 

[tatiak]

Après réflexion, la macro suivante se déclenche à chaque modification de la plage A2:A11 et le nombre de dates se met à jour aussitôt en A1 :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cell As Range
Dim compteur As Integer
compteur = 0
If Union(Target, Range("A2:A11")).Address = Range("A2:A11").Address Then
For Each cell In Range("A2 : A11")
If IsDate(cell) Then compteur = compteur + 1
Next cell
Range("A1").Value = compteur
End If
End Sub

 

[Hubert]

j'utilise la formule parce que je ne sais pas utiliser les macros !

Est ce que vs pouvez m'envoyer un fichier avec la macro en question pour que je puisse la copier dans mon fichier ?

Je ne veux pas abuser bien sûr.

Merci.

 

[tatiak]

Bonne reception