Macro avec valeur d'une cellule

On teste si la cellule A7 (qui contient une formule) dépasse 100

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(7, 1) > 100 Then
Cells(7, 1).Interior.ColorIndex = 33
Else
Cells(7, 1).Interior.ColorIndex = 2
End If
End Sub

Le pgm est déclenché à chaque saisie dans la feuille

JB

Bonjour News wanadoo, (...)

Dans la feuille de code de l'onglet concerné:
(en supposant que la cellule A1 contienne la date)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = CDate("21/10/2005") Then zaza
End Sub

Sub zaza()
MsgBox "Hello !"
End Sub


ChrisV


"News wanadoo" <stephane@ilyatout.zzn.com> a écrit dans le message de news:
4358cd7e$0$999$8fcfb975@news.wanadoo.fr...

Bonjour
J'aimerais savoir s'il est possible et comment il faudrait s'y prendre
pour faire lancer une macro à partir d'une valeur dans une cellule...
Exemple lorsque une cellule choisie affiche une date donnée, la macro se
lance toute seule....
Merci

Merci de me répondre mais je n'y comprends pas grand chose...
je crée mes macros avec le mode enregistrement....en fait je voulais tester
l'effacement complet d'un tableau à une date précise....
je voudrais comme action (ça je sais le faire....) sélectionner une zone de
tableau et effacer le contenu ceci devant de déclencher à une date par
exemple j'indique comme référence une cellule avec le fonction ""aujourd'hui
"" et hop nous arrivons à la date choisie le tableau s'efface....

Merci de me répondre mais je n'y comprends pas grand chose...
je crée mes macros avec le mode enregistrement....en fait je voulais tester
l'effacement complet d'un tableau à une date précise....
je voudrais comme action (ça je sais le faire....) sélectionner une zone de
tableau et effacer le contenu ceci devant de déclencher à une date par
exemple j'indique comme référence une cellule avec le fonction ""aujourd'hui
"" et hop nous arrivons à la date choisie le tableau s'efface....

Il suffit de déclencher la macro à l'ouverture du classeur
WorbBokkOpen ou auto_open:

Sub auto_open()
If Date=Range("A1") then
Range("xxx").Clearcontents
end if
End Sub

Merci mais je n'y arrive toujours pas......suis débutant....

*Bonjour Stéphane*,
C'est assz simple, Outils/Macros/Macros...
Dans la zone nom de la macro tu ecris "Auto_Open" (sans les guillemets)
tu fait créer.
tu aura un editeur qui te permet de taper du code, là, tu saisis le
code de jb :

If Date = Sheets("Feuil1").Range("A1") then
Shetts("Feuil2").Range("A1:F10").Clearcontents
end if

Tu ferme la fenetre Microsoft Visual Basic
Tu ferme ton fichier (et tu enregistre), et quand tu l'ouvre a nouveau,
cette macro va s'executee toute seule et si la date du jour est la meme
que la cellule A1 de la feuille Feuil1 alors sa efface ta plage sur la
feuille Feuil2

Merci mais je n'y arrive toujours pas......suis débutant....

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm

Bonjour JLuc
J'ai suivi exactement tes indications mais ça ne marche pas j'ai le message
d'erreur suivant :
Erreur de compilation :
Sub ou Function non definie
Et microsoft visual basic s'ouvre le mot Shetts (aprés then ) et mis sur
fond bleu....
Stéphane

Bonjour Stéphane,

Sheets et non Shetts...


ChrisV


"Stéphane" <stephane@ilyatout.zzn.com> a écrit dans le message de news:
43594c08$0$7832$8fcfb975@news.wanadoo.fr...

Bonjour JLuc
J'ai suivi exactement tes indications mais ça ne marche pas j'ai le
message d'erreur suivant :
Erreur de compilation :
Sub ou Function non definie
Et microsoft visual basic s'ouvre le mot Shetts (aprés then ) et mis sur
fond bleu....
Stéphane

*Bonjour Stéphane*,
Excuse moi Stephane je n'avais pas vu l'erreur de frappe :')
ChrisV à raison, c'est pas Shetts mais Sheets :oÞ

Bonjour JLuc
J'ai suivi exactement tes indications mais ça ne marche pas j'ai le message
d'erreur suivant :
Erreur de compilation :
Sub ou Function non definie
Et microsoft visual basic s'ouvre le mot Shetts (aprés then ) et mis sur fond
bleu....
Stéphane

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/