faire disparaitre les checkbox

[thomas.g]

bonjour , j'ai un petit souci avec la macro ci dessous , le but de cette macro est de rendre toutes les checkbox invisible sauf celle qui contient cette maccro evidemment (sinon on ne peut plus le rendre de nouveau visible) , le pb avec la maccro en dessous c'est qu'elle les rend toutes invisible alor qu'il faudrait qu'elle ignore celle qui utilise la maccro ... help pls

Sub verouillage()
Dim sh As Shape
Application.ScreenUpdating = False
For Each sh In ActiveSheet.Shapes
If Not InStr(1, sh.Name, "VEROUILLAGE") > 0 Then
sh.Visible = msoTrue
sh.OLEFormat.Object.Visible = Not sh.OLEFormat.Object.Visible
End If
Next sh
Exit Sub
Application.ScreenUpdating = True
End Sub

 

[NezQuiCoule]

Re : faire disparaitre les checkbox

Bonjour Thomas,

Essayez :

Sub verouillage()
    Application.ScreenUpdating = False
    For Each sh In ActiveSheet.Shapes
        If InStr(1, sh.Name, "VEROUILLAGE") = 0 Then sh.Visible = Not (sh.Visible)
    Next sh
End Sub

Bonne journée

 

[thomas.g]

Re : faire disparaitre les checkbox

le probléme est encore le même , la checkbox avec laquelle je veux effacer temporairement les autres disparait aussi ...

 

[NezQuiCoule]

Re : faire disparaitre les checkbox

Bonjour thomas,

Il aurait été bien de donner un fichier exemple joint à ta demande, car là le code fonctionne chez moi.
Je pense donc que la checkbox avec laquelle tu souhaites effacer les autres porte un autre nom que "VEROUILLAGE" et c'est donc au niveau de ta condition que ça coince.

Bonne journée

 

[thomas.g]

Re : faire disparaitre les checkbox

sa y est cela fonctionne excusez moi , j'avais marque "verouillage" a cote de la checkbox sans la renommer elle même ... merci beaucoup en tout cas