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

PORCHER

XLDnaute Occasionnel

• 24 Janvier 2023

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2023

• #3

Bonjour Porcher,

VB:

 .Interior.ColorIndex = xlNone

est faux.
C'est soit :

Code:

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

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

Code:

 .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 :

Code:

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 :

Code:

 .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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2023

• #4

Bonjour,

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

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

A+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2023

• #5

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2023

• #6

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

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

 

Dernière édition: 24 Janvier 2023

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Janvier 2023

• #7

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

 

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 28 Janvier 2023

• #8

sylvanu à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2023

• #9

PORCHER à dit:

vous êtes beaucoup à avoir répondu

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif