Microsoft 365 Cellules comportant un commentaire

Willmaz

XLDnaute Nouveau
Bonjour,

J'espère que vous ne souffrez pas trop des fortes chaleurs!
Toujours aussi médiocre en programmation VBA, (j'ai progressé en Excel basique grace à vous tous!) je souhaite réaliser un petit programme qui me parait tout simple, mais à mon niveau déjà compliqué!
Je souhaite faire en sorte que ce programme teste s'il y a un X dans ma colonne F et si c'est le cas, vérifier que dans la cellule qui comporte ce "X" il y ait bien un commentaire. S'il y en a pas, afficher en face dans la colonne G un message et mettre une MFC sur la cellule concernée. En revanche, dès que le commentaire est renseigné, le message et la MFC doivent disparaitre.
Je joins un petit exemple pour que mes explications soient plus claires.

Cordialement,
 

Pièces jointes

  • Equipe de france.xlsx
    18.3 KB · Affichages: 5
Solution
Bonjour Willmaz, sylvanu,
on ne peut pas détecter en VBA la suppression d'un commentaire.
Bien sûr que si, il suffit de faire tourner une macro en arrière-plan :
VB:
Sub ArrierePlan()
'menu Exécution => Réinitialiser pour arrêter la macro
Dim t#, tablo, resu(), i&
ThisWorkbook.Saved = False
Do
    t = Timer + 0.5
    While Timer < t And t < 86400: DoEvents: Wend 'attente de 0,5 seconde
    If Not ThisWorkbook.Saved Then
        With Feuil1.[A1].CurrentRegion.Columns(6) 'CodeName de la feuille à adapter
            tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
            ReDim resu(1 To UBound(tablo), 1 To 1)
            For i = 2 To UBound(tablo)
                If tablo(i, 1) <> "" And .Cells(i).Comment...

Discussions similaires

Statistiques des forums

Discussions
312 228
Messages
2 086 421
Membres
103 206
dernier inscrit
diambote