Macro qui rend visible invisible Fermé

Question

Bonjour à tous,
Dans un formulaire Word, j'ai une liste deroulante avec 3 choix (liste1). Si le choix 2 est sélectionné, je veux faire apparaitre un champ de type texte (texte1) pour pouvoir préciser une information.
Dans les autres cas (choix 1 ou choix 3) et également lors de l'ouverture du formulaire, le champ texte doit etre invisible.
Question : Comment écrire une macro qui réalise ceci automatiquement en fonction du choix réalisé dans la liste déroulante, c'est à dire recupéré l'information de sortie de la liste, l'analyser, et en déduire la commande de  la visibilité du champ texte?

PS : je ne connais rien à la programmation ou au macro ! Merci de préciser si on doit déclarer des variables ou les initialiser ?

Merci de votre aide

Amnesic · Answer

Bonjour, 
si ta liste déroulante s'appelle ListeDeroulante et ta zone de texte à faire apparaître/disparaître s'appelle ZoneTexte, affecte la procédure suivante à l'évènement Change de ListeDeroulante

Private Sub ListeDeroulante_Change()
if ListeDeroulante.value = "Choix2" then ZoneTexte.visible = true
End Sub

Pour que ZoneTexte soit invisible par défaut, affecte lui la propriété Visible = False
A+

amigo · Answer

Re,

Quand tu parles de mode formulaire, tu veux dire UserForm ou bien un document avec des zones de texte, car c'est un peu different.

Dans un UserForm tu peux effectivement donner la propriété Visible = false à une TetxBox, par contre dans le document les TextBox ou zones de texte ne peuvent pas être invisibles  mais uniquement être désactivées.

Alors que veux tu faire exactement?

A+.

Amnesic · Answer

Dans ma réponse (post1) je parlais d'un Userform créé dans l'éditeur VBA. Apparemment j'étais à côté de la plaque. 
Nadin, ne tiens donc pas compte de mes indications. 
Amigo, je te laisse répondre, je connais très mal les contrôles créés directement dans le document. 
A.

amigo · Answer

Bonsoir,

Comme je le disais plus haut, une zone de texte insérée dans le document n'a pas la propriété Visible. C'est pourquoi ta macro génère une erreur.

Pour contourner le problème, il faut utiliser la propriété Enabled (Activé). Une zone de texte vide est déjà invisible (sauf si le fond est coloré). Si en plus cette zone de texte est désactivée (on ne peut pas la sélectionner), l'utilisateur ne verra rien.

Voici comment faire:

1) Ouvrir Visual Basic Editor (Alt F11)
Ouvrir un Module, s'il n'y a pas, en inserer un (menu Iserer -> Module)
Ouvrir le code du module et y coller cette macro:

Public Sub AutoOpen()
With ThisDocument.texte2
    .Value = ""
    .Enabled = False
End With
With ThisDocument.LD1
   .Clear
   .AddItem "liste1"
   .AddItem "liste2"
   .AddItem "liste3"
   .ListIndex = -1
End With
End Sub

Cette macro va s'exécuter automatiquement à chaque ouverture du document, elle initialise la zone de texte2 à blanc et la rend inactive. De plus elle initialise la liste déroulante LD1.

2) Toujours dans VB Editor, afficher le code de ThisDocument et y coller cette macro.

Private Sub LD1_Click()
If Me.LD1.ListIndex = 1 Then
With Me.Texte2
    .BorderStyle = fmBorderStyleSingle
    .Enabled = True
End With
Else
With Me.Texte2
   .BorderStyle = fmBorderStyleNone
   .Value = ""
   .Enabled = False
End With
End If
End Sub

Cette macro à pour effet d'activer Texte2 si la liste déroulante LD1 affiche le liste2. L'activation est signalée par une bordure autour de texte2. Si Un choix différent est fait, Texte2 est mis à blanc et la bordure est éffacée, l'utilisateur ne voit plus la zone de texte.

On pourrait aussi mémoriser dans une variable la valeur de Texte2 avant de le mettre à blanc, et réafficher ce texte si l'utilisateur choisit liste2. De même, on pourrait mettre un fond coloré pour signaler l'activation de texte2 au lieu de la bordure. J'attend tes remarques.

A+.

Macro qui rend visible invisible

4 réponses

Discussions similaires