Bouton affichage/masque de points

olhey · 19 Août 2009

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.

Code:

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 · 19 Août 2009

Re : Bouton affichage/masque de points

Bonjour,

Essaie ceci :

Code:

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 · 19 Août 2009

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 · 19 Août 2009

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 · 19 Août 2009

Re : Bouton affichage/masque de points

j'ai trouvé:

Code:

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

Bouton affichage/masque de points

olhey

XLDnaute Occasionnel

Catrice

XLDnaute Barbatruc

olhey

XLDnaute Occasionnel

olhey

XLDnaute Occasionnel

olhey

XLDnaute Occasionnel

Discussions similaires