Les commentaires ne s'affichent pas lors de l’exécution d'une boucle

Bonjour,

Le programme est simple : vous entrez un nombre, si le nombre est inférieur ou égal à 10 = couleur vert, si >10 = couleur rouge.

Lors de l’exécution de la macro (en boucle) les commentaires ne s’affichent pas !

J’aurai pu contourner la boucle en utilisant l’évènement SelectionChange :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
…
End Sub

Mais j'aimerais comprendre pourquoi les boucles ne cohérent pas avec les commentaires et résoudre ce problème afin de l'éviter dans des applications futures.

Merci d’avance pour toute aide.

Bonjour,

Pas trop compris l'utilité de passer par un macro cyclique alors qu'une simple détection de changement de valeur dans la cellule de votre choix ferait l'affaire et éviterait au programme de tourner en permanence, sinon pour ce qui est de l'affichage des commentaires:

        If Range("D4").Value > 10 Then
            Range("A1").Interior.Color = RGB(250, 0, 0)
            Range("F2").Comment.Visible = True
            Range("G2").Comment.Visible = False
        Else
            Range("A1").Interior.Color = RGB(0, 250, 0)
            Range("G2").Comment.Visible = True
            Range("F2").Comment.Visible = False
        End If

Cdlt

Bonjour,

Je vous remercie pour votre réponse Arturo83.

Ceci est un juste un exemple !

La question est comment restaurer l'affichage par défaut des commentaires (au survol de la cellule) pendant l’exécution d’une macro cyclique (boucle).

Donc, il faut afficher les commentaires de cet exemple lors du survol des cellules F2 et G2.