Discussion :

[Frizz]

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

[Theze]

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 :

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

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é.

[Frizz]

C'est parfait merci!

[mercatog]

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

Code :

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

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