Cacher et afficher un textbox

Version imprimable

19/10/2013, 00h33
Frizz

1 pièce(s) jointe(s)

Cacher et afficher un textbox

Bonjour,

Je souhaiterais pouvoir cacher un textbox (appele "Helpbox" dans le fichier excel en piece-jointe) et ne l'afficher que lorsqu'on clique sur le bouton bleu.

Peut on faire ceci en passant par une macro?

Je ne veux pas utiliser de MsgBox car je veux que l'utilisateur du fichier excel puisse lire les instructions tout en remplissant le fichier.

Merci d'avance!

Julie

Bonjour,

Dans un module standard tu mets le code ci-dessous et tu l'affecte au bouton (clic droit puis "Affecter une macro..." les clic successifs sur le bouton cache ou affiche le TextBox et change son texte :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Cacher()
 
    With Worksheets("Sheet1")
 
        If .Shapes("TextBox 4").Visible = True Then
 
            .Shapes("TextBox 4").Visible = False
            .Shapes("Rounded Rectangle 2").TextFrame.Characters.Text = "Cliquer ici pour ouvrir l'aide"
 
        Else
 
            .Shapes("TextBox 4").Visible = True
            .Shapes("Rounded Rectangle 2").TextFrame.Characters.Text = "Cliquer ici pour fermer l'aide"
 
        End If
 
    End With
 
End Sub

Hervé.

21/10/2013, 19h23
Frizz

C'est parfait merci!

C'est résolu mais pour réecrire le code de These autrement

Code:

1
2
3
4
5
6
7
Sub Cacher()
 
With Shapes("TextBox 4")
    .Visible = Not .Visible
    Shapes("Rounded Rectangle 2").TextFrame.Characters.Text = "Cliquer ici pour " & IIf(.Visible, "ouvri", "ferme") & "r l'aide"
End With
End Sub