Affichage d'un pop-up suivant une valeur

Bonjour,

Je voudrais qu'une fenêtre style pop-up apparaisse quand la valeur d'une cellule désignée est égale à 1.

Ce pop-up est informatif et donc non bloquant, mais juste pour rappeler à l'utilisateur de faire une action.

Pouvez-vous m'aider svp.

Merci d'avance.

Bonjour,

Peut-être comme cela

Code à mettre dans le module de la feuille

Cellule concernée: A1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" And Target = 1 Then MsgBox "Faire cette action"
End Sub

bonne journée

Ok c'est nickel mais le problème c'est que la msg box n'apparaît que si l'on se trouve sur la cellule.

Que faut-il modifier dans le code pour que la fenêtre apparaisse peu importe où l'on se trouve ?

Re Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = 1 Then MsgBox "Faire cette action"
End Sub

Pour toute la page

Et pour être complet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = 1 And Not Intersect(Target, [A1:A10]) Is Nothing Then MsgBox "Faire cette action"
End Sub

Pour une plage allant de A1 à A10

Bonne journée

Sorry mais ça ne fonctionne que si je retourne dans la(es) cellule(s) visée(s) dans le code.

En fait j'ai une case à cocher avec la cellule liée en A1 (par exemple).

Ensuite, en A2 j'ai une formule qui dit que Si(A1=VRAI;1;0)

Et donc j'aimerais que lorsque j'ai coché la case, donc la valeur donnera 1, le msgbox apparaisse.

J'espère que je suis compréhensible??

Bonjour,

Par curiosité j'ai essayé et peut être trouvé une solution!

A mettre dans la feuil concerné:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Macro par Dan

' la sa va mettre une croix en doublecliquant

If Not Application.Intersect(Target, Range("a1")) Is Nothing Then

Cancel = True

Target = "X"

End If

'pour finir il va allée sur "A2"

Range("A2").Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'quand la cellule "A2" serra selectionner avec un "1" le message apparetra

If Target.Count > 1 Then Exit Sub

If Target = 1 And Not Intersect(Target, [A2]) Is Nothing Then MsgBox "Faire cette action"

End Sub

Cordialement

C'est très gentil à vous mais ça ne correspond pas exactement à ce que je recherche.

Pour plus de clarté je joins un fichier exemple.

Merci pour votre aide !!!

Bonjour,

Si tu veux vraiment attirer l'attention de l'utilisateur emploi une MFC ou tu met la cellule en rouge, par exemple.

A+

Bonjour,

Pas sur d'avoir compris

a tester

Sub Caseàcocher3_Cliquer()
    If Range("A5") = 1 Then MsgBox "Faire cette action"
End Sub

bonne journée

Yes !!! Nickel chrome merci DL_13 c'est exactement ce que je voulais !!!!

Mille merci et merci aussi à ceux qui ont essayé de m'aider !!! (festysonic & lermite)

Bonne journée !!