VBA - Msgbox - Condition

[yoann181]

Bonsoir à tous,

Je ne participe pas souvent aux discutions mais je suis un client fidèle !
J'ai en effet pour habitude de venir étudier vos différentes propositions face aux problèmes rencontrés !

Et j'ai en l'occurence pas encore trouvé mon bonheur. J'espere que vous pourrez m'aider !

Je vous explique :

Dans une feuille nommée "Menu", la cellule A9 contient une formule : =AUJOURDHUI().
Dans une feuille nommée "Catalogue", la colonne I contient différentes dates sous le format JJ/MM/AAAA. (Les autres colonnes contiennent des informations relatives à ces dates.)

J'aimerais, lorsque j'ouvre mon fichier Excel, si la date d'aujourd'hui est égale à une date présente dans la colonne I de l'onglet "Catalogue" qu'un msgbox s'affiche listant les informations relatives à cette date ! (Le tout en VBA.)

Par avance, merci !

 

[ROGER2327]

Re : VBA - Msgbox - Condition

Bonjour yoann181


Un support permettrait probablement de régler le problème sans trop de difficulté...


ROGER2327
#5549

Dimanche 1er Pédale 139 (Erection du Surmâle - fête Suprême Tierce)
5 Ventôse An CCXX, 7,6878h - bouc
2012-W08-5T18:27:03Z

 

[yoann181]

Re : VBA - Msgbox - Condition

Bonjour yoann181


Un support permettrait probablement de régler le problème sans trop de difficulté...


ROGER2327
#5549

Dimanche 1er Pédale 139 (Erection du Surmâle - fête Suprême Tierce)
5 Ventôse An CCXX, 7,6878h - bouc
2012-W08-5T18:27:03Z

Bonsoir ROGER2327,

ci-joint le fichier.
Pour information, c'est un fichier assez confidentiel. J'ai donc supprimé plusieurs onlgets !

 

[herve62]

Re : VBA - Msgbox - Condition

Bonsoir
Un petit fichier pour te donner l'idée .... et peut-être avancer dans ton appli
c'est "bidon" , juste pour exemple , tu as dis :

J'aimerais, lorsque j'ouvre mon fichier Excel, si la date d'aujourd'hui est égale à une date présente dans la colonne I de l'onglet "Catalogue" qu'un msgbox s'affiche listant les informations relatives à cette date ! (Le tout en VBA.)

donc quand tu l'ouvres , un msg s'affiche (attention a la date quand tu utiliseras ce fichier , la il y a 24 25 26 fevrier)

Bonne soirée

 

[ROGER2327]

Re : VBA - Msgbox - Condition

Bonsoir à tous

On peut ajouter ceci à la procédure Workbook_Open :

Dim i&, j&, msg$, oPlg As Range
    Set oPlg = Sheets("Catalogue").[A1].CurrentRegion
    For i = 2 To oPlg.Rows.Count
        If oPlg.Cells(i, 9) = Date Then
            For j = 1 To 8
                msg = msg & oPlg.Cells(i, j) & ", "
            Next
            msg = Left$(msg, Len(msg) - 2) & vbLf & vbLf
        End If
    Next
    If msg <> "" Then MsgBox msg, , "Aujourd'hui :"

Ceci dit, je n'apprécie pas du tout les procédures d'ouvertures qui modifient les réglages standards d'Excel sans qu'il soit prévu de les rétablir en quittant.

Ici comme ailleurs :

Merci de laisser les lieux en l'état où vous auriez aimé les trouver en entrant.​

ROGER2327
#5550

Dimanche 1er Pédale 139 (Erection du Surmâle - fête Suprême Tierce)
5 Ventôse An CCXX, 8,5666h - bouc
2012-W08-5T20:33:36Z

 

[herve62]

Re : VBA - Msgbox - Condition

C vrai !!!
Eh Yoan : Comment tu quittes EXCEL ???
j'ai dû me servir du gestionnaire des tâches !!!

 

[yoann181]

Re : VBA - Msgbox - Condition

Mon fichier est plus complet que celui-ci à l'origine !
J'ai tout simplement un Bouton avec ce code :

Sub QuitterSauvegarder()

Dim wb As Workbook
For Each wb In Workbooks
wb.Close

Next
Application.Quit

End Sub

 

[herve62]

Re : VBA - Msgbox - Condition

Bonjour
T'as changé ton fichier ?? !!!! car hier on pouvait pas quitter Excel ( pas d emenu, pas de "X" rouge)
En + tu pourrais dire si nos propositions te conviennent !!!!!!!!
certes la mienne ne contient que du VBA de base , mais fonctionne et facile a comprendre

 

[yoann181]

Re : VBA - Msgbox - Condition

Bonjour !

C'est étonnant que tu n'ai pas de "X" rouge dans ce fichier ??

Je m'y suis replongé aujourd'hui, et vos propositions sont parfaites !
Je vais d'ailleurs utiliser les deux !

Merci beaucoup, je savais que je pourrais compter sur votre aide !