correction de code

[ggires]

Bonjour tous le monde,
J'ai trouver sur le forum la possibilités de créer un "Toggle button" ON/OFF avec pour action, dans mon cas, d'ouvrir ou de fermer le commentaire d'une cellule sélectionnée. Le problème est que si j'ai le malheur de ne pas avoir sélectionné une cellule possédant un commentaire, la macro plante. Pouvez-vous me m'aider pour ajouter une ligne qui dirai : Si la cellule sélectionné ne contient pas de commentaire alors ne rien faire.

Je vous remercie de votre attention,
Guillaume (Débutant)

 

[JNP]

Re : correction de code

Bonjour GGires et bienvenue 🙂,
Tu n'as pas ouvert ton fil au bon endroit, ici, c'est pour les problèmes liés à l'utilisation du forum 🙄...
Pour ton problème, je ne crois pas (en tout cas je n'en connais pas) qu'il y ait un code pour détecter si la cellule a un commentaire ou non...
Le plus simple est de mettre une gestion d'erreur, mais en entourant uniquement la (les) manipulation(s) qui plante(nt), type

On Error Resume Next
Selection.Comment.Visible = True
On Error GoTo 0

Bonne après-midi 😎

 

[PMO2]

Re : correction de code

Bonjour,

Essayez le code suivant qui teste si la cellule active possède un commentaire

Sub IsComment()
Dim C As Comment
Dim bool As Boolean
If TypeName(Selection) <> "Range" Then Exit Sub
For Each C In ActiveSheet.Comments
  If C.Parent.Address = ActiveCell.Address Then
    bool = True
    Exit For
  End If
Next C
If Not bool Then Exit Sub

MsgBox Selection.Comment.Text 'pour illustrer (à virer)

'... votre code (suite du traitement)

End Sub

Cordialement.

PMO

 

[Pierrot93]

Re : correction de code

Bonjour à tous

une autre solution pour tester si la cellule active possède un commentaire :

Dim c As Comment
Set c = ActiveCell.Comment
If c Is Nothing Then MsgBox "pas de commentaire"

bonne soirée
@+