Insérer commentaire en fonction couleur cellule

pierrejean

XLDnaute Barbatruc

• 14 Janvier 2013

• #2

Re : Insérer commentaire en fonction couleur cellule

Bonjour Vba 95

A tester:

Code:

Sub commentaires()
For Each cel In ActiveSheet.Range("A1").CurrentRegion
  If cel.Interior.Color = 255 Then
     On Error Resume Next
     cel.Comment.Delete
     On Error GoTo 0
     cel.AddComment
     With cel.Comment
       .Shape.Height = 16.5
       .Shape.Width = 82.5
       .Text Text:="ABCDEF"
       .Visible = True
     End With
  End If
Next
End Sub

 

Vote positif 0 Vote négatif

V

vba95

Guest

• 15 Janvier 2013

• #3

Re : Insérer commentaire en fonction couleur cellule

Bonjour pierrejean,

Ça fonctionne super MERCI

 

Vote positif 0 Vote négatif

V

vba95

Guest

• 15 Janvier 2013

• #4

Re : Insérer commentaire en fonction couleur cellule

ReBonjour,

Juste 2 dernières petites questions …

J’aimerais écrire la macro suivante :
Si la couleur rouge disparaît le commentaire disparaît aussi.

Et j’aimerais savoir comment faire pour exécuter automatiquement cette macro à chaque fois qu'il y a une modification.

Merci d’avance.

@ +

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Janvier 2013

• #5

Re : Insérer commentaire en fonction couleur cellule

Re

Vois comme ceci

Le commentaire ne disparaitra pas au changement de couleur mais a la prochaine selection (il n'y a pas d'evenement attaché au changement de couleur)

 

Pièces jointes

• ExcelDownload Couleur Commentaire.xlsm

  20.2 KB · Affichages: 55
• ExcelDownload Couleur Commentaire.xlsm

  20.2 KB · Affichages: 63
• ExcelDownload Couleur Commentaire.xlsm

  20.2 KB · Affichages: 59

Vote positif 0 Vote négatif

V

vba95

Guest

• 15 Janvier 2013

• #6

Re : Insérer commentaire en fonction couleur cellule

Un GRAND MERCI.

C'est exactement ce que je recherchais.

@ +

 

Vote positif 0 Vote négatif