Run-time error '91': Object variable or With block variable not
Résolu/Fermé
Ch1ken
Messages postés
53
Date d'inscription
vendredi 10 avril 2009
Statut
Membre
Dernière intervention
17 janvier 2017
-
Modifié par Ch1ken le 10/01/2017 à 11:40
Ch1ken Messages postés 53 Date d'inscription vendredi 10 avril 2009 Statut Membre Dernière intervention 17 janvier 2017 - 13 janv. 2017 à 08:12
Ch1ken Messages postés 53 Date d'inscription vendredi 10 avril 2009 Statut Membre Dernière intervention 17 janvier 2017 - 13 janv. 2017 à 08:12
A voir également:
- Run-time error '91': Object variable or With block variable not
- Salat time - Télécharger - Agendas & Calendriers
- Quick time - Télécharger - Lecture
- Finish time lite - Télécharger - Utilitaires
- Time machine - Guide
- Popcorn time download - Télécharger - TV & Vidéo
1 réponse
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
10 janv. 2017 à 15:39
10 janv. 2017 à 15:39
Bonjour,
Pour tester le texte commentaire, il faut deja tester s'il y a un commentaire
faites de meme pour la deuxieme procedure
Pour tester le texte commentaire, il faut deja tester s'il y a un commentaire
Sub oldMarks1() Dim Cel_Comment As Comment ActiveSheet.Unprotect For Each Cell In Range("B3", "M9") If Cell.Interior.Color = RGB(51, 153, 255) Then Cell.Interior.Color = RGB(200, 173, 127) Cell.AddComment "Dernière validation par X" End If Next For Each Cell In Range("B3", "M9") Ligne = 1 Set Cel_Comment = Cell.Comment If Not Cel_Comment Is Nothing Then 'test s'il y a un commentaire dans la cellule If Cell.Comment.Text = "Dernière validation par Y" Then Cell.Interior.Color = RGB(255, 255, 255) Cell.ClearComments End If End If Next 'ActiveSheet.Protect End Sub
faites de meme pour la deuxieme procedure
13 janv. 2017 à 08:12