Message conditionnel vers outlook. (Rép. à Papou)

Bonjour,

Si Papou a la réponse, c'est ok, si c'est pas Papou, c'est ok aussi !

J'ai intégré le code comme indiqué et c'est OK. Merci beaucoup !
Peux-tu me dire comment faire pour déclencher le même message si la
condition est remplie, non pas exclusivement dans la cellule A1, mais dans
n'importe laquelle des cellules de la colonne A ???

Merci beaucoup.
Pierre.

Voici un exemple de code à adapter (à positionner dans le code de la
feuille
: clic droit, visualiser le code sur l'onglet de la feuille)
....................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "zozo@titi.fr"
.Body = "Joyeux anniversaire !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
...........................................................................
End Sub

Bonjour

Remplace
If Target.Address...
par
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Qui teste que Target fait partie de la colonne A

Ok?

--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 6456AF5B-4FF1-4C56-A4C2-C0301AE87F9C@microsoft.com...

Bonjour,

Si Papou a la réponse, c'est ok, si c'est pas Papou, c'est ok aussi !

J'ai intégré le code comme indiqué et c'est OK. Merci beaucoup !
Peux-tu me dire comment faire pour déclencher le même message si la
condition est remplie, non pas exclusivement dans la cellule A1, mais dans
n'importe laquelle des cellules de la colonne A ???

Merci beaucoup.
Pierre.

Voici un exemple de code à adapter (à positionner dans le code de la
feuille
: clic droit, visualiser le code sur l'onglet de la feuille)
....................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "zozo@titi.fr"
.Body = "Joyeux anniversaire !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
...........................................................................
End Sub

Re bonjour,

Merci pour cette réponse rapide; c'est ok et ça marche !
Connais-tu un site où je peux m'initier facilement au VBA ??
Car sinon, je suis condamné à faire des macros simples, ou à demander de
l'aide régulièrement.

Merci d'avance
Cordialement.
Pierre

Bonjour

Remplace
If Target.Address...
par
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Qui teste que Target fait partie de la colonne A

Ok?

--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de
news: 6456AF5B-4FF1-4C56-A4C2-C0301AE87F9C@microsoft.com...

Bonjour,

Si Papou a la réponse, c'est ok, si c'est pas Papou, c'est ok aussi !

J'ai intégré le code comme indiqué et c'est OK. Merci beaucoup !
Peux-tu me dire comment faire pour déclencher le même message si la
condition est remplie, non pas exclusivement dans la cellule A1, mais
dans
n'importe laquelle des cellules de la colonne A ???

Merci beaucoup.
Pierre.

Voici un exemple de code à adapter (à positionner dans le code de la
feuille
: clic droit, visualiser le code sur l'onglet de la feuille)
....................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "zozo@titi.fr"
.Body = "Joyeux anniversaire !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
...........................................................................
End Sub

Bonjour.

En parcourant les réponses de ce forum, tu verras régulièrement des
signatures comportant des adresses.

Pense à www.excelabo.net, l'excellent site de Misange. Sur celui-ci, outre
plein d'astuces, tu trouveras des liens vers d'autres sites.

Et reviens ici sans hésiter pour des questions...

Bon week-end.

--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 1C8F9597-9541-4A02-B43E-714AC93E4CB7@microsoft.com...

Re bonjour,

Merci pour cette réponse rapide; c'est ok et ça marche !
Connais-tu un site où je peux m'initier facilement au VBA ??
Car sinon, je suis condamné à faire des macros simples, ou à demander de
l'aide régulièrement.

Merci d'avance
Cordialement.
Pierre

Bonjour

Remplace
If Target.Address...
par
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Qui teste que Target fait partie de la colonne A

Ok?

--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de
news: 6456AF5B-4FF1-4C56-A4C2-C0301AE87F9C@microsoft.com...

Bonjour,

Si Papou a la réponse, c'est ok, si c'est pas Papou, c'est ok aussi !

J'ai intégré le code comme indiqué et c'est OK. Merci beaucoup !
Peux-tu me dire comment faire pour déclencher le même message si la
condition est remplie, non pas exclusivement dans la cellule A1, mais
dans
n'importe laquelle des cellules de la colonne A ???

Merci beaucoup.
Pierre.

Voici un exemple de code à adapter (à positionner dans le code de la
feuille
: clic droit, visualiser le code sur l'onglet de la feuille)
....................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "zozo@titi.fr"
.Body = "Joyeux anniversaire !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
...........................................................................
End Sub