Bonjour Pour quoi la macro suivante plante de temps à autre avec l'erreur
d'execution 1004 (impossible de definir la propriété Color de la classe
interior). Cette macro sert à mettre la ligne en couleur lorsqu'il y a bcp
de colonnes La ligne pour gerer l'erreur fait que la couleur de la ligne
n'est pas effacé donc ce n'est pas la solution
'localisation de la cellule active
rang = ActiveCell.Row
'effacer la couleur de la ligne utilisée
'On Error Resume Next
Range("A2:X250").Interior.Color = RGB(255, 255, 255) 'couleur jaune de la
ligne
'mettre en couleur la ligne active
If rang > 2 Then
Range(Cells(rang, 1), Cells(rang, "X")).Interior.Color = RGB(0, 255,
200)
End If
End Sub
Elle marche tres bien puis brusquement elle plante au moment d'effacer la
couleur
Que se passe-t-il?
--
amitiés
AM
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Arzac
j'ai trouvé c'est parce que la feuille n'a pas eté deprotégée par le menu Outils, elle est deprotégée par un bouton ds la feuille "Accueil" reliée à une macro et à priori ce n'est pas suffisant . AM
"Arzac" a écrit dans le message de news:
Bonjour Pour quoi la macro suivante plante de temps à autre avec l'erreur d'execution 1004 (impossible de definir la propriété Color de la classe interior). Cette macro sert à mettre la ligne en couleur lorsqu'il y a bcp de colonnes La ligne pour gerer l'erreur fait que la couleur de la ligne n'est pas effacé donc ce n'est pas la solution
'localisation de la cellule active rang = ActiveCell.Row 'effacer la couleur de la ligne utilisée 'On Error Resume Next Range("A2:X250").Interior.Color = RGB(255, 255, 255) 'couleur jaune de la ligne 'mettre en couleur la ligne active If rang > 2 Then Range(Cells(rang, 1), Cells(rang, "X")).Interior.Color = RGB(0, 255, 200) End If End Sub
Elle marche tres bien puis brusquement elle plante au moment d'effacer la couleur Que se passe-t-il? -- amitiés AM
j'ai trouvé c'est parce que la feuille n'a pas eté deprotégée par le menu
Outils, elle est deprotégée par un bouton ds la feuille "Accueil" reliée à
une macro et à priori ce n'est pas suffisant .
AM
"Arzac" <c-dam@NOSPAMclub-internet.fr> a écrit dans le message de news:
OaLqthY9EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonjour Pour quoi la macro suivante plante de temps à autre avec l'erreur
d'execution 1004 (impossible de definir la propriété Color de la classe
interior). Cette macro sert à mettre la ligne en couleur lorsqu'il y a bcp
de colonnes La ligne pour gerer l'erreur fait que la couleur de la ligne
n'est pas effacé donc ce n'est pas la solution
'localisation de la cellule active
rang = ActiveCell.Row
'effacer la couleur de la ligne utilisée
'On Error Resume Next
Range("A2:X250").Interior.Color = RGB(255, 255, 255) 'couleur jaune de la
ligne
'mettre en couleur la ligne active
If rang > 2 Then
Range(Cells(rang, 1), Cells(rang, "X")).Interior.Color = RGB(0,
255, 200)
End If
End Sub
Elle marche tres bien puis brusquement elle plante au moment d'effacer la
couleur
Que se passe-t-il?
--
amitiés
AM
j'ai trouvé c'est parce que la feuille n'a pas eté deprotégée par le menu Outils, elle est deprotégée par un bouton ds la feuille "Accueil" reliée à une macro et à priori ce n'est pas suffisant . AM
"Arzac" a écrit dans le message de news:
Bonjour Pour quoi la macro suivante plante de temps à autre avec l'erreur d'execution 1004 (impossible de definir la propriété Color de la classe interior). Cette macro sert à mettre la ligne en couleur lorsqu'il y a bcp de colonnes La ligne pour gerer l'erreur fait que la couleur de la ligne n'est pas effacé donc ce n'est pas la solution
'localisation de la cellule active rang = ActiveCell.Row 'effacer la couleur de la ligne utilisée 'On Error Resume Next Range("A2:X250").Interior.Color = RGB(255, 255, 255) 'couleur jaune de la ligne 'mettre en couleur la ligne active If rang > 2 Then Range(Cells(rang, 1), Cells(rang, "X")).Interior.Color = RGB(0, 255, 200) End If End Sub
Elle marche tres bien puis brusquement elle plante au moment d'effacer la couleur Que se passe-t-il? -- amitiés AM
