tester existance commentaire

[marcello06]

Bonjour à tous le forum


De nouveau je sollicite votre aide car je ne trouve pas mon bonheur dans la recherche

j'utilise un inputbox pour placer un commentaire sur une cellule tout est ok en creation et en suppression mais comment tester si le commentaires est déjà présent et donc passer en modification

Private Sub commentaires()
Dim Celcom As Range
Dim Machaine As String

Application.ScreenUpdating = False
Machaine = Application.InputBox(Prompt:="Saisir le commentaire", Title:="Commentaire", Default:="Info", Type:=2)


For Each Celcom In Selection
If Not Intersect(Celcom, PlageTableau) Is Nothing Then
With Celcom

.AddComment
.Comment.Visible = False
.Comment.Text Text:="INFO Planning:" & Chr(10) & Machaine
End With

End If

Next Celcom
Application.ScreenUpdating = True
End Sub


Merci d'avance pour vos réponses et bonne apm à tous

 

[Pierrot93]

Re : tester existance commentaire

Bonjour Marcello

pour tester l'existence d'un commentaire, regarde le code dessous :

Dim c As Comment
Set c = Range("A2").Comment
If Not c Is Nothing Then
    MsgBox "commentaire present"
Else
    MsgBox "commentaire absent"
End If

bon après midi
@+

 

[marcello06]

Re : tester existance commentaire

Bonsoir Pierrot93

Je vais l'intégrer dans mon fichier

Merci et à très bientôt