Bouton Annuler

Bonjour,

Dans ce fichier j'ai une macro pour les réservations.

Mais si je clique sur annuler, la macro se lance quand même

comment faire pour annuler cela.

Sub InsertionComment()
Dim MyCmt As String
Dim LaCell As Range

  Set LaCell = ActiveCell
  MyCmt = InputBox("Inscrivez Nom, N° de Ticket, Commentaire ")
   On Error Resume Next
  With LaCell
    .AddComment
    With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 12611584
      .TintAndShade = 0
      .PatternTintAndShade = 0
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        With .Cells(1, 1).Comment
          .Text Text:=MyCmt
        End With
      End With
    End With
  End With
  Selection.Merge

End Sub

Merci

Bonjour,

Après MyCmt=InputBox ......

tu ajoutes :

If MyCmt Like "" Then End

Bonsoir RENAUDER

Merci

C'est super