Compter des cellule en format date excel
Résolu
Bonjour,
Bonjour,
j ai une colonne avec des dates , je souhaite compter les cellules qui contiennent la date que je rentre grace à une boite de message.
quand je mets un prénom dans la boite de message et que mes cellules contiennent ce prénom je n'est aucun problème, mais quand je rentre une date le comptage est de 0
pouvez vous me dépanner
voici ma macro
Sub daterecu()
Sheets("Feuil1").Select
Dim Message, Titre, ddr, réponse
Titre = "Date de réception"
Message = "Entrez la date du début au format jj/mm/aaaa :"
ddr = InputBox(Message, Titre)
If ddr <> Format(ddr, "dd/mm/yyyy") Or ddr = "" Then
MsgBox "Votre date n'est pas valide! Recommencez ?"
Exit Sub
End If
ddr = Format(ddr, "mm/dd/yyyy")
Dim celule As Range
total = 0
Range("a7:a5000").Select 'colonne ou j'ai mes dates
For Each celule In Selection
If cellule = ddr Then
total = total + celule.Count
End If
Next
Range("g2") = "NOMBRE DE JOURS : " & total 'affiche le total
End sub
Bonjour,
j ai une colonne avec des dates , je souhaite compter les cellules qui contiennent la date que je rentre grace à une boite de message.
quand je mets un prénom dans la boite de message et que mes cellules contiennent ce prénom je n'est aucun problème, mais quand je rentre une date le comptage est de 0
pouvez vous me dépanner
voici ma macro
Sub daterecu()
Sheets("Feuil1").Select
Dim Message, Titre, ddr, réponse
Titre = "Date de réception"
Message = "Entrez la date du début au format jj/mm/aaaa :"
ddr = InputBox(Message, Titre)
If ddr <> Format(ddr, "dd/mm/yyyy") Or ddr = "" Then
MsgBox "Votre date n'est pas valide! Recommencez ?"
Exit Sub
End If
ddr = Format(ddr, "mm/dd/yyyy")
Dim celule As Range
total = 0
Range("a7:a5000").Select 'colonne ou j'ai mes dates
For Each celule In Selection
If cellule = ddr Then
total = total + celule.Count
End If
Next
Range("g2") = "NOMBRE DE JOURS : " & total 'affiche le total
End sub
Configuration: Windows Vista Internet Explorer 7.0
3 réponses
-
Contributeurbonjour
J'ai un doute que ton code fonctionne même avec des noms ?For Each celule In Selection If cellule = ddr Then total = total + celule.Count End If
En effet tu as une erreur de saisie sur le nom employé...
Pour compter des dates il faut fonctionner avec le même format de données et pas le format d'affichage :ddr = Format(ddr, "mm/dd/yyyy")
à remplacer parddr = CDate(ddr)
-
ContributeurBonjour Zeb,
J'ai répondu dans le premier post :
http://www.commentcamarche.net/forum/affich 12711196 je cherche a compter des dates excel?#1
Mais je n'ai pas le retour.
Merci de regarder ma réponse, il y a un problème de type date
Bien sur gbinforme (bonjour) à raison, comme toujours ;-) et la partie du code avec erreur de frappe cette fois -ci ne sert à rien, il suffit sans doute d'écrire :
total=total+1
A+
-
Contributeurbonjour pilas31,
Effectivement nous arrivons à la même conclusion mais si le problème est résolu, il n'est pour certains pas nécessaire de le faire savoir... malheureusement.
