Message alerte Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 9 décembre 2018, 14:28

Bonjour ;
j'ai crée une macro qui m'alerte à l'approche d'une date précise, le problème est que quand je masque la feuill1 ( qui contient les données) la macro beug
je voudrais que mon fichier s'ouvre sur la feuille " page de garde"
cordialement
Nismo261111.xlsx
(9.8 Kio) Téléchargé 9 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'097
Appréciations reçues : 174
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 9 décembre 2018, 14:51

Bonjour,

On ne voit pas les macros car les fichiers .xlsx ne peuvent contenir de macro. :P





ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 9 décembre 2018, 14:58

j'ai essayé de joindre le fichier , un message d'erreur m'indique que le fichier n'est pas pris en charge
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 9 décembre 2018, 15:01

voila
Nismo26NOU.xlsm
(14.18 Kio) Téléchargé 5 fois
Modifié en dernier par Nismo le 9 décembre 2018, 15:14, modifié 1 fois.
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 9 décembre 2018, 15:13

Bonjour,

Et où est la macro ? :mrgreen:
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 9 décembre 2018, 15:17

voila
Nismo26NOU.xlsm
(14.19 Kio) Téléchargé 4 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'097
Appréciations reçues : 174
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 9 décembre 2018, 15:48

Bonjour,

Un essai, voir si ça convient ...
Tu lisais la colonne C et il faut lire la colonne G. :roll:



ric
P.S. j'ai changé le fichier.
Copie de Nismo26NOU.xlsm
(18.09 Kio) Téléchargé 11 fois
Modifié en dernier par ric le 9 décembre 2018, 16:08, modifié 1 fois.
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 9 décembre 2018, 15:53

Bonjour,

Quelques aménagements mineurs :
Private Sub Workbook_Open()
    Dim Ws As Worksheet, Cel As Range, mess$, cpt%
    Set Ws = Worksheets("Feuil1")
    For Each Cel In Ws.Range("G2:G" & Ws.Range("G" & Rows.Count).End(xlUp).Row)
        If Cel.Value + 30 <= Date And Cel.Offset(0, 1) = "" Then
            mess = mess & "* " & Cel.Offset(0, -2) & " sur la facture " & Cel.Offset(0, -1) & Chr(10)
            cpt = cpt + 1
        End If
    Next Cel
    If mess <> "" Then
        If cpt > 1 Then
            MsgBox "Attention !" & Chr(10) & "Les clients suivants sont en retard de règlement :" & _
                        Chr(10) & Chr(10) & mess
        Else
            MsgBox "Attention !" & Chr(10) & mess & " est en retard de règlement."
        End If
    End If
End Sub
Mais il faut surtout mettre cette procédure dans le module ThisWorkbook pour qu'ell fonctionne !

Que Feuil1 soit visible ou non ne l'empêchera pas de fonctionner... :wink:

Cordialement.
N
Nismo
Membre habitué
Membre habitué
Messages : 113
Inscrit le : 11 août 2015
Version d'Excel : 2010

Message par Nismo » 9 décembre 2018, 15:59

salut
la fenêtre alerte ne s'affiche pas !!
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'097
Appréciations reçues : 174
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 9 décembre 2018, 16:03

Bonjour à tous,
MFerrand a écrit :
9 décembre 2018, 15:53
...
Mais il faut surtout mettre cette procédure dans le module ThisWorkbook pour qu'elle fonctionne !
...

Il faut définitivement que je change mes verres correcteurs. :oops: :oops: :oops:



ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Message alerte
    par Nismo » 6 décembre 2018, 11:56 » dans Excel - VBA
    5 Réponses
    166 Vues
    Dernier message par ric
    6 décembre 2018, 14:55
  • Message d'alerte.
    par rahimpamelo » 21 septembre 2016, 10:48 » dans Excel - VBA
    5 Réponses
    404 Vues
    Dernier message par mdo100
    21 septembre 2016, 14:21
  • message d'alerte
    par Engels » 5 novembre 2016, 12:07 » dans Excel - VBA
    16 Réponses
    678 Vues
    Dernier message par MFerrand
    9 novembre 2016, 08:54
  • Message alerte
    par gnappoma » 20 février 2017, 15:55 » dans Excel - VBA
    2 Réponses
    289 Vues
    Dernier message par gnappoma
    20 février 2017, 16:54
  • Message d'alerte
    par sophang » 13 mai 2016, 10:02 » dans Excel - VBA
    3 Réponses
    417 Vues
    Dernier message par MFerrand
    13 mai 2016, 14:31
  • Alerte message box
    par AstraMen » 9 mars 2018, 22:41 » dans Excel - VBA
    3 Réponses
    255 Vues
    Dernier message par AstraMen
    11 mars 2018, 16:11