Run-time error '424': Object required [Résolu/Fermé]

Signaler
Messages postés
53
Date d'inscription
vendredi 10 avril 2009
Statut
Membre
Dernière intervention
17 janvier 2017
-
Messages postés
53
Date d'inscription
vendredi 10 avril 2009
Statut
Membre
Dernière intervention
17 janvier 2017
-
Bonjour,

J'essaie de tester une cellule et la changer de couleur si on la modifie (bleu par défaut puis violet après modification). Cette cellule peut contenir ou non un commentaire. Si elle contient un commentaire, je désire le supprimer. Voici mon code :

Sub newMarks(Target, cell)
Dim value
ActiveSheet.Unprotect
value = ThisWorkbook.getValue()
If Not Intersect(Target, Range("B3", "M9")) Is Nothing Or Not Intersect(Target, Range("K11", "M19")) Is Nothing Then
cell = Target.Address
If value = "" Then
Range(cell).Interior.Color = RGB(51, 153, 255)
Else
Range(cell).Interior.Color = RGB(204, 102, 255)
cell.ClearComments
End If
End If
'ActiveSheet.Protect
End Sub


il y a clairement un problème avec cell.ClearComments, apparement je devais définir une variable ? J'ai tenter de passer par une variable pour tester si la cellule contient un commentaire mais le résultat obtenu n'est pas bon non plus et me crash d'autres erreurs. Merci pour votre aide.

1 réponse

Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 503
Bonjour,

Ben oui
            Range(cell).Interior.Color = RGB(204, 102, 255)
            cell.ClearComments


ira mieux comme ceci

            Range(cell).Interior.Color = RGB(204, 102, 255)
            Range(cell).ClearComments
Messages postés
53
Date d'inscription
vendredi 10 avril 2009
Statut
Membre
Dernière intervention
17 janvier 2017
6
ah la la biensur c était évident en plus ! Des fois on passe tellement de temps qu on voit plus les choses évidentes ... Merci :) Topic résolu !