Msgbox

[breitzou]

Bonjour le forum,

dans un fichier, je souhaiterais pouvoir double-cliquer sur une cellule (par exemple "C3"). A ce moment, une Msgbox apparaît et pose la question suivante " Souhaitez-vous marquer la cellule? " avec deux réponses possible : "oui", "non".
Si je clique sur "oui" un "X" apparaît dans la cellule "C3"
Si je clique sur "non" rien ne se passe.

Merci de votre aide

Breitzou

 

[CB60]

Re : Msgbox

Bonjour
test cela

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect([c3], Target) Is Nothing Then
  choix = MsgBox("si vous cliquez sur Oui un X dans la cellule", vbYesNo)
  If choix = vbYes Then
  Target.Value = "X"
  Else
  Target = ""
  End If
  End If
  Cancel = True
End Sub

 

[CBernardT]

Re : Msgbox

Bonjour breitzou, CB60 et le forum,

Une variante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Choix As String
Choix = MsgBox("Souhaitez-vous marquer la cellule ?", vbYesNo)
If Choix = vbYes Then Target = "X"
End Sub

 

[breitzou]

Re : Msgbox

Bonjour CB60 et CBernardT,

Les deux solutions fonctionnent. Alors, un grand merci à tous les deux.
Bonne journée.

Breitzou