Microsoft 365 erreur définie par l'application ou par l'objet

[PORCHER]

With Range("A1:P8")
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = 1
        .Borders.Value = 0
    End With

Bonjour à tous,
Dans cette Macro j'ai une fenetre d'erreur : erreur définie par l'application ou par l'objet
Pourriez m'aider, merci..

 

[PORCHER]

L'erreur se situe ici : .Interior.ColorIndex = xlnone

 

[sylvanu]

Bonjour Porcher,

 .Interior.ColorIndex = xlNone

est faux.
C'est soit :

 .Interior.ColorIndex = N ' avec N compris entre 1 et 56'

ColorIndex fait appel à la palette de couleurs qui a 56 couleurs possibles.
ou

 .Interior.Color = xlNone

xlNone est un mot réservé VBA veut dire "pas de couleurs" mais ne peut être appliqué qu'à .color et non à .colorIndex.
Donc je pense que votre code devrait être :

With Range("A1:P8")
        .Interior.Color = xlNone
        .Font.ColorIndex = 1
        .Borders.Value = 0
 End With

Si votre ColorIndex = 1 veut dire noir alors vous auriez la possibilité de faire :

 .Font.ColorIndex = 1
 ou
  .Font.Color =RGB(0,0,0)
  ou
   .Font.Color=0
  ou
   .Font.Color=vbBlack

De base, en VBA vous avez 5 couleurs définies : vbWhite, vbBlack, vbGreen, vbRed et vbBlue.

 

[job75]

Bonjour,

.Interior.ColorIndex = xlNone est tout à fait correct.

Il est probable que la feuille est protégée, il faut ôter la protection.

A+

 

[sylvanu]

Bonjour Job,
Ca marche, et ça m'étonne.
MS précise (Lien) :

Affectez la valeur xlColorIndexNone à ColorIndex pour indiquer que vous ne souhaitez pas de remplissage intérieur.

Sinon entre 1 et 56. D'autant que si a=xlnone, VBA renvoie a=-4142.

 

[job75]

xlNone s'applique à Interior.ColorIndex, de même xlAutomatic s'applique à Font.ColorIndex.

xlColorIndexNone a la même valeur -4142 que xlNone.

 

[sylvanu]

J'ai au moins appris ça aujourd'hui.

 

[PORCHER]

Bonjour Job,
Ca marche, et ça m'étonne.
MS précise (Lien) :

Sinon entre 1 et 56. D'autant que si a=xlnone, VBA renvoie a=-4142.

Oui et pour cause, vous êtes beaucoup à avoir répondu, tous ont bien répondu sauf que le problème n'est pas situé dans cette macro, j'ai complètement oublié de déprotéger la feuille.
Maintenant çà marche mieux.. Merci

 

[job75]

vous êtes beaucoup à avoir répondu

??? nous ne sommes que deux et j'ai donné la bonne réponse au post #4.