XL 2019 msg d'alerte à l'ouverture du classeur

[pascal21]

bonjour à tous
je cherche comment faire en vba pour avoir un message à l'ouverture de le feuille sous conditions
si la cellule p1 contient un nombre supérieur à 1 j'aimerais un message du genre "vous avez (contenu de la cellule p1) péremptions"
merci

 

[job75]

Bonsoir pascal21,

Dans ThisWorkbook :

Private Sub Workbook_Open()
Dim n
n = Application.CountIf([P4:P100], "*alerte*")
If n Then MsgBox "Vous avez " & n & " alerte" & IIf(n = 1, "...", "s...")
End Sub

A+

 

[gbinforme]

bonjour,

Il suffit de faire une fonction NB.SI (CountIf) sur la plage à l'open de thisworkbook

Private Sub Workbook_Open()
Dim nba As Long
    nba = Application.CountIf(ThisWorkbook.Sheets("Feuil1").Range("P4:P100"), "alerte")
    If nba > 0 Then MsgBox "vous avez des alertes péremptions : " & nba
End Sub

 

[Nathe]

bonjour à tous
je cherche comment faire en vba pour avoir un message à l'ouverture de le feuille sous conditions
si la cellule p1 contient un nombre supérieur à 1 j'aimerais un message du genre "vous avez (contenu de la cellule p1) péremptions"
merci

Bonjour,

Private Sub Worksheet_Activate()
    Dim valeur As Double
    valeur = Me.Range("P1").Value
    If IsNumeric(valeur) And valeur > 1 Then
        MsgBox "Vous avez " & valeur & " péremptions.", vbExclamation, "Alerte"
    End If
End Sub

Bonne continuation

Nathe

 

[job75]

Le post #1 a été modifié, ce n'est plus la même question, c'est pas du bon boulot...

 

[pascal21]

Le post #1 a été modifié, ce n'est plus la même question, c'est pas du bon boulot...

oui désolé j'ai voulu le rendre plus clair

 

[fanch55]

Bonjour,
comme on ne sait pas si cela ne concerne qu'une feuille et que de toute façon, il faudra bien faire le signalement à l'ouverture du classeur.
Je rejoins la proposition de @job75 ( adaptée à la nouvelle demande )

Private Sub Workbook_Open()
    Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
    Case "Feuil1", "Feuil2"
        With Sh.[P1]
            If Val(.Value) > 0 Then
                .Select
                MsgBox "Nombre de Péremptions : " & .Value & vbLf & vbLf _
                      & "dans la feuille " & Sh.Name, _
                        vbExclamation, "Alerte"
            End If
        End With
    Case Else: DoEvents
    End Select
End Sub