Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais
poser une alerte sur la colonne à côté suivant le critère suivant
moins de 48 mois
ex:
A B
1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de
son ou de msgbox
2- 20/12/2003 ----------------même
chose------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
"thiery" a écrit dans le message de news: 43e05716$0$18346$
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais poser une alerte sur la colonne à côté suivant le critère suivant moins de 48 mois
ex:
A B 1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de son ou de msgbox 2- 20/12/2003 ----------------même chose------------------------------------
etc merci d'avance
-- Amicalement thiery
Bonjour.
Si j'ai bien compris. La macro suivante affiche un message si une date de la
colonne diffère de plus de quatre ans avec la date du jour.
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Var = Date
Var = c.Value
Var = Date - c.Value
If Date - c.Value > 1461 Then
MsgBox c.Value & " QUATRE ANS"
End If
Next c
End Sub
"thiery" <t.bon@wanadoo.fr> a écrit dans le message de news:
43e05716$0$18346$8fcfb975@news.wanadoo.fr...
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais
poser une alerte sur la colonne à côté suivant le critère suivant
moins de 48 mois
ex:
A B
1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de
son ou de msgbox
2- 20/12/2003 ----------------même
chose------------------------------------
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
"thiery" a écrit dans le message de news: 43e05716$0$18346$
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais poser une alerte sur la colonne à côté suivant le critère suivant moins de 48 mois
ex:
A B 1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de son ou de msgbox 2- 20/12/2003 ----------------même chose------------------------------------
etc merci d'avance
-- Amicalement thiery
Daniel
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8%
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
"thiery" a écrit dans le message de news: 43e05716$0$18346$
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais poser une alerte sur la colonne à côté suivant le critère suivant moins de 48 mois
ex:
A B 1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de son ou de msgbox 2- 20/12/2003 ----------------même chose------------------------------------
etc merci d'avance
-- Amicalement thiery
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans
l'intervalle.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eey8%23qxJGHA.720@TK2MSFTNGP14.phx.gbl...
Bonjour.
Si j'ai bien compris. La macro suivante affiche un message si une date de
la colonne diffère de plus de quatre ans avec la date du jour.
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Var = Date
Var = c.Value
Var = Date - c.Value
If Date - c.Value > 1461 Then
MsgBox c.Value & " QUATRE ANS"
End If
Next c
End Sub
"thiery" <t.bon@wanadoo.fr> a écrit dans le message de news:
43e05716$0$18346$8fcfb975@news.wanadoo.fr...
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais
poser une alerte sur la colonne à côté suivant le critère suivant
moins de 48 mois
ex:
A B
1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme
de son ou de msgbox
2- 20/12/2003 ----------------même
chose------------------------------------
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8%
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
"thiery" a écrit dans le message de news: 43e05716$0$18346$
Bonjour à tous et toutes j'ai une colonne avec des dates et je voudrais poser une alerte sur la colonne à côté suivant le critère suivant moins de 48 mois
ex:
A B 1- 15/01/2006 quand ça arrive à + 4ans une alerte sous forme de son ou de msgbox 2- 20/12/2003 ----------------même chose------------------------------------
etc merci d'avance
-- Amicalement thiery
thiery
Daniel wrote:
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8% Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour. Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
un grand merci à toi je teste ça ce soir -- Amicalement thiery
Daniel wrote:
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris
dans l'intervalle.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eey8%23qxJGHA.720@TK2MSFTNGP14.phx.gbl...
Bonjour.
Si j'ai bien compris. La macro suivante affiche un message si une
date de la colonne diffère de plus de quatre ans avec la date du
jour.
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Var = Date
Var = c.Value
Var = Date - c.Value
If Date - c.Value > 1461 Then
MsgBox c.Value & " QUATRE ANS"
End If
Next c
End Sub
un grand merci à toi je teste ça ce soir
--
Amicalement
thiery
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8% Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour. Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
un grand merci à toi je teste ça ce soir -- Amicalement thiery
thiery
Daniel wrote:
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8%
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour. Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
je commence juste excel aurais-tu un fichier exemple à m'expedier à
ote le 3 pour l'adresse un GRAND MERCI d'avance
-- Amicalement thiery
Daniel wrote:
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris
dans l'intervalle.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eey8%23qxJGHA.720@TK2MSFTNGP14.phx.gbl...
Bonjour.
Si j'ai bien compris. La macro suivante affiche un message si une
date de la colonne diffère de plus de quatre ans avec la date du
jour. Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
Var = Date
Var = c.Value
Var = Date - c.Value
If Date - c.Value > 1461 Then
MsgBox c.Value & " QUATRE ANS"
End If
Next c
End Sub
je commence juste excel aurais-tu un fichier exemple à m'expedier à
t.bon@3wanadoo.fr ote le 3 pour l'adresse
un GRAND MERCI d'avance
Note : il peut y avoir un écart d'un jour si le 1/2/2000 est compris dans l'intervalle. Daniel "Daniel" a écrit dans le message de news: eey8%
Bonjour. Si j'ai bien compris. La macro suivante affiche un message si une date de la colonne diffère de plus de quatre ans avec la date du jour. Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage Var = Date Var = c.Value Var = Date - c.Value If Date - c.Value > 1461 Then MsgBox c.Value & " QUATRE ANS" End If Next c End Sub
je commence juste excel aurais-tu un fichier exemple à m'expedier à
