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 ?
A voir également:
- Erreur définie par l'application ou par l'obj
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Desinstaller application windows - Guide
- Son notification par application android - Guide
- Comment recuperer whatsapp supprimé par erreur - Guide
- Application word et excel gratuit - Guide
1 réponse
Bonjour,
Si tu remplaces "Sheet" par "feuille" (par exemple) est ce que tu as toujours une erreur? :
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
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 -
