Claudy
XLDnaute Accro
Bonjour à tous,
dans un module, j'utilise la macro ci dessous:
Sub Inserer_Commentaire()
Dim zaza As String
zaza = InputBox("Quelle remarque?", ActiveCell.Value, ActiveCell.Comment.Text)
If zaza = "" Then
ActiveCell.ClearComments
Exit Sub
End If
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = False
'.Comment.Shape.Select True
.Comment.Text Text:=zaza
End With
End Sub
Cela fonctionne bien si la cellule contient déjà un commentaire, mais si il n'y en a pas, ça bug!
Alors , il faudrait tester la présence d'un commentaire, mais je n'y arrive pas!
Merci d'avance pour votre aide,
Claudy
dans un module, j'utilise la macro ci dessous:
Sub Inserer_Commentaire()
Dim zaza As String
zaza = InputBox("Quelle remarque?", ActiveCell.Value, ActiveCell.Comment.Text)
If zaza = "" Then
ActiveCell.ClearComments
Exit Sub
End If
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = False
'.Comment.Shape.Select True
.Comment.Text Text:=zaza
End With
End Sub
Cela fonctionne bien si la cellule contient déjà un commentaire, mais si il n'y en a pas, ça bug!
Alors , il faudrait tester la présence d'un commentaire, mais je n'y arrive pas!
Merci d'avance pour votre aide,
Claudy