Bouton affichage/masque de points

[olhey]

Bonjour, j'aimerais des checkbox pour faire apparaître disparaître des petits ronds(oval en vba je crois) en fonction de leur couleur, j'ai un script mais il fait disparaître toutes les formes sauf oval.

ub AfficheDot(CodeCoul%)
Dim t As Object
For Each t In Feuil1.Shapes
If t.Name Like "Oval*" Then
If t.Line.ForeColor.SchemeColor = CodeCoul Then t.Visible = Not t.Visible
End If
Next
End Sub

Private Sub CheckBox10_Click()
Call AfficheDot(60)
End Sub

merci de votre aide

 

[Catrice]

Re : Bouton affichage/masque de points

Bonjour,

Essaie ceci :

Sub AfficheDot(CodeCoul%)
Dim t As Object
For Each t In Feuil1.Shapes
If t.Name Like "Oval*" Then
[COLOR="Blue"]If t.Line.ForeColor.SchemeColor = CodeCoul Then t.Visible = Not t.Visible[/COLOR]
End If
Next
End Sub

 

[olhey]

Re : Bouton affichage/masque de points

quest ce qui à changé?? il y toujours le même problème...

en fais il supprime pas tout juste des formes automatiques

 

[olhey]

Re : Bouton affichage/masque de points

je ne comprends pas ce que je fais de faux... en plus ça me fait disparaître pluseurs couleurs...

 

[olhey]

Re : Bouton affichage/masque de points

j'ai trouvé:

Private Sub CheckBox9_Click()
Call AfficheDot(57)
End Sub
Sub AfficheDot(CodeCoul%)
Dim t As Object
For Each t In Feuil1.Shapes
If t.Name Like "Oval*" Then
If t.Fill.ForeColor.SchemeColor = CodeCoul Then t.Visible = Not t.Visible
End If
Next
End Sub