Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier contenu listbox dans différentes cellules

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

castor123456

XLDnaute Nouveau
Bonjour à tous.

Je suis novice en programmation VBA (et d'ailleurs pas qu'en VBA).

J'ai réalisé une feuille excel récapitulant la liste de différentes personnes. Dans la colonne A il y a le Nom, dans la B il y a le prénom, dans la C il y a l'adresse etc. Le listing étant réalisé, j'ai ensuite créé un userform contenant une listbox répertoriant les différentes personnes. Cette listbox permet le choix multiple grâce à des cases à cocher. Ma problématique est la suivante : Je souhaiterai réaliser la sélection de certaines personnes (en cochant les cases de la listbox) afin de pouvoir copier/coller (à partir de la feuille récapitulative) leurs coordonnées dans une autre feuille. En effet, le code doit, à partir de la listbox, copier les lignes sélectionnées (feuilles récap) dans l'autre feuille (appelée clients sélectionnée). Le coller devra débuté à la cellule A2.


J'arrive à sélectionner les lignes (issu feuille récap) dans la listbox mais je n'arrive pas à coller cette sélection dans l'autre feuille en A2.

Est ce que vous pouvez m'aider? SVP

Si ce n'est pas clair n'hésitez pas à me demander des précisions.
 
Trier par date Trier par votes
Re : copier contenu listbox dans différentes cellules

Bonsoir,


Voir PJ

Code: 
Private Sub UserForm_Initialize()
  Me.ListBox1.List = Sheets("bd").[maBD].Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub CommandButton1_Click()
  Sheets("recup").[A2:B1000].ClearContents
  ligne = 2
  For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) = True Then
       Sheets("recup").Cells(ligne, 1) = Me.ListBox1.List(i)
       Sheets("recup").Cells(ligne, 2) = Me.ListBox1.List(i, 1)
       ligne = ligne + 1
     End If
  Next i
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
387
akm
A
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
106
JLR67
J
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
964
kiko_23
K
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
312
escudo
E
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
327
Phil69970
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
277
Phil69970
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
864
Krome36
K
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
936
fanfan38
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
286
AtTheOne
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
201
sylvanu
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
3 K
NONO14
N
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
658
AtTheOne
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
210
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
361
sousou
A
  • Question Question
XL 2021 Macro copier dans un fichier Excel sur Sharepoint
Réponses
1
Affichages
346
vgendron
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
299
fuioplde
F
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
677
Nel'
N
  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
149
vgendron
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
499
iruri
I
S
  • Question Question
Microsoft 365 gestion des listbox
2
Réponses
21
Affichages
2 K
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…