Discussion :

[jogeoth]

bonjour a tous,

je cherche un moyen de modifier un bouton sans le sélectionner. actuelement j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub affiche()
 
Application.ScreenUpdating = False
 
Sheets("donnée1").Visible = True
Sheets("donnée2").Visible = True
 
    ActiveSheet.Shapes("Button 4").Select
        Selection.Characters.Text = "masquer "
        Selection.OnAction = "masque"
    Range("A1").Select
 
Application.ScreenUpdating = True
 
End Sub

mais je voudrai pour voir le modifier sans avoir a la sélectionner

merci par avance

[Kimy_Ire]

Salut jogeoth,

Voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveSheet.Shapes("Button 4")
    .TextFrame.Characters.Text = "masquer "
    .OnAction = "masque"
End With

Dis moi si ça te convient !

Cordialement,
Kimy

[jogeoth]

merci cela fonctionne.