Message alerte

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

15nismo261111.xlsx (9.80 Ko)

Bonjour,

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

ric

j'ai essayé de joindre le fichier , un message d'erreur m'indique que le fichier n'est pas pris en charge

voila

9nismo26nou.xlsm (14.18 Ko)

Bonjour,

Et où est la macro ?

voila

7nismo26nou.xlsm (14.19 Ko)

Bonjour,

Un essai, voir si ça convient ...

Tu lisais la colonne C et il faut lire la colonne G.

ric

P.S. j'ai changé le fichier.

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...

Cordialement.

salut

la fenêtre alerte ne s'affiche pas !!

Bonjour à tous,

...

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.

ric

Bonjour à tous,

Au lieu de tester la cellule voisine si elle est vide ...

And Cel.Offset(0, 1) = "" Then

Je suggère différent de vide And Cel.Offset(0, 1) <> "" Then

ric

Non Ric tes verres sont impec

J'ai bien collé la formule dans worksheet.

J'ai bien collé la formule dans worksheet.

Merci à tous @ MFerrand

Enfin ! ça fonctionne , j'avais mis le mauvais numéro de feuille

cordialement

Rechercher des sujets similaires à "message alerte"