ActiveSheet.Shapes

dureiken · 25 Février 2010

Bonjour,

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

Code:

ActiveSheet.Shapes(Bouton).Select

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

Merci d'avance

Hulk · 25 Février 2010

Re : ActiveSheet.Shapes

Hello,

Si j'ai bien compris, vois ceci.

Code:

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 · 26 Février 2010

Re : ActiveSheet.Shapes

Nickel merci beaucoup

ActiveSheet.Shapes

dureiken

XLDnaute Junior

Hulk

XLDnaute Barbatruc

dureiken

XLDnaute Junior

Discussions similaires