trouver la procédure

[Am Alive]

Bonsoir à tous
dans les cellules(A1:A31)j'ai enter les date
(01/05/2006.......31/05/2006)
qui peut m'aider à trouver la procédure pour:
Private Sub CommandButton1_Clic
Si la date d'aujourdhui est dans les cellules
('A1:A31')Then
Macro1
Else
Macro2
End if
End Sub
Merci d'avance

 

[Gorfael]

Salut

Sub Macro_Test()
Dim Cell As Range
Range('A1:A31').Select
    For Each Cell In Selection
        If Cell = Date Then
            Call Macro1
            Exit Sub
        End If
    Next
Call Macro2
End Sub

Pour chaque cellule de la sélection (a1:a31).
Si la cellule = date du système
effectuer la macro1
sortir de la macro_Test
si aucune cellule ne correspond, effectuer la macro2, puis sortir de Macro_Test.

Il y a d'autres méthodes possibles.
A+

 

[CBernardT]

Bonsoir Am Alive, Gorfael,

Une autre solution, avec la méthode Find.

Private Sub CommandButton1_Click()
Dim C As Range
' Recherche de la date d'aujourd'hui dans la plage
With Sheets('Feuil1').Range('A1:A31')
Set C = .Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
' Exécution d'une des deux macros selon le cas de figure
If Not C Is Nothing Then
'Macro1
Else
'Macro2
End If
End With
End Sub

Cordialement

Bernard