Erreur définie par l'application ou par l'obj
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
-
ModérateurBonjour,
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 -
