Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

kingfadhel

XLDnaute Impliqué

• 18 Novembre 2013

• #2

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Bonjour,

Code:

Private Sub Worksheet_Activate()
Dim sh As Shape
For Each sh In Shapes
   sh.DrawingObject.Interior.ColorIndex = 0
Next

End Sub

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 18 Novembre 2013

• #3

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Bonjour,

Merci pour ta réponse mais j'ai une erreur d'exécution "438"
Propriété ou méthode non gérée par cet objet

HTML:

sh.DrawingObject.Interior.ColorIndex = 0

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Novembre 2013

• #4

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Bonjour,

essaye peut être ceci, à placer dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_Activate()
Dim sh As Shape
For Each sh In Me.Shapes
    sh.Fill.Visible = msoFalse
Next sh
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 18 Novembre 2013

• #5

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Bonjour,
J'ai testé le code et cela fonctionne cependant ensuite j'utilise cette macro

Sub colorShape()
Dim form As Shape, c As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each form In Sheets("Feuil4").Shapes 'boucle sur tous les shapes de la feuille active
With form
Set c = Sheets("Feuil3").[C:C].Find(.Name, , xlValues, xlWhole) 'cherche si le nom du shape existe dans la colonne H
If Not c Is Nothing Then 's'il existe
With .Fill

.ForeColor.SchemeColor = 13 'on change la couleur de fond avec du jaune (13)
End With
End If
End With
Next form

Cliquez pour agrandir...

et elle ne fonctionne plus

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Novembre 2013

• #6

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Re,

modifie peut être ainsi :

Code:

With .Fill
.Visible = msoTrue
.ForeColor.SchemeColor = 13 'on change la couleur de fond avec du jaune (13)
End With

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 18 Novembre 2013

• #7

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

bonjour à tous

la proposition de kingfadhel (post #2) provoque une erreur d'exécution "438" Propriété ou méthode non gérée par cet objet .

En faisant en sorte que ces objets ne soient pas pris en compte, ça fonctionne:

Code:

Dim sh As Shape
For Each sh In Shapes
    If Not sh.Name Like "Line*" And Not sh.Name Like "Connecteur*" Then
        sh.DrawingObject.Interior.ColorIndex = 0
    End If
Next

bonne suite

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 18 Novembre 2013

• #8

Re : Couleur de fond = blanc pour toutes les Shapes à l'activation de la feuille

Bonjour kingfadhel, Pierrot, Paf, le forum

Je viens d'essayer les deux codes de Pierrot. La première macro à l'activation de la feuille met bien les shapes avec un fond blanc, la seconde permet bien de colorer les zones choisies.
@ Paf, je teste ta proposition

Encore merci.

@+

 

Vote positif 0 Vote négatif