Objet range
Bonjour à tous,
avec le code suivant :
Dim WSC, WSV As Worksheet, Rg_S As Range
Set WSC = Sheets("Commissionnement")
Set WSV = Sheets("VADEURS")
Set Rg_S = Range("F6:F10")
WSC.Rg_S.Interior.ThemeColor = xlThemeColorDark1
j'ai le message d'erreur "Erreur d’exécution '438' propriété ou méthode non gérée par cet objet.
Je pense avoir bien déclaré les variables.
Pouvez-vous m'aider s'il vous plait ?
Merci d'avance.
Vlad45
Bonjour,
Selon l'aide de VBA :
Toute tentative d'accès à une couleur de thème pour un objet auquel aucun thème n'est appliqué provoquera une erreur de requête non valide à l'exécution.
En l'absence de fichier on ne peut que supposer...
A+
D'accord mais quand je mets :
WSC.Range("F6:F10").Interior.ThemeColor = xlThemeColorDark1
ça fonctionne parfaitement.
Cordialement,
vlad
Bonjour,
Evitez de donner des "bouts de macro" ou des bribes de code.
Une macro commence par Sub et se termine par Sub...De plus, en général, elle est étroitement dépendante du module ou elle se trouve.
Module de Feuille ?
Module1 ?
Option Explicit ?
La bonne syntaxe est :
Sub test()
Dim WSC As Worksheet, Rg_S As Range
Set WSC = Sheets("Commissionnement")
Set Rg_S = WSC.Range("F6:F10")
Rg_S.Interior.ThemeColor = xlThemeColorDark1
End SubA+