Parametrage msgbox

Salut Cher FORUM

J'ai un soucis avec ma macro

Aidez moi à bien la rédiger. Merci

Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$F$2" Then
  If MsgBox(" Voulez vous Changer de mois ? ", vbYesNo + 32) = vbNo Then
Range("F2") = ""
Exit Sub
  End If
Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
End If
End Sub

Bonjour,

Pour t'aider, commence par nous dire ce que tu souhaites faire, et détailler quel est ce "soucis" avec la macro...

Pour moi, il suffit à priori de remplacer ces 2 instructions :

Exit Sub
End If

Par :

Else

MERCI PEDRO22

Le soucis c'est quand dans la boite de dialogue on doit répondre "NON"

Bonjour,

Dommage que tu ne répondes pas aux questions posées ...

Si tu ne veux que le principe ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$2" Then Exit Sub
Dim res
res = MsgBox(" Voulez vous Changer de mois ? ", vbYesNo)
  If res = vbNo Then
        MsgBox "Non"
  Else
        MsgBox "Oui"
  End If
End Sub

En espèrant que cela t'aide

j'ai joins un fichier pour illustrer ma preoccupation

Re,

Le fichier que tu as joint ' n'illustre pas ta préoccupation " ...

As-tu testé la macro suggérée ?

As-tu compris la logique de la macro ?

Peux-tu adapter cette macro à ton besoin ?

Pourquoi utilises-tu l'évènement Change ?

merci

je teste et je vous reviens

KTM a écrit :

merci

je teste et je vous reviens

Voilà une sage décision ...!!!