Erreur définie par l'application ou par l'obj
Julius
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai une erreur sur mon code et je ne sais pas pourquoi.
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 ?
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
-
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 -
