VBA - Msgbox - Condition

yoann181 · 24 Février 2012

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 · 24 Février 2012

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 · 24 Février 2012

Re : VBA - Msgbox - Condition

ROGER2327 à dit:
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 · 24 Février 2012

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 · 24 Février 2012

Re : VBA - Msgbox - Condition

Bonsoir à tous

On peut ajouter ceci à la procédure Workbook_Open :

VB:

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 · 24 Février 2012

Re : VBA - Msgbox - Condition

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

yoann181 · 25 Février 2012

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 · 25 Février 2012

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 · 25 Février 2012

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 !

VBA - Msgbox - Condition

yoann181

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

yoann181

XLDnaute Nouveau

Pièces jointes

herve62

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

yoann181

XLDnaute Nouveau

herve62

XLDnaute Barbatruc

yoann181

XLDnaute Nouveau

Discussions similaires