Mise en dit d'une cellule

Bonsoir,

Je me demandais s'il était possible de colorer une cellule, avec une procédure vba ou une MFC, si cette cellule contenait un commentaire.

J'ai un peu cherché sur Google, mais je n'ai rien trouvé...

Si l'un d'entre vous a une solution, je suis preneur.

Merci.

Jojo la frite

Bonsoir jojo la frite,

Si j'ai compris, une proposition.

Cordialement.

Bonsoir Zébulon

Merci pour votre solution, mais ce n'est pas vraiment ce que j'attendais.

Je veux que la cellule change de couleur si elle contient un commentaire.

Je vous ai mis une capture d'écran faîte sur un smartphone pour vous montrer de quoi je parlais.

Je n'ai pas de PC sous la main, je suis en vacances

Re,

Désolé, je n'avais pas compris. Dans ce cas, je pense qu'une macro s'impose.

Mais là je suis beaucoup moins à l'aise. Je passe mon tour.

Bonne chance dans ta recherche.

Cordialement.

Pas de soucis.

Merci pour ton aide Zébulon.

Je croise les doigts pour qu'une solution soit trouvée.

Jojo la frite

re,

Trouvé sur le net et adapté pour test.

Si cela te convient, il te reste à l'adapter.

Cordialement.

Sub col_com()

If Not (Cells(1, 1).Comment Is Nothing) Then 'test s'il y a un commentaire dans la cellule
Cells(1, 1).Interior.color = 255'colorie la cellule en rouge

'Cells(1, 2).AddComment (Cells(1, 1).Comment.Text) 'ajout du commentaire dans la seconde avec le texte de la première cellule
End If
End Sub

Je ne peux pas tester dans l'immédiat, mais visiblement, ça semble être ce que je cherchais.

Merci pour aide Zébulon

Je vais pouvoir avancer dans mon projet.

A bientôt !

Jojo la frite

Re,

De rien, content d'avoir pu te dépanner.

Bonne continuation.