XL 2016 Message d'alerte

[karen]

Bonjour!
J'aimerais avoir un message d'alerte lorsque j'ouvre mon fichier lorsque
Colonne G<=5 : La formation pour (inscrire colonne B+A) est échu
Colonne G<=15 : La formation pour (inscrire colonne B+A) sera bientôt échu
Colonne G<=40 : La formation pour ( inscrire colonne B+A) est à renouveller

Je met le tableau pour mieux comprendre de quoi je parle!

Merci à l'avance...

 

[xUpsilon]

Bonjour,

Voir ci-joint.

Bonne continuation

 

[karen]

Wow!!!!!
Je n'en reviens pas de voir la vitesse à lequel vous avez fait ça!!! Et dire que je me suis couché au petite heure du matin pour trouver comment faire!! Merci mille fois

 

[xUpsilon]

Re,

Si jamais il faut des explications, ce sera avec plaisir.

Bonne continuation

 

[karen]

Re,

Si jamais il faut des explications, ce sera avec plaisir.

Bonne continuation

Je vais essayer de comprendre comment vous avez fait... parce que le dossier aura plusieurs page...

 

[xUpsilon]

Bien, reprenons le code et commentons le :

Private Sub Workbook_Open() 'on affecte la macro à l'événement "le classeur s'ouvre"
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row 'on créé une boucle qui va aller de 5 jusqu'à la dernière ligne du tableau
    If Range("G" & i) <= 40 Then 'si la valeur en G est inférieure à 40
        If Range("G" & i) <= 15 Then 'si elle est en plus inférieure à 15
            If Range("G" & i) <= 5 Then 'si encore encore en plus elle est inférieure à 5
                MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " est échue." 'alors on affichage la phrase prévue, en insérant nos éléments des colonnes A et B
            Else
                MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " sera bientot échue." 'sinon si <= 15 mais pas <= 5 même principe
            End If
        Else
            MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " est à renouveller." 'sinon si <= 40 mais pas <= 15
        End If
    End If 'fin des tests sur la valeur en G de la ligne concernée
Next i 'on passe à la ligne suivante
    
End Sub

Si jamais il y a encore des questions, ne pas hésiter.

Bonne continuation

 

[karen]

Bien, reprenons le code et commentons le :

Private Sub Workbook_Open() 'on affecte la macro à l'événement "le classeur s'ouvre"
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row 'on créé une boucle qui va aller de 5 jusqu'à la dernière ligne du tableau
    If Range("G" & i) <= 40 Then 'si la valeur en G est inférieure à 40
        If Range("G" & i) <= 15 Then 'si elle est en plus inférieure à 15
            If Range("G" & i) <= 5 Then 'si encore encore en plus elle est inférieure à 5
                MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " est échue." 'alors on affichage la phrase prévue, en insérant nos éléments des colonnes A et B
            Else
                MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " sera bientot échue." 'sinon si <= 15 mais pas <= 5 même principe
            End If
        Else
            MsgBox "La formation pour " & Range("B" & i) & " " & Range("A" & i) & " est à renouveller." 'sinon si <= 40 mais pas <= 15
        End If
    End If 'fin des tests sur la valeur en G de la ligne concernée
Next i 'on passe à la ligne suivante
   
End Sub

Si jamais il y a encore des questions, ne pas hésiter.

Bonne continuation

Votre aide est tellement apprécié!! Merci encore

 

[sylvanu]

Bonjour,
Une variante du fichier de xUpsilon.
S'il y a beaucoup de noms, ne mettre qu'une fenetre récapitulative à l'ouverture du fichier.

 

[job75]

Bonjour karen, xUpsilon, sylvanu,

S'il y a beaucoup de noms, ne mettre qu'une fenetre récapitulative à l'ouverture du fichier.

Ou peut-être 3 MsgBox puisqu'il a 3 cas à considérer, en affichant dans chaque cas la liste des personnes concernées.

 

[GALOUGALOU]

bonjour karen bonjour l e forum
je trouve les solutions excellentes. j'aime bien la solution de sylvanu
pour ce qui me concerne j'aurai rajouté un tri sur la colonne G pour rassembler les personnes arrivant à échéance en premier
cordialement galougalou

 

[sylvanu]

Un mélange de l'idée de Job et de celle de Galougalou.
Une seule fenetre mais les trois type d'alerte séparée.

 

[karen]

Un mélange de l'idée de Job et de celle de Galougalou.
Une seule fenetre mais les trois type d'alerte séparée.

Je suis bouce bée.....
Est ce que c'est possible que le message d'alerte sois par page.... car le message apparaît pour la page qui est active à l'ouverture seulement...
Je ne sais pas si je m'explique comme il faut..

 

[xUpsilon]

Re,

Il suffira alors de faire une boucle de 1 à Worksheets.Count qui englobe le code déjà existant, et à chaque passage on applique un Worksheets(_).Activate.

Bonne continuation

 

[sylvanu]

1- Déjà en PJ, un peu mieux figolé ( dans le cas où il n'y aurait personne dans une catégorie )
2-Tout dépend de comment on repère les pages ( noms par exemple )

 

[karen]

Re,

Il suffira alors de faire une boucle de 1 à Worksheets.Count qui englobe le code déjà existant, et à chaque passage on applique un Worksheets(_).Activate.

Bonne continuation

Super!!! Merci encore