Menu

Macro ajouter données listbox dans feuille [Résolu]

andy2092 13 Messages postés dimanche 13 mai 2018Date d'inscription 18 mai 2018 Dernière intervention - 17 mai 2018 à 11:33 - Dernière réponse : andy2092 13 Messages postés dimanche 13 mai 2018Date d'inscription 18 mai 2018 Dernière intervention
- 17 mai 2018 à 15:08
Bonjour,

J'ai crée un formulaire avec une listbox multichoix qui contient une liste représentée dans une feuille.

Je souhaite crée un bouton sur le formulaire avec un code qui permet d'ajouter les éléments de la liste qui sont sélectionnés en insérant une ligne à chaque fois. La raison est parce que je veux ajouter les éléments sélectionnés dans une autre feuille dans un endroit spécifique sans que cela interfère avec les autres données de la feuille.

Voici une représentation de ce que je veux faire :



Quelqu'un pourrait-il m'aider ?
Afficher la suite 

Votre réponse

4 réponses

cs_Le Pivert 5145 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 22 mai 2018 Dernière intervention - 17 mai 2018 à 13:01
0
Utile
Bonjour,

comme ceci:

Dim i As Byte
Dim val As String
Dim myCell, ligne
Set myCell = Application.InputBox( _
    prompt:="Sélectionnez la ligne en dessous", Type:=8)
     ligne = myCell.Row
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        val = ListBox1.List(i)
        End If
    Next i
    If val = "" Then Exit Sub
     Rows(ligne & ":" & ligne).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   ActiveCell.FormulaR1C1 = val

andy2092 13 Messages postés dimanche 13 mai 2018Date d'inscription 18 mai 2018 Dernière intervention - 17 mai 2018 à 14:03
Super ! Je vais utiliser ton code il est très intéressant. Merci

Par contre en mode multi sélection il insère que la dernière sélection choisie.
cs_Le Pivert 5145 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 22 mai 2018 Dernière intervention - 17 mai 2018 à 14:15
En multisélection:

Dim i As Byte
Dim val As String
Dim myCell, ligne
Set myCell = Application.InputBox( _
    prompt:="Sélectionnez la ligne en dessous", Type:=8)
     ligne = myCell.Row
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        val = ListBox1.List(i)
        If val = "" Then Exit Sub
          Rows(ligne & ":" & ligne).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   ActiveCell.FormulaR1C1 = val
        End If
    Next i


voilà
andy2092 13 Messages postés dimanche 13 mai 2018Date d'inscription 18 mai 2018 Dernière intervention - 17 mai 2018 à 15:08
Parfait ! Merci beaucoup :D
Commenter la réponse de cs_Le Pivert