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
  • Initiateur de la discussion Initiateur de la discussion castor123456
  • Date de début Date de début

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

Guest
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
230
job75
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
539
akm
A
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
193
JLR67
J
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
2 K
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
438
escudo
E
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
623
Phil69970
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
518
Phil69970
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
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
1 K
fanfan38
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
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
506
AtTheOne
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
344
sylvanu
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
824
AtTheOne
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
524
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
645
sousou
A
  • Question Question
XL 2021 Macro copier dans un fichier Excel sur Sharepoint
Réponses
1
Affichages
444
vgendron
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
513
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
969
Nel'
N
  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
252
vgendron
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
658
iruri
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…