user_mobilelogo

Vote utilisateur: 2 / 5

Etoiles activesEtoiles activesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

 

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'hui333
Hier1500
Cette semaine333
Ce mois37296
Total depuis 200411148892

22
visiteurs actuellement en ligne