XL 2016 Message d'alerte

xUpsilon à dit:

Re,

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

Bonne continuation

Cliquez pour agrandir...

xUpsilon à dit:

Bien, reprenons le code et commentons le :

VB:

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

Cliquez pour agrandir...

sylvanu à dit:

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

Cliquez pour agrandir...

sylvanu à dit:

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.

Cliquez pour agrandir...

xUpsilon à dit:

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

Cliquez pour agrandir...