Formul avec macro

[canail18]

Bonjour. Je voudrais faire une formule avec une macro. Exemple si la date aujourd’hui et supérieure a 2011 alors efface tout les cellule sinon rien faire. Je trouve pas comment faire sa. Merci d avance

 

[BOCARAMEL]

Re : Formul avec macro

Bonsoir canail18 🙂

a mettre dans un module

Sub Macro1()
If Date > "01/01/2011" Then
action de la macro
 End If
End Sub

Bocaramel

 

[canail18]

Re : Formul avec macro

Bonsoir canail18 🙂

a mettre dans un module

Sub Macro1()
If Date > "01/01/2011" Then
action de la macro
 End If
End Sub

Bocaramel

J ai fais l essais mes sans resulta . voila un exemple que je voudrais faire .j ai mi ta Formul dans la macro . Merci l Ami.
Cordialement

 

[BOCARAMEL]

Re : Formul avec macro

Bonjour canail18 🙂

si j'ai bien compris 😉
regarde le fichier joint

change la date en C8 par une date supèrieur a 2011

bonne journée

Bocaramel

 

[canail18]

Re : Formul avec macro

Bonjour Bocaramel. super merci beaucoup c est super. je te souhait une bonne journne @ ++++

 

[canail18]

Re : Formul avec macro

Re bonjour ok j ai vue la formule . mes tu utilise pas la macro

 

[BOCARAMEL]

Re : Formul avec macro

Salut canail18

Dans ton premier post tu parles de
"si la date aujourd’hui et supérieure a 2011 alors efface toute les cellules sinon rien faire"

Dans le fichier ci-joint a l'ouverture si la date du jour est superieur
a la date indiquer dans la macro alors "Efface tout"
j'ai bien utilisé

Private Sub Workbook_Open()
If Date > "26/09/2009" Then
    Range("f5:f13").Select
    Selection.ClearContents
    Range("H5").Select
    End If
End Sub

Attention dans le fichier j'ai mis la date d'hier
regarde bien a l'ouverture ça efface la liste

pour ton fichier le plus simple etait de mettre une formule (=si)

bon dimanche
bocaramel

 

[canail18]

Re : Formul avec macro

Salut canail18

Dans ton premier post tu parles de
"si la date aujourd’hui et supérieure a 2011 alors efface toute les cellules sinon rien faire"

Dans le fichier ci-joint a l'ouverture si la date du jour est superieur
a la date indiquer dans la macro alors "Efface tout"
j'ai bien utilisé

Private Sub Workbook_Open()
If Date > "26/09/2009" Then
    Range("f5:f13").Select
    Selection.ClearContents
    Range("H5").Select
    End If
End Sub

Attention dans le fichier j'ai mis la date d'hier
regarde bien a l'ouverture ça efface la liste

pour ton fichier le plus simple etait de mettre une formule (=si)

bon dimanche
bocaramel

Bonjour . merci pour ton aide je rentre de balade ce soir je me penche sur le problème. Cordialement et merci🙂

 

[canail18]

Re : Formul avec macro

Bonjour . merci pour ton aide je rentre de balade ce soir je me penche sur le problème. Cordialement et merci