VBA/Excel - Macro Annee
PleaseCallMe
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
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
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
Configuration: Windows XP Internet Explorer 6.0
