VBA ajout de commentaire dans la cellule active

Question

VBA ajout de commentaire dans la cellule active

Anonyme

Bonjour,

Je souhaite ajouter ou modifier un commentaire dans la cellule active. J'ai saisi :

Dim Ligne As Long 

Dim Commentaire As comment 

ActiveSheet.Unprotect Password:="...." 

Application.EnableEvents = False 

If Commentaire Is Nothing Then 

    comm = InputBox("fermeture mairie explication :", "FERMETURE MAIRIE", "fermeture : ") 

Else 

    Set Commentaire = ActiveCell.comment 

    comm = InputBox("fermeture mairie explication :", "FERMETURE MAIRIE", Commentaire) 

End If 

If comm &lt;&gt; vide Then 

    **Sheets(2).Cells(ActiveCell.Row, ActiveCell.Column).AddComment = comm** 

End If

Le programme plante sur la ligne en gras.

Cordialement

Richard

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

5 réponses

Answer 1

DanielCo 107.7K

Il y a quelque chose de pas normal avec le classeur. Peux-tu le partager ?

Daniel

0 commentaires

Answer 2

Anonyme

voilà

Richard

0 commentaires

Answer 3

DanielCo 107.7K

Bonjour,

Je n'ai pas d'erreur :

Quel est le numéro et le libellé du message d'erreur ?

Daniel

0 commentaires

Answer 4

Anonyme

Bonjour,

il y a toujours un pb :

cordialement

Richard

0 commentaires

Answer 5

DanielCo 107.7K

Bonjour,

Enlève le signe "=" :

Sheets(2).Cells(ActiveCell.Row, ActiveCell.Column).AddComment comm

NB Tu dois remplacer ;

If Commentaire Is Nothing Then

par:

If Sheets(2).Cells(ActiveCell.Row, ActiveCell.Column).Comment Is Nothing Then

Daniel

0 commentaires

Partager via

VBA ajout de commentaire dans la cellule active

5 réponses