Microsoft 365 Pourquoi ma 1ère MsgBox n'apparait pas à l'ouverture de mon fichier

[rosabelle]

Bonjour,

Novice je viens de créer ma 1ère MsgBox grâce au tuto VBA de DavidXLD que je remercie chaleureusement.
Il faut que je m'entraîne encore car je suis pas très douée.
J'ai mis le code suivant (des plus simples) sur une feuille de mon fichier
Sub alertesaisie()
MsgBox ("Attention,saisir le coefficient ")
End Sub

J'ai mis ce code en dessous d'un autre code que j'utilise pour l'impression de certains éléments de la feuille (je ne sais pas si cette information a une importance).
Mon problème c'est que la boîte de dialogue MsgBox n'apparait plus à l'ouverture de mon fichier depuis que j'ai fait le test avec la touche F5 et ai cliqué sur "ok".
Je souhaiterais que ce message apparaisse à chaque fois qu'on ouvre le fichier.
Merci par avance pour votre analyse
A bientôt

 

[job75]

En fait non vous n'aviez pas tous les éléments, voyez le code de ce fichier (3) :

Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet 'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sh.[C4]
    .Select
    If .Value = "" Then
        MsgBox "Attention, saisir le prix !", vbInformation, "Avertissement"
        CreateObject("wscript.shell").SendKeys "%{DOWN}" 'touches Alt+<BAS>, déroule la liste
    ElseIf MsgBox("Etes-vous sûr du prix de " & .Text & " ?", vbQuestion + vbYesNo, "Vérification") = vbNo Then
        CreateObject("wscript.shell").SendKeys "%{DOWN}"
    End If
End With
End Sub

wscript.shell évite la désactivation du pavé numérique par SendKeys.

 

[rosabelle]

Bonsoir,

Super, ça fonctionne très bien, je l'ai intégré dans mon fichier.
C'est quand même compliqué pour une novice.
Je réussirai à créer une MsgBox basique je crois, pas un code aussi élaboré que ci-dessus, encore du travail......
Mille fois merci!
Bonne soirée