Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

Pour commencer, créer un Userform avec une Listbox et un bouton de commande. Voir à ce sujet cet article sur les Userforms.

Dans le document, insérez des signets et nommez-les avec des numéros afin qu'ils correspondent à l'ordre des items de la Listbox, par exemple signet1, signet3, signet3, etc.

Affectez le code suivant au bouton de commande :

 

Private Sub CommandButton1_Click()
'macro écrite par m@rina
Dim i, x
Dim s_range As Range
For i = 0 To ListBox1.ListCount - 1
= i + 1
Set s_range = ActiveDocument.Bookmarks("signet" & x).Range
        If ListBox1.Selected(i) = True Then
            s-range.Text = ListBox1.List(i)
            Else
            s_range.Text = ""

        End If
    ActiveDocument.Bookmarks.Add "signet" & x, s_range
Next i
End Sub

Ce code ajoute les textes sélectionnés dans la ListBox aux signets correspondants.

Si la ligne n'est pas sélectionnée, le texte du signet est supprimé. 

Statistiques

Aujourd'hui45
Hier1471
Cette semaine45
Ce mois40290
Total depuis 200410830824

8
visiteurs actuellement en ligne