Erreur définie par l'application ou par l'obj

Fermé
Julius - 12 janv. 2011 à 12:01
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 12 janv. 2011 à 12:47
Bonjour,

J'ai une erreur sur mon code et je ne sais pas pourquoi.
Sub FondCielPolBlc (Ligne, Colonne, Sheet)

On Error GoTo erreur
Range(Sheets(Sheet).Cells(Ligne, Colonne)).Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight2
    .TintAndShade = 0.399975585192419
    .PatternTintShade = 0
End With
With Selection.Font
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
End With
erreur : Msgbox Err.Description




L'erreur arrive dès le Range.
J'ai essayé
Sheets(Sheet).Range(Sheets(Sheet).Cells(Ligne, Colonne)).Select
Range(Cells(Ligne, Colonne)).Select
Range(Sheets(Sheet).Cells(Ligne, Colonne)).Select
Mais toujours une erreur.

Quelqu'un saurait-il pourquoi ?

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 12/01/2011 à 12:49
Bonjour,
Si tu remplaces "Sheet" par "feuille" (par exemple) est ce que tu as toujours une erreur? :
Sub FondCielPolBlc (Ligne, Colonne, Feuille) 

On Error GoTo erreur 
Range(Sheets(Feuille).Cells(Ligne, Colonne)).Select 
With Selection.Interior 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
    .ThemeColor = xlThemeColorLight2 
    .TintAndShade = 0.399975585192419 
    .PatternTintShade = 0 
End With 
With Selection.Font 
    .ThemeColor = xlThemeColorDark1 
    .TintAndShade = 0 
End With 
erreur : Msgbox Err.Description

"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
0