Bonjour,
Comment fait-on pour insérer, grâce à un CommandButton, la sélection qui a
été faite dans une ListBox, sans faire référence à un signet placé dans le
document ?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'François' nous a écrit ...
Comment fait-on pour insérer, grâce à un CommandButton, la sélection qui a été faite dans une ListBox, sans faire référence à un signet placé dans le document ?
Un signet est un emplacement nommé du document : rien ne vous oblige à utiliser un signet pour désigner un emplacement !
Exemple : dans une feuille MaUserForm contenant une liste ListeBox1 et un bouton CommandButton1, le code suivant place la valeur sélectionnée dans ListBox1 après le 2ème paragraphe du document :
Private Sub CommandButton1_Click() Dim Ici As Range Set Ici = ActiveDocument.Paragraphs(2).Range Ici.InsertAfter MaUserForm.ListBox1.Value End Sub
Anacoluthe « Avant d'employer un beau mot, faites-lui une place. » - Joseph JOUBERT
Bonjour !
'François' nous a écrit ...
Comment fait-on pour insérer, grâce à un CommandButton, la sélection qui a
été faite dans une ListBox, sans faire référence à un signet placé dans le
document ?
Un signet est un emplacement nommé du document : rien ne vous oblige
à utiliser un signet pour désigner un emplacement !
Exemple : dans une feuille MaUserForm contenant une liste ListeBox1
et un bouton CommandButton1, le code suivant place la valeur
sélectionnée dans ListBox1 après le 2ème paragraphe du document :
Private Sub CommandButton1_Click()
Dim Ici As Range
Set Ici = ActiveDocument.Paragraphs(2).Range
Ici.InsertAfter MaUserForm.ListBox1.Value
End Sub
Anacoluthe
« Avant d'employer un beau mot, faites-lui une place. »
- Joseph JOUBERT
Comment fait-on pour insérer, grâce à un CommandButton, la sélection qui a été faite dans une ListBox, sans faire référence à un signet placé dans le document ?
Un signet est un emplacement nommé du document : rien ne vous oblige à utiliser un signet pour désigner un emplacement !
Exemple : dans une feuille MaUserForm contenant une liste ListeBox1 et un bouton CommandButton1, le code suivant place la valeur sélectionnée dans ListBox1 après le 2ème paragraphe du document :
Private Sub CommandButton1_Click() Dim Ici As Range Set Ici = ActiveDocument.Paragraphs(2).Range Ici.InsertAfter MaUserForm.ListBox1.Value End Sub
Anacoluthe « Avant d'employer un beau mot, faites-lui une place. » - Joseph JOUBERT
François
Bonjour, Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la ListBox se fasse au point d'insertion en cours. Celà doit être possible avec l'objet "Selection", mais je n'y arrive pas. Merci
Bonjour,
Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout
à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la
ListBox se fasse au point d'insertion en cours. Celà doit être possible avec
l'objet "Selection", mais je n'y arrive pas.
Merci
Bonjour, Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la ListBox se fasse au point d'insertion en cours. Celà doit être possible avec l'objet "Selection", mais je n'y arrive pas. Merci
Geo
Bonjour, Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la ListBox se fasse au point d'insertion en cours. Cela doit être possible avec l'objet "Selection", mais je n'y arrive pas.
Selection.InsertAfter MaUserForm.ListBox1.Value
mais ça se déduit si directement du courriel d'Anacoluthe qu'on peut soupçonner une autre difficulté.
-- A+
Bonjour,
Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout
à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la
ListBox se fasse au point d'insertion en cours. Cela doit être possible avec
l'objet "Selection", mais je n'y arrive pas.
Selection.InsertAfter MaUserForm.ListBox1.Value
mais ça se déduit si directement du courriel d'Anacoluthe qu'on peut
soupçonner une autre difficulté.
Bonjour, Merci pour la réponse. Comme je me suis mal exprimé, elle ne répond pas tout à fait à ce que je veux faire. En fait, il faudrait que l'insertion de la ListBox se fasse au point d'insertion en cours. Cela doit être possible avec l'objet "Selection", mais je n'y arrive pas.
Selection.InsertAfter MaUserForm.ListBox1.Value
mais ça se déduit si directement du courriel d'Anacoluthe qu'on peut soupçonner une autre difficulté.
