Vba
benoit
-
M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention -
M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un soucis je realise un tuto pris suer le net et je rencontre un soucis voici le code:
Sub Couleur_page1()
For page_color = 1 To 8
Sheets(page_color).Shapes("page" & page_color).Fill.ForeColor.RGB = RGB(0, 112, 198)
Next page_color
ActiveSheet.Shapes("color1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("color2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color5").Line.ForeColor.RGB = RGB(255, 255, 255)
End Sub
mais sa signale une erreur au niveau de la ligne sheet(page)
merci de votre aide
j'ai un soucis je realise un tuto pris suer le net et je rencontre un soucis voici le code:
Sub Couleur_page1()
For page_color = 1 To 8
Sheets(page_color).Shapes("page" & page_color).Fill.ForeColor.RGB = RGB(0, 112, 198)
Next page_color
ActiveSheet.Shapes("color1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("color2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color5").Line.ForeColor.RGB = RGB(255, 255, 255)
End Sub
mais sa signale une erreur au niveau de la ligne sheet(page)
merci de votre aide
Configuration: Windows / Chrome 81.0.4044.138
