Calculer nombre de dates saisies

T

tatiak

Guest

• 30 Décembre 2004

• #2

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?

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 30 Décembre 2004

• #3

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

 

Vote positif 0 Vote négatif

H

Hubert

Guest

• 30 Décembre 2004

• #4

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

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 30 Décembre 2004

• #5

??
tu utilise la formule ou la macro?

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 30 Décembre 2004

• #6

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

 

Vote positif 0 Vote négatif

H

Hubert

Guest

• 30 Décembre 2004

• #7

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.

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 30 Décembre 2004

• #8

Bonne reception

 

Pièces jointes

• Hubert.zip

  7 KB · Affichages: 23

Vote positif 0 Vote négatif