Bonjour à tous
je travail sur une map sur cette carte j'ai mis des repaire de couleur des endroits accidentogène chaque couleur correspond a une année prés de chaque type de couleur se trouve une checkbox.
je souhaiterais quand je coche une ou l'autre couleur que toute les couleur identique a celle cocher se masque
j'ai essayer pas de chose mais je pense sa doit venir du code couleur
si vous pouvez m'aider se serais sympa merci
je travail sur une map sur cette carte j'ai mis des repaire de couleur des endroits accidentogène chaque couleur correspond a une année prés de chaque type de couleur se trouve une checkbox.
je souhaiterais quand je coche une ou l'autre couleur que toute les couleur identique a celle cocher se masque
j'ai essayer pas de chose mais je pense sa doit venir du code couleur
Code:
Dim a As Long
For a = 1 To 254
On Error Resume Next
If ActiveSheet.Shapes.Range(Array("Cross " & a)).ForeColor.RGB = RGB(255, 0, 0) Then
ActiveSheet.Shapes.Range(Array("Cross " & a)).Visible = False
End If
Next a
End Sub
si vous pouvez m'aider se serais sympa merci