ActiveSheet.Shapes

[dureiken]

Bonjour,

je voulais savoir s'il était possible de remplacer ça :

ActiveSheet.Shapes(Bouton).Select

Par quelquechose du type "With Sheets" afin d'éviter de faire du yoyo entre les sheets ?

Merci d'avance

 

[Hulk]

Re : ActiveSheet.Shapes

Hello,

Si j'ai bien compris, vois ceci.

Sub Bouton1_QuandClic()
    
    With Sheets("Feuil1").Shapes("Image 1")
        .Visible = False
        '.
        '.
        '.
    End With
    
End Sub
Sub Bouton2_QuandClic()
    
    With Sheets("Feuil1").Shapes("Image 1")
        .Visible = True
        '.
        '.
        '.
    End With
    
End Sub

Si ça peut t'aider... à coller dans un module et lancer depuis une autre feuille que la 1.

 

[dureiken]

Re : ActiveSheet.Shapes

Nickel merci beaucoup