Mise en forme conditionnelle ou Avertissement Macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Snowkite
Membre fidèle
Membre fidèle
Messages : 207
Appréciation reçue : 1
Inscrit le : 16 décembre 2016
Version d'Excel : MAC 2011

Message par Snowkite » 26 mai 2019, 11:16

je crois que j'ai trouvé d'ou venais l'erreur, en rajoutant deprotege et protege
Sub Verif()
deprotege
        Range("AB15:AB44").Interior.Color = xlNone
        k = 0: nbJ = 0: flag = 0
        For ln = 15 To 38
            Set plage = Range("AB" & ln & ":AB" & ln + 6)
            If WorksheetFunction.Sum(plage) >= 7 Then
                plage.Interior.Color = RGB(255, 0, 0)
                flag = 1
            End If
        Next ln
        If flag = 1 Then
            MsgBox "ATTENTION, l'agent a travaillé plus de 6 jours consécutifs, merci de corriger le planning agent.", 16
        End If
protege
End Sub

Sub divers()
    Application.EnableEvents = True
End Sub
je pense que cette fois c'est ok

Qu'en penses-tu?
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 11'871
Appréciations reçues : 232
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 26 mai 2019, 11:52

Essaie ainsi :
Sub Verif()
        Call deprotege
        Range("AB15:AB44").Interior.Color = xlNone
        k = 0: nbJ = 0: flag = 0
        For ln = 15 To 38
            Set plage = Range("AB" & ln & ":AB" & ln + 6)
            If WorksheetFunction.Sum(plage) >= 7 Then
                plage.Interior.Color = RGB(255, 0, 0)
                flag = 1
            End If
        Next ln
        If flag = 1 Then
            MsgBox "La durée maximale de 6 jours consécutifs n'est pas respectée.", 16
        End If
       Call protege
End Sub
Bye !
1 membre du forum aime ce message.
S
Snowkite
Membre fidèle
Membre fidèle
Messages : 207
Appréciation reçue : 1
Inscrit le : 16 décembre 2016
Version d'Excel : MAC 2011

Message par Snowkite » 22 juin 2019, 10:22

Dans le même style de macro que la précédente, est-il possible d'avoir une macro que lorsque la cellule Z46 est > 35 dans l'exemple PS V3, et bien il y a un message d'alerte "Attention, nbr d'heures supplémentaires supérieur à 35H, ce n'est pas possible, merci de corriger"

Encore merci de votre aide.
Exemple PS V3.xlsm
(454.5 Kio) Téléchargé 1 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message