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 » 6 décembre 2018, 11:56

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
Echeance v2.xlsm
(16.17 Kio) Téléchargé 20 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'119
Appréciations reçues : 176
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 6 décembre 2018, 13:15

Bonjour,

Il faut renseigner sur quelle feuille l'opération s'exécutera ...
Sub test()
Dim Cel As Range
Dim Ws As Worksheet

   Set Ws = Worksheets("Feuil1")
   For Each Cel In Ws.Range("c2:C" & Ws.Range("C2").End(xlDown).Row)
      If Cel.Value + 30 <= Date Then
         MsgBox "Attention" & " LE CLIENT " & Cel.Offset(0, -2) & " est en retard de règlement sur la facture " & Cel.Offset(0, -1)
      End If
   Next Cel
End Sub


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 » 6 décembre 2018, 13:52

salut ric;
le problème persiste , si je masque la feuille de donnée et que je ferme le fichier excel
à la réouverture ça bloque :(
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'119
Appréciations reçues : 176
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 6 décembre 2018, 14:33

Bonjour,

Dans la macro test, je t'ai donné la méthode qu'il faut appliquer à "Workbook_Open" dans "ThisWorkbook"
Option Explicit

Dim mess$, Cel As Range, cpt&

Private Sub Workbook_Open()
Dim Ws As Worksheet

   Set Ws = Worksheets("Feuil1")
    mess = "": cpt = 0
    For Each Cel In Ws.Range("c2:C" & Ws.Range("C2").End(xlDown).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(13)
            cpt = cpt + 1
            'MsgBox "Attention" & " LE CLIENT " & Cel.Offset(0, -2) & " est en retard de reglement" & "sur la facture " & Cel.Offset(0, -1)
        End If
    Next Cel
    If mess <> "" Then
        If cpt > 1 Then
            MsgBox "Attention !" & Chr(13) & "Les clients suivants sont en retard de règlement :" & _
                        Chr(13) & Chr(13) & mess
        Else
            MsgBox "Attention !" & Chr(13) & mess & " est en retard de règlement."
        End If
    End If
End Sub


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 » 6 décembre 2018, 14:50

Merci ric
ça marche !
Cordialement :)
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'119
Appréciations reçues : 176
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 6 décembre 2018, 14:55

:bv3:




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 » 9 décembre 2018, 14:28 » dans Excel - VBA
    13 Réponses
    407 Vues
    Dernier message par Nismo
    10 décembre 2018, 09:07
  • Message alerte
    par gnappoma » 20 février 2017, 15:55 » dans Excel - VBA
    2 Réponses
    291 Vues
    Dernier message par gnappoma
    20 février 2017, 16:54
  • message d'alerte
    par Engels » 5 novembre 2016, 12:07 » dans Excel - VBA
    16 Réponses
    687 Vues
    Dernier message par MFerrand
    9 novembre 2016, 08:54
  • Message d'alerte
    par sophang » 13 mai 2016, 10:02 » dans Excel - VBA
    3 Réponses
    421 Vues
    Dernier message par MFerrand
    13 mai 2016, 14:31
  • Message d'alerte.
    par rahimpamelo » 21 septembre 2016, 10:48 » dans Excel - VBA
    5 Réponses
    412 Vues
    Dernier message par mdo100
    21 septembre 2016, 14:21
  • VBA Message Alerte
    par Tidav » 31 mai 2016, 14:09 » dans Excel - VBA
    3 Réponses
    187 Vues
    Dernier message par iliyes
    31 mai 2016, 22:01