Erreur 9 : indice n'appartient pas à la sélection

[Leskwal]

Bonjour le forum.

Le titre manque d'originalité, mais au regard des recherches faites sur ce thème, il semble que ce message apparaisse pour différentes causes.

Voici donc mon problème :

J'ai créé un classeur avec plusieurs feuilles.
Un bouton sur chaque feuille fait appel au code inséré dans un module qui formate un tableau.

Dans le fichier original, trop gros pour être envoyé, j'ai l'erreur :

" L'indice n'appartient pas à la sélection..." .
Pas pour la première feuille mais pour les suivantes qui sont, semble t-il, identiques

J'ai donc créé un fichier exemple à partir du même code.
Une erreur apparait mais n'est pas identique, cependant le plantage souligné en jaune est au même endroit...

Auriez-vous une idée ?

Un grand MERCI d'avance

Pascal

 

[Pierrot93]

Re : Erreur 9 : indice n'appartient pas à la sélection

Bonjour,

chez moi sous 2003, ce sont ces 2 lignes là qui posent problème, et ce partout dans ton code...

        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone

"TintAndShade " ne s'applique à l'objet "borders" et "ThemeFont" n'est pas une propriété valide, sous 2003 je le répète, tu aurais du préciser la version utilisée...

d'autre part, renvoie une erreur n° 438 et non 9....

bonne journée
@+

 

[Leskwal]

Re : Erreur 9 : indice n'appartient pas à la sélection

Bonjour Pierrot93

Merci pour ce commentaire :

Je suis sous Excel 2007 et l'exemple joint est au format .xls (2003) car j'avais pensé qu'un maximum de version d'Excel pourrait lire le fichier.
Je n'avais pas prévu qu'en fonction de la version, l'erreur serait différente.
Dans mon fichier exemple, je n'obtiens plus une erreur 9, mais une erreur 1004 "erreur définie par l'application ou par l'objet".

Que faire ?

Merci

Pascal

 

[Pierrot93]

Re : Erreur 9 : indice n'appartient pas à la sélection

Re,

donne nous peut être la ligne de code en question....

 

[Leskwal]

Re : Erreur 9 : indice n'appartient pas à la sélection

OK

Autant pour moi :

Le soulignement indiquant l'erreur se trouve sur :

       .ThemeColor = xlThemeColorDark1

et lorsque je le mets sous forme de commentaire, c'est la ligne suivante qui plante (avec le même message d'erreur):

 ' -----  .ThemeColor = xlThemeColorDark1
           .TintAndShade = 0

Merci

Pascal

 

[Pierrot93]

Re : Erreur 9 : indice n'appartient pas à la sélection

Re,

peux pas t'aider plus, "ThemeColor" non valide sous 2003 et "TintAndShade" s'appique à un "colorformat" et non directement à une bordure....

 

[Leskwal]

Re : Erreur 9 : indice n'appartient pas à la sélection

Re

pourrais-je te demander le code de la macro SOUS 2003 qui correspondrait au code 2007 suivant ?

    Range("DG5:DP31").Select
    Selection.NumberFormat = "0.00"" Hr(s)"""
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=0", Formula2:="=0,001"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
       .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

A savoir :

sélection de la plage : "DG5 à DP31"
Format des nombres en : "0.00"" Hr(s)"
Pour la sélection si les nombres sont entre 0 et 0,001 alors appliquer les formats suivants :
Fond des cellules sélectionnées : Néant
Couleur de caractère : Blanc

Merci d'avance.

Je collerai ce code en remplacement du mien, en partant du principe : qui peu le plus (2007) peu le moins (2003)... 🙂

Cordialement

Pascal

 

[Pierrot93]

Re : Erreur 9 : indice n'appartient pas à la sélection

Re,

chez moi cela donnerai ceci :

With Range("DG5:DP31")
    .NumberFormat = "0.00"" Hr(s)"""
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="0", Formula2:="0,001"
    .FormatConditions(1).Font.ColorIndex = 2
End With

 

[Leskwal]

Re : Erreur 9 : indice n'appartient pas à la sélection

Je vais tester cela

merci

Pascal

 

[Leskwal]

Re : Erreur 9 : indice n'appartient pas à la sélection

Un grand MERCI

Ça fonctionne.

Pascal