FAQ Word

Sommaire > VBA > Fomulaires Word
        Comment faire pour effectuer une action sur un champ de formulaire ?
        Comment imposer pour les cases � cocher des formulaires un choix unique ?
        Pourquoi je ne parviens pas � utiliser les champs de mon formulaire ?
        Comment r�cup�rer les donn�es de mon formulaire ?
        Comment ajouter des donn�es � une liste d�roulante ?
        Comment faire pour obtenir une liste d�roulante contenant plus de 25 items ?

��

��

��

Comment faire pour effectuer une action sur un champ de formulaire ?

[haut]

auteur : Lebeau Olivier

Les champs utilis�s pour les formulaires peuvent �tre associ�s � des macros.
Un double-clic sur le contr�le

La liste d�roulante vous permet de choisir une macro.

Comment imposer pour les cases � cocher des formulaires un choix unique ?

[haut]

auteur : Lebeau Olivier

Contrairement aux UserForm, les formulaires ne permettent pas un groupement des cases � cocher.
Par le biais des macros, il est possible d'imposer un seul choix.

Le principe est simple, il suffit de d�cocher toutes les autres cases � cocher.


Sub CaseACocher1()
ActiveDocument.FormFields(2).Result = False
ActiveDocument.FormFields(3).Result = False
ActiveDocument.FormFields(4).Result = False
ActiveDocument.FormFields(5).Result = False
End Sub

Si nous avons 5 cases � cocher, lors du choix de la premi�re, on change la valeur des autres � Faux (non coch�)

Pourquoi je ne parviens pas � utiliser les champs de mon formulaire ?

[haut]

auteur : Lebeau Olivier

Pour pouvoir utiliser un formulaire, le document doit �tre prot�g�. M�me si aucun mot de passe n'est d�fini, sans protection, vous ne pouvez remplir le formualire.

Comment r�cup�rer les donn�es de mon formulaire ?

[haut]

auteur : Lebeau Olivier

La r�cup�ration des donn�es de formulaire ne devient r�ellement int�ressante qu'en VBA.

On r�cup�re le contenu d'un champ de formulaire avec la propri�t� Result de ce champ.


Dim fld As FormField
For Each fld In Activeocument.FormFields
	Debug.Print fld.Result
Next fld

Comment ajouter des donn�es � une liste d�roulante ?

[haut]

auteur : Lebeau Olivier

La m�thode utilis�e pour ajouter des donn�es � une liste d�roulante se fait de pr�f�rence sur l'initialisation du UserForm.
Dans l'exemple qui suit, nous allons sur l'�v�nement Initialize du UserForm remplir le Combo avec deux �l�ments : "a" et i.


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 50
    Me.ComboBox1.AddItem "a" & i
Next i
End Sub

Nous pourrions envisager l'utilisation d'un tableau pour le remplissage du combo.


Option Base 1

Private Sub UserForm_Initialize()
Dim i(6) As String
Dim j As Integer

i(1) = "A"
i(2) = "B"
i(3) = "C"
i(4) = "D"
i(5) = "E"

For j = 1 To UBound(i)
    Me.ComboBox1.AddItem i(j)
Next j
End Sub

lien : Les tableaux en VBA

Comment faire pour obtenir une liste d�roulante contenant plus de 25 items ?

[haut]

auteur : Lebeau Olivier

Dans un formulaire Word, il n'est pas possible d'utiliser une liste d�roulante contenant plus de 25 entr�es.

Pour obtenir une liste avec plus de 25 �l�ments, il est n�cessaire de passer par un UserForm. Ce UserForm contiendra une liste d�roulante.
Apr�s la mise � jour, l'�l�ment s�lectionn� sera envoy� dans un champ de formulaire du document.

Avec un tableau


Private Sub UserForm_Initialize()
Me.ComboBox1.List() = Array("Un", "Deux", "Trois")
 
End Sub

Une autre possibilit� de remplissage est l'utilisation de la m�thode AddItem

Avec la m�thode AddItem


Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 40
    Me.ComboBox1.AddItem "a" & i
Next i
End Sub

Lors de l'ouverture du document, il faut initialiser le UserForm

Initialisation du UserForm


Sub document_open()

Load UserForm1
UserForm1.Show

End Sub

L'�criture de la donn�e dans le document. Pour recevoir la donn�e, nous aurons besoin d'un champ texte.

Mise � jour du champ texte apr�s choix


Private Sub ComboBox1_Change()
ActiveDocument.FormFields(1).Result = Me.ComboBox1.Value
UserForm1.Hide
 
End Sub

lien : Support Microsoft

��

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.