Objet requis

Fermé
Romane - 29 oct. 2014 à 11:26
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 30 oct. 2014 à 07:11
Bonjour,

Je suis sous la version de 2010 d'EXCEL.
Je souhaite réaliser une macro pour me permettre d'avoir un msgbox lorsqu'une date arrive à échéance.
voici mes lignes de code


Sub macro1()

If mois.decaler(a5) > 23 Then
MsgBox "okok"
Else
MsgBox "pasokok"
End If

End Sub


Et lorsque que je souhaite l'activer, il me sort un msg "Objet requis"..
j'ai éssayer de trouver une solution sur le site de Microsoft, mais cela ne convient pas.



2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 oct. 2014 à 11:49
Bonjour,

=mois.decaler(a5;2): c'est une formule a mettre dans une cellule, pas a utiliser en VBA
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 30/10/2014 à 07:11
Bonjour,

Tu peux le calculer, +3 mois :
a = DateSerial(Year([A1]), Month([A1]) + 3, Day([A1]))

eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
0