MsgBox vbyes vbno

Hello tout le monde !

Encore un petit coup de main s'il vous plait

...........Pour finir ce bout de code

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x

If Not Intersect(Target, Range("a1")) Is Nothing Then
If Target <> "" Then
Valeur = Target.Value
x = MsgBox("Etes vous certain de vouloir valider " & Valeur & " pour l'année en cours ?", vbQuestion + vbYesNo)

End If
End If

End Sub

En fait j'aimerai juste avoir une validation de la cellule ; voulez vous.......... click sur oui............. c'est parti !

Par contre click sur non, j'aimerai que ma cellule reste à "0"

Le truc est que je dois mettre simplement l'année en [A1] et demander une confirmation après avoir validé ; je sais, je sais, ça à l'air tout bête

Merci par avance.

@ toute

David

Re !

Je me réponds tout seul, ça a l'air de tourner comme je l'entends

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("c1"), Target) Is Nothing Then
    If UCase(Target.Cells(1, 1)) <> "" Then
        If MsgBox("Valider le règlement de " & Valeur & " €uros à la TOM annuelle", vbQuestion + vbYesNo) = vbYes Then Exit Sub
    If vbNo Then
                Target.Value = Empty

   End If
        End If
   End If

End Sub

Bonne soirée.

David

Re re !!!

Par contre, plutôt que d'avoir une msgbox avec l'entête "Microsoft excel" est il possible d'avoir par exemple "ATTENTION" ?

En principe je me sert de ce modèle mais n'arrive pas à l'adapter à cette ligne !

MsgBox "Valider le règlement de " & Valeur & " €uros à la TOM annuelle", , "                     ATTENTION"

Merci

A toute..........

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("c1"), Target) Is Nothing And Target <> "" Then
    If MsgBox("Valider le règlement de " & Valeur & " €uros à la TOM annuelle", _
    vbQuestion + vbYesNo, "Titre_de_la_msgbox") = vbNo Then Target.ClearContents
  End If
End Sub

Cordialement,

Darzou

Bonjour Darzou,

Désolé je n'ai pu te répondre avant

Je te remercie pour ton aide précieuse, c'est super sympa.

A bientôt de te lire.

David