Masquer les commentaires à l'ouverture

Masquer les commentaires à l'ouverture - VB/VBA/VBS - Programmation

Marsh Posté le 05-06-2008 à 13:30:17    

:hello:  
 
Salut à tous !
 
Je cherche le code pour qu'à l'ouverture d'une feuille Excel, les commentaires de la Feuil1 soient masqués...
 
Voici le code que j'ai tapé :
 

Code :
  1. Sub Workbook_Open()
  2.     Sheets("Feuil1" ).Select
  3.     Range("A1:Z99" ).Comment.Visible = False
  4.      
  5. End Sub


 
Malheurement, j'ai le message "Erreur d'exécution '91' - Variable objet ou variable de bloc With non définie"...  :(  
 
Y a-t-il quelqu'un pour me venir en aide ?
 
 :)


Message édité par scaryfan le 05-06-2008 à 13:30:45

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 05-06-2008 à 13:30:17   

Reply

Marsh Posté le 05-06-2008 à 16:00:43    

Salut,
 
l'affectation de la propriété visible de l'objet comment ne marche que pour les cellules ayant un commentaire.
Il faut donc que tu les fasses une par une
 
voici le code qui le fait :
 
Dim toto As Range
For Each toto In Range("A1:Z99" )
   On Error Resume Next
   toto.Comment.Visible = False
Next

Reply

Marsh Posté le 05-06-2008 à 16:51:03    

DamienCYS a écrit :

Salut,
 
l'affectation de la propriété visible de l'objet comment ne marche que pour les cellules ayant un commentaire.
Il faut donc que tu les fasses une par une
 
voici le code qui le fait :
 
Dim toto As Range
For Each toto In Range("A1:Z99" )
   On Error Resume Next
   toto.Comment.Visible = False
Next


 
OK merci !


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed