VBA/Excel - Macro Annee

Fermé
PleaseCallMe - 8 août 2008 à 10:31
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 11 août 2008 à 15:19
Bonjour,
J'aimerais faire la somme de plusieurs Range de plusieurs feuilles
Pour cela, j'aimerais qu'il me selectionne UNIQUEMENT les cellules avec un format type Date de CHAQUE feuille.

Si quelqu'un peut m'éclairer
^^

Voici mon code :

'Définit une variable qui va représenter une cellule
Dim Cell As Range

'Boucle sur chaque classeur de l'application Excel
For Each Wb In Application.Workbooks
'Boucle sur chaque feuille de chaque classeur
For Each Ws In Wb.Worksheets

Dim LastDay, FirsyDay, JourAnnee As Date

FirstDay = DateSerial(Year(Date), Month(Date), 1)
LastDay = DateSerial(Year(Now), Month(Now) + 1, 0)
JourAnnee = DateSerial(Year(Now), 1, 1)

'Boucle sur chaque cellule de la plage
For Each Cell In Ws.Range("B7:B29")

'Dim W As Integer
'If Cell = "oui" Then W = W + 1

Next Cell

Next Ws

Next Wb
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
11 août 2008 à 15:19
bonjour

j'aimerais qu'il me selectionne UNIQUEMENT les cellules avec un format type Date

Ceci devrait mieux convenir
If IsDate(Cell) Then

Tu n'as pas eu beaucoup de réponses car ton code n'est guère en rapport avec ta motivation...
1