Microsoft 365 Cellules comportant un commentaire

  • Initiateur de la discussion Initiateur de la discussion Willmaz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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...
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour