Afficher un UserForm

[Nonno 94]

Bonjour le Forum,

je viens vous demander s'il est possible d'afficher ou faire apparaître une boîte de dialogue avec un message d'avertissement lorsque la cellule d'une feuille prend une valeur déterminée.
Ensuite, si tel est le cas, peut-on en cliquant sur "OK" dans la boîte de dialogue lancer une Macro ?
Cette "procédure !" a pour but de rappeler qu'il ne pas oublier de lancer la Macro.

Existe-t-il d'autres solutions plus "informatiquement" correctes pour atteindre cet objectif ?

Remerciements pour vos coseils et solutions.
Cordialement.

Nonno 94.

 

[Dull]

Re : Afficher un UserForm

Salut Nonno 94, le Forum

Peut-être comme cela si j'ai bien compris

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
    If Target.Value = "macro" Then Procedure ' Ta valeur est macro
End If
End Sub

dans le Module de la feuille en Question


et

Sub Procedure()
Dim Act As String
Act = MsgBox("Voulez-Vous lancer la Macro?   ", vbInformation + vbOKCancel, "Ta Macro")
If Act = vbCancel Then Exit Sub
MsgBox "La macro est lancée"
End Sub

Edit: Salut CC 🙂 Hi!!! Kjin🙂
Bonne Journée

 

[kjin]

Re : Afficher un UserForm

Bonjour,

lorsque la cellule d'une feuille prend une valeur déterminée.

En invoquant les esprits, par formule, par saisie au clavier...
Macro événementielle dans le module de la feuille concernée...
Lorsqu'on saisie 1 dans la cellule A1...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = 1 Then
    If MsgBox("Il y a 1 stroumf" & vbLf & "Lancer la macro ?", vbYesNo) = 6 Then
        'Call la_macro_à_lancer
    End If
End If
End Sub

...lorsque A1 contient une formule qui renvoie 1

Private Sub Worksheet_Calculate()
If [A1] = 1 Then
    If MsgBox("Il y a 1 stroumf" & vbLf & "Lancer la macro ?", vbYesNo) = 6 Then
        'Call la_macro_à_lancer
    End If
End If
End Sub

Edit : Salut les copains ! 😀
A+
kjin

 

[Nonno 94]

Re : Afficher un UserForm

Re-bonjour le Forum,

je vous remercie TOUS pour la rapidité et la pertinence de vos réponses.
Je n'ai que l'embarras du choix ! Mais, ainsi que vous le savez : "Abondance de biens ....ne nuit pas". Alors .....

Pour répondre plus précisément à Monsieur Kjin, la valeur de la cellule change par formule.

Ceci m'offre l'occasion de poser la question suivante :
Cette valeur changeant pour 2 raisons : la raison "A" et la raison "B", est-il possible de faire apparaître dans la boîte de dialogue :
- soit le message 1 suivant : Voulez- vous enregistrer ce fichier pour la raison "A" ? si la valeur de la cellule a changé pour la raison "A"
- soit le message 2 suivant : Voulez- vous enregistrer ce fichier pour la raison "B" ? si la valeur de la cellule a changé pour la raison "B" ?

Dans l'attente et en vous souhaitant une EXCELlente fin de semaine.
Cordialement.

Nonno 94.

 

[Nonno 94]

Re : Afficher un UserForm

Re-bonjour le Forum,

juste pour vous dire que j'ai trouvé de quelle façon résoudre mon petit pb. et vous souhaiter une bonne fin de journée.

Nonno 94.