Jouer avec les commentaires

[KM29]

Bonjour,

j'aimerais faire apparaitre quelque chose dans la case qui contient des commentaire, genre une couleur ou autres choses mais quelque chose de distinctif, je pense que du VB est la bonne solution car je veux que ça soit automatiques, dès qu'on rajoute un commentaire, quelque chose apparait sur la case !
Merci
Cordialement
KM

 

[Victor21]

Re : Jouer avec les commentaires

Bonjour, KM29.

Bilou l'a déjà prévu : Un triangle rouge apparait en haut à droite des cellules qui contiennent un commentaire, à condition que le choix dans Outils, Options, Commentaire ne soit pas sur "aucun".

 

[azerty29]

Re : Jouer avec les commentaires

je ne vois pas de solution pour ce cas

 

[KM29]

Re : Jouer avec les commentaires

Bonjour victor.
Oui je sais mais ce n'est pas assez voyant au goût de mes superieurs, il faut quelque chose de plus voyant, la case devient colorée ou un truc de ce genre la,
Merci de ta réponse en tout cas

 

[Victor21]

Re : Jouer avec les commentaires

Re,

Pour tester en VBA la présence d'un commentaire en A1 :

Sub ExistenceCommentaire()
    If not Range("A1").Comment Is Nothing Then "Votre code de formatage" 
End Sub

Ou quelque chose de semblable (pas testé, faute de fichier exemple...)

 

[Efgé]

Re : Jouer avec les commentaires

Bonjour KM29,azerty29, Bonjour Victor21 🙂 ,
Peut être avec ça, à metre dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Cells.SpecialCells(xlCellTypeComments).Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub

Mais il faut voir à l'utilisation si c'est suportable...
Cordialement

EDIT Code plus court

 

[DoubleZero]

Re : Jouer avec les commentaires

Bonjour, KM29, Victor21 🙂, azerty29, Efgé 🙂, le Forum,

En ajoutant quelques petits mots au code de Efgé 😱 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
On Error Resume Next
For Each c In Range("a1:z1000") 'plage à adapter
If c.Interior.ColorIndex = 35 Then c.Interior.ColorIndex = xlNone
Next
Cells.SpecialCells(xlCellTypeComments).Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub

A bientôt 🙂

 

[KM29]

Re : Jouer avec les commentaires

Ce code est sencé faire quoi ? J'ai donc mis un commentaire en A1, je met le code dans le "thisworbooks" je relance mon fichier mais rien ne se passe, que fait ce code ?



j'en profite pour poser une autre question,

J'ai un tableau de bord avec des indicateurs, lorsque je clique sur un bouton ça m'affiche les indicateurs qui ne sont pas bon, j'aimerais ouvrir un autre fichier excel qui me donne par importation la page où y est stockée les mauvais indicateurs, chaque mois ces indicateurs sont modifiés donc je ne peux pas faire une importation par plage de cellule, j'aimerais en gros copier coller une page de mon tableau de bord sur une autre page excel exterieur au tableau de bord

 

[Victor21]

Re : Jouer avec les commentaires

Re,

Efgé dit :

... à metre dans le module de la feuille concernée...

KM29 dit :

... je met le code dans le "thisworbooks" [...] rien ne se passe

Allez donc savoir pourquoi !
😉