Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel afficher une msgbox si au - une cell de ma colonne < Now

afficher une msgbox si au - une cell de ma colonne < Now

9 réponses
Avatar
mad.b
Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox si au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Range("A5:A150").Select
For Each c in Selection
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
Next c

"mad.b" a écrit dans le message de news:

Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox si
au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle


Avatar
Daniel
Rectification :
Range("A5:A150").Select
For Each c in Selection
If c.Value < Now Then
MsgBox ("blablabla")
End If
Next c

"mad.b" a écrit dans le message de news:

Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox si
au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle


Avatar
AV
if [countif(A1:A150,"<"&now())] > 0 then msgbox "blabla'"

AV
Avatar
Clément Marcotte
Bonjour,

Avec cela peut-être (et j'insiste sur le peut-être)


Sub cesttuassezbas()
For each carre in range("a5:a150")
if carre.value < now then
msgbox "Blablabla"
end if
end sub


"mad.b" a écrit dans le message de
news:
Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un
petit

probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive

pas a trouvé une syntaxe correcte pour que ma macro affiche une
msgbox si au

moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle


Avatar
mad.b
Merci Daniel de t'être penché sur le probleme...
Cependant ce n'est pas tout a fait la macro que j'attendais car je
souhaitais que la msgbox ne s'affiche qu'une fois qu'il y ai une ou
plusieurs cell qui possedent des valeurs < Now. Dans ta macro il y a une msg
box pour chaque cell dont la valeur < Now.
Encore merci d'avoir repondu aussi rapidement...C'étais ma premiere fois sur
un forum excel et franchement ça fait plaisir....
mad.b

"Daniel" wrote:

Bonjour.
Range("A5:A150").Select
For Each c in Selection
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
Next c

"mad.b" a écrit dans le message de news:

Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox si
au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle







Avatar
Daniel
Bonjour.
J'ai en effet lu ton post en diagonale.
Cordialement.
Daniel
"mad.b" a écrit dans le message de news:

Merci Daniel de t'être penché sur le probleme...
Cependant ce n'est pas tout a fait la macro que j'attendais car je
souhaitais que la msgbox ne s'affiche qu'une fois qu'il y ai une ou
plusieurs cell qui possedent des valeurs < Now. Dans ta macro il y a une
msg
box pour chaque cell dont la valeur < Now.
Encore merci d'avoir repondu aussi rapidement...C'étais ma premiere fois
sur
un forum excel et franchement ça fait plaisir....
mad.b

"Daniel" wrote:

Bonjour.
Range("A5:A150").Select
For Each c in Selection
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
Next c

"mad.b" a écrit dans le message de
news:

Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un
petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox
si
au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle









Avatar
Michel Gaboly
Bonjour,

Pour ce genre de cas, pense à la fonction MIN(), qui évite de passer
pour une boucle. Cette fonction ignore les cellules vides de la plage.

If Application.WorksheetFunction.Min(Range("A5:A150")) < Now Then ...

Merci Daniel de t'être penché sur le probleme...
Cependant ce n'est pas tout a fait la macro que j'attendais car je
souhaitais que la msgbox ne s'affiche qu'une fois qu'il y ai une ou
plusieurs cell qui possedent des valeurs < Now. Dans ta macro il y a une msg
box pour chaque cell dont la valeur < Now.
Encore merci d'avoir repondu aussi rapidement...C'étais ma premiere fois sur
un forum excel et franchement ça fait plaisir....
mad.b

"Daniel" wrote:


Bonjour.
Range("A5:A150").Select
For Each c in Selection
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
Next c

"mad.b" a écrit dans le message de news:


Bonjour a tous
J'ai besoin de votre sagesse en matiere d'excel VBA pour resoudre un petit
probleme
J'ai créé une macro qui fait diverses choses passionnantes mais je
n'arrive
pas a trouvé une syntaxe correcte pour que ma macro affiche une msgbox si
au
moins une valeur de ma colonne est inférieur à now

J'ai essayé ça :
Range("A5:A150").Select
If Activecell.Value < Now Then
MsgBox ("blablabla")
End If
mais ça ne fonctionne que pour la premiere cell de la selection...

Merci pour votre aide éventuelle








--
Cordialement,

Michel Gaboly
www.gaboly.com



Avatar
mad.b
Merci Michel ça marche ...
A bientot

PS: Merci aussi à tous ceux qui ont cherché à resoudre mon pb!!
Avatar
Michel Gaboly
De rien, c'était avec plaisir ;-))

Merci Michel ça marche ...
A bientot

PS: Merci aussi à tous ceux qui ont cherché à resoudre mon pb!!





--
Cordialement,

Michel Gaboly
www.gaboly.com