Commentaire sur plusieurs cellules

Bonjour,

Ma macro pour insérer un commentaire fonctionne bien si une seule cellule est sélectionnée.

Mais pas si il y a plusieurs cellules.

Cela efface le commentaire.

voir script joint.

Merci

Merci

Bonjour

Ce n'est pas le script qu'il faut mais plutôt un fichier

A tester

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

  Set LaCell = ActiveCell
  MyCmt = InputBox("Inscrivez Nom, N° de Ticket, Commentaire ")

  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

Bonjour Banzai64

Merci pour ton aide cela fonctionne.

Afin de ne pas mourir Idiot, as-tu le temps de m'expliquer mes erreurs sur mon script.

Sinon

Merci très sincèrement

Bonjour

Dans une sélection multiple, il faut pointer vers la 1ère cellule (et pour une sélection unique ce code ne gêne pas

With .Cells(1, 1).Comment

En plus dans un autre post tu avais demandé que ton commentaire s'efface : Il suffit de ne pas l'afficher

Bonjour Banzai64

Et oui on voit de suite la différence entre un pro et un novice

Merci pour tout très sincèrement