Création d'un commentaire en VBA

Bonjour à tous,

Je dispose du code suivant (de Boisgontier) pour la création d'un commentaire en VBA :

With Range("A1")
 If .Comment Is Nothing Then
  .AddComment ' Création commentaire
  .Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
  .Comment.Shape.OLEFormat.Object.Font.Size = 7
  .Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
  .Comment.Text Text:="Ceci est un commentaire..."
  .Comment.Shape.TextFrame.AutoSize = True
 End If
End With

Je l'ai placé dans Feuil1 :

Cependant, je ne vois nulle part le commentaire sur la feuille d'Excel... Quel est le problème ?

Merci de votre aide.

Bonsoir ChrisBlues, le forum,

Dans qu'elle procédure est placé ton code?

Peux-tu mettre ton fichier en PJ?

Cordialement,

Bonsoir Streetchris82,

Je ne l'ai placé dans aucune procédure, il est dans un fichier Excel complètement vide.

Merci de ton aide.

Bonsoir ChrisBlues, le Forum,

Tu retournes un fichier de type xlsx donc aucun code ne peut fonctionner.

Une macro de plus ne commence pas par With

Rebonsoir,

Ceci ne pouvait pas fonctionner car ton fichier est au format xlsx et ton code ne se trouvait dans aucune procédure et ne pouvait donc pas être exécuté.

Voit le fichier joint

Cordialement,

Ah ok ! Oui, c'est vrai, j'aurais dû penser à enregistrer le fichier en xlsm !

Mais comment fait-on pour l'installer en "worksheet" ?

Private Sub Worksheet_Activate()

Une fois dans l'éditeur voit les 2 listes déroulantes en haut de la fenêtre d'édition

- La 1ère liste sert à sélectionner un objet lié au module sélectionné dans l'arborescence projet

- La 2ème liste sert à sélectionner un des évènements disponible lié à l'objet sélectionné en liste 1

N'hésite à suivre le cours VBA du forum, il est très bien fait et bien mieux expliquer que ce que je peux faire.

Cordialement,

Ok, je vais voir le cours...

Merci encore pour ton aide.

Bonjour Streetchris82,

Je n'ai pas trouvé, dans les cours du forum, d'explications sur le choix d'un Worksheet pour l'installation d'un commentaire, ni comment provoquer la création d'une feuille Worksheet pour y écrire :

Private Sub Worksheet_Activate()

Désolé, je suis peut-être dur de la "comprenette", mais, dans l'état actuel de mes connaissances dans la programmation en VBA, j'ai besoin d'explications supplémentaires : si tu peux me fournir les liens sur les cours du forum qui m'éclaireraient sur ce sujet, ça m'aiderait beaucoup.

Merci de ton aide.

Bonjour ChrisBlues,

Ces 2 liens devraient t'aider :

https://www.excel-pratique.com/fr/vba/evenements_classeur

https://www.excel-pratique.com/fr/vba/evenements_feuille

Pour ta 1ère question si j'ai bien compris ta demande le code pour sélectionner une feuille (ou Sheet, ou Worksheet)

Comme ceci

Sheets("Feuil1").Range("A1").Select     ' Ou "Feuil1" représente le nom de l'onglet

Ou si tu veux utiliser la feuille actuellement ouverte dans Excel

ActiveSheet.Range("A1").Select     ' "ActiveSheet" représente la feuille active

Ce lien peut t'aiguiller aussi :

https://www.excel-pratique.com/fr/vba/selections

Cordialement,

Bonjour Streetchris82,

Super ! Je vais étudier ça de près : je m'y mets tout de suite... Merci beaucoup de ton aide.