Commentaire sur chaque onglet

[Philippe68]

Bonjour,

Ca fait longtemps que je n'avais pas sollicité une aide ici alors je m'y colle.

Pas vraiment besoin de mettre un fichier joint je pense pour savoir si on peut mettre un commentaire
sur chaque onglet d'un classeur.
2 questions :

1. Est-ce possible ?
2. Si oui, comment ?

Merci d'avance

Bonjour à toto, JC,JB, Pierrejean,00,Staple,Brigitte

 

[DoubleZero]

Re : Commentaire sur chaque onglet

Bonjour, Philippe68 , le Forum,

Une suggestion dans le fichier joint.

A bientôt

 

[Philippe68]

Re : Commentaire sur chaque onglet

Salut 00

Merci déjà de ta réponse, en faite, ce que tu as fais, je sais le faire.
Mais ce que je souhaiterais, je te le montre en fichier joint (j'aurais du qd même mettre un fichier, mdrrr)

 

[Victor21]

Re : Commentaire sur chaque onglet

Bonjour, Philippe, 00

Et pour que ce commentaire soit généré en cas d'insertion de feuilles, essaie :

 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh.Range("A1")
        .ClearComments
        .AddComment "Bonjour, Philippe68 !" & Chr(10) & ""
    End With
End Sub

 

[Philippe68]

Re : Commentaire sur chaque onglet

Re, Salut Victor,

oui ok, mais ton code, ajoute un commentaire à A1 de chaque feuille créée.
c'est un commentaire sur chaque onglet que je souhaiterais (comme indiqué par les flèches dans mon exemple).
mais je mets qd même ton code de coté pour l'avoir devant moi lol (ça peut servir)

 

[DoubleZero]

Re : Commentaire sur chaque onglet

Re-bonjour, bonjour, Victor21

... ce que je souhaiterais, je te le montre en fichier joint (j'aurais du qd même mettre un fichier, mdrrr)

Je ne vois rien ! Devrais-je changer de mirettes ?

A bientôt

 

[Victor21]

Re : Commentaire sur chaque onglet

Re,

Il semble que Philippe cherche à mettre un pop-up au survol du nom de l'onglet. Ca, je ne sais pas si c'est possible.
Si ça l'est, voir éventuellement le site de Jacques.

 

[Philippe68]

Re : Commentaire sur chaque onglet

Re,

pourtant elles y sont chez moi

regarde :

 

[Philippe68]

Re : Commentaire sur chaque onglet

Re,

Rien sur le site de Jacques qui me concerne

 

[DoubleZero]

Re : Commentaire sur chaque onglet

Re-bonjour,

Comme ceci, peut-être, s'il s'agit d'insérer le nom de l'onglet ?

Private Sub Workbook_Open()
Dim s As Worksheet
For Each s In ThisWorkbook.Worksheets
On Error Resume Next
s.Select
With s.Range("A1")
.AddComment
.Comment.Text Text:=s.Name
End With
Next
End Sub

A bientôt

 

[Philippe68]

Re : Commentaire sur chaque onglet

Re,

non c'est pas ça,
en faite au survol d'une cellule qui a un commentaire, tu vois ce commentaire.
si je survole un onglet, j'aimerais avoir le même résultat, cad avoir un commentaire qui résumerait le contenu de la feuille en question

 

[DoubleZero]

Re : Commentaire sur chaque onglet

Re-bonjour,

... en faite au survol d'une cellule qui a un commentaire, tu vois ce commentaire.
si je survole un onglet, j'aimerais avoir le même résultat, cad avoir un commentaire qui résumerait le contenu de la feuille en question

Je ne sais comment faire .

A bientôt

 

[Philippe68]

Re : Commentaire sur chaque onglet

Re,

Alors on est 2.
tkt pas on est surement pas les seuls à ne savoir comment faire
Merci qd même