Quelle est mon erreur sur cette sub vba

[rimbaut]

Bonjour,

je voudrais savoir quelle est mon erreur sur cette petite sub régigé en vba pour excel :

 

Sub essai5()

With Worksheets("Feuil3").Range("b3").AddComment

.Text " Bravo vous avez gagné "

End With

End Sub

 

Quand je veux exécuter j'ai l'erreur 1004 " erreur définie par l'application ou par l'objet ". Que signifie cette erreur ?

 

Merci pour aide et votre patience

[gazobumeu]

Bonjour,

pas un grand spécialiste, mais ta deuxième ligne commence par un point ?

[rimbaut]

Ma deuxième ligne commence par un point car j'ai utilisé l'instruction With

[guyguy59]

Bonjour

 

Il fallait vérifier si la cellule "B3" contient déjà un commentaire, si oui il faut le supprimer et mettre un nouveau.

 

With Worksheets("Feuil3")

' Vérifie s'il y a un commentaire

If .Range("b3").Comment.Text = "" Then

.Range("b3").AddComment " Bravo vous avez gagné "

Else

.Range("b3").Comment.Delete ' Supprime le commentaire

.Range("b3").AddComment " Bravo vous avez gagné "

End If

End With

 

Bon Week