copie de colonnes sélectionnées dans LisBox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion albert
  • 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
A

albert

Guest
Bonjour à tous, Forumien - Forumiennes,

Je cherche à copier des colonnes de la Feuil,1 sélectionnées dans une ListBox, pour les coller dans la Feuil2.

La liste des colonnes est en A2 :A6 (il semble qu’on ne puisse sélectionner que des lignes dans ListBox) ;

Dans UserForm1 je sélectionne A,C ,E
Je clic 1 fois sur le bouton : la dernière lettre de la liste est recopiée en B1:F1 et la colonne G est sélectionnée, alors que je cherche à copier chaque colonne sélectionnée (A,C ,E) en Feuil2.
Si je clic une seconde fois sur le bouton, la dernière lettre de la liste est recopiée en B1:F1

… mon travail n’a pas de sens…est-il possible d’avoir un coup d’main pour le remettre dans le bon sens …

le code :


Private Sub CommandButton1_Click()
With ListBox1
For J = 2 To 6
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
Cells(1, J) = .List(I)

End If
Next
Next
End With
Columns(J).Select
Sheets("Feuil2").Select
Range("A2").Select
End Sub

(c’est pour faire suite à ma question posée :
http://www.excel-downloads.com/html/French/forum/messages/1_53710_53710.htm
je pensais naïvement que la solution était simple…j’ai passé le WE dessus…)

PJ userformselect.zip 12Ko

merci d’avance
 

Pièces jointes

Trier par date Trier par votes
Bonsoir Albert et toi le forum,

voilà ce que je peux déjà te proposer comme copier / coller

Sub Copie_Selection()
Selection.Copy Feuil2.[a1]
End Sub

son principe : on sélectionne c'qu'on veut en feuille1 (plage, cellule, colonne entière...) et hop...le tout est collé en feuille2...c'est cool non ?

c'est à mon avis plus souple de cette manière que depuis une ListBox...en plus c'est simple et rapide à définir...

Bon j'plaisante...lol...tu t'en sers comme tu veux...En fait la vérité c'est que ça me fait plaisir de te présenter mon code...à la Ti....loool

A suivre...

A+Veriland.gif
 
Vote positif 0 Vote négatif
bonsoir Vériland,

en effet, c'est un code sympa... et simple!!! (code à la Ti...)
chez moi, il envoie tout dans la feuille 1, feuille de sélection...

j'essaierai demain de compléter.

tu as une idée pour mettre ce code en userform ??? pour des sélections automatisées


bonne soirée

abert
 
Vote positif 0 Vote négatif
Mettre ce code dans un userform ?

ben oui c'est pas compliqué...

mais c'est bizarre que chez toi ce code ne colle pas la sélection en feuille 2...chez moi ça marche...mais p'têt que ta feuille2 se nomme autrement que Feuil2...!!??!!

bon ben j'vais voir ce que j'peux te proposer pour l'userform...

A+Veriland.gif
 
Vote positif 0 Vote négatif
Bon ben me revoiloù...

Donc je t'ai appliqué un principe qui permet de sélectionner une colonne départ et une colonne arrivée depuis un Userform...

ensuite on colle la sélection sur la deuxième feuille...

Voilà ce à quoi je pensais pour ton copier/coller...vois dans le fichier...j'ai pas mis trop de commentaires, normalement il n'y à rien de particulier pour comprendre...

à suivre...

A+Veriland.gif
 

Pièces jointes

Vote positif 0 Vote négatif
Oups.gif
...je viens de m'apercevoir que j'ai bridé le tableau à 100...

Range(PremCOL & "1:" & DeuxCOL & 100).Copy Feuil2.Range(PremCOL & "1")

en fait tu remplaces 100 par 65536 et le tour est joué...comme çà tu es sûr de copier toute la plage...

j'aurais pu mettre .End(xlUp).Row mais si le tableau n'est pas régulier la copie risque d'être tronquée...

Voilà pour ce soir...
smiley_331.gif


A+Veriland.gif
 
Vote positif 0 Vote négatif
Salut Véri, albert et le forum,

Si Ti passe par ici, il risque à te punir Véri et tu passeras un petit moment en cellule IV65536 LOL.

Si je ne sélectionne pas de valeurs dans les combos, j'ai un bug=> un test sur listindex à -1

Pour le remplissage des combos pourquoi ne pas utiliser un Array
dim T

T=array("A","B".....)

combobox1.list=T
combobox2.list=T

Albert, pour sélectionner une plage de cellules, il existe le contrôle refedit en userform, ou application.inputbox ("séléctionnez une cellule","Coucou XLD",type:=8) comme l'indiquait justement Ti il y a quelque temps...


A+++
 
Vote positif 0 Vote négatif
Bonsoir les zamis 🙂

nan nan

çà ====> Selection.Copy Feuil2.[a1]

C'est du code à la STéphane !!!


Forcer une adresse de cette façon c'est pas diu Ti....... MAIS

çà marche aussi ;-)

.[a1].[a1].[a1].[a1].[a1].[a1].[a1].[a1].[a1] lloloolloolll [lol]

@+Thierry
 
Vote positif 0 Vote négatif
Bonsoir,

AH aha du code à la Ti du code à la Zon du code à la Vincent du code à Albert du code à la +@Thierry - du code à la STephane ...........hi hi hi

code

code


code

mais qu'est-ce qu'il a le CODE ???


(code) (code)(code)(code)(code)(code)(code)(code)(code)(code)

Salut le Fantôme de XLD!!

Celeda
 
Vote positif 0 Vote négatif
je profite de la réparation du exceldownload... pour envoyer ce que j'avais préparé hier :

Merci à tous, merci à la fois pour vos compétences et pour votre humour…

Pour Vériland,
Aujourd’hui j’ai fait fonctionner ton code
selection.Copy Feuil1.[a1]
il marche au poil!!!
L’utilisation du bouton rouge avec le userform multicolore (pour frimer) n’a plus d’intérêt…

Zone de liste VL1 est une application qui répond bien à mes tentatives d’utilisation refedit…
Mais on ne peut pas travailler sur un choix de colonnes non contigües… je fais un choix parmi 120 colonnes….

Je vais continuer à travailler dans le sens de la sélection de colonnes dans la feuille - je vais chercher une solution pour sélectionner des colonnes non contigües en m’inspirant des réponses du forum

Pour Zon :
J’ai fait une recherche dans le forum sur : application.inputbox
Et, en effet il y a de la littérature sur le sujet…
..de quoi occuper encore quelques WE
(il fallait avoir le réflexe de chercher cette instruction sur le forum…)
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=46053&t=45906
copier des cellules non contigües
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=42113&t=42066
zone de sélection
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=41037&t=41022
Drag and Drop
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=40211&t=40139
selection d’une cellule dans la fonction inputbox
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=39092&t=38936
rechercher un n° de colonne
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=3220&t=3157
Tri select copy dans une autre feuille
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=1324&t=1322
Fusion de fichiers
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=256&t=253


j’aime bien UserForm, "Drag N Drop"


...je n'ai pu résister à l'envie de vous faire partager ma trouvaille dans la pièce jointe : tentative.zip
code Frédéric Sigonneau

http://groups.google.com/groups?q=OCCUPATION+enti%C3%A8re+d%27une+feuille+lors+de+l%27impression&hl=en&lr=&ie=UTF-8&selm=3AAD4E8C.F615E820%40mp.fe&rnum=1

bonne soirée à tous...

et ... VIVE LE FORUM !!!
albert
 

Pièces jointes

Vote positif 0 Vote négatif
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

p'tit vieux
  • Question Question
XL 2021 Créer une requête SQL pour lire plusieurs Ranges?
2
Réponses
26
Affichages
2 K
dysorthographie
dysorthographie
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
649
piga25
piga25
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
811
Excellearning
E
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
job75
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
637
Aldonanou
A
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
667
crocrocro
C
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
Messan
T
  • Question Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
785
ThierryP
T
R
  • Question Question
XL 2016 vbscript dans vba ejecter les lecteurs amovibles
Réponses
3
Affichages
574
Ron2cuir
R
P
  • Question Question
XL 2010 résultat de somme multiple dans texbox
Réponses
2
Affichages
659
Pensinf4204
P
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
854
job75
job75
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
866
Mody200
M
M
  • Question Question
XL 2019 Optimisation de code VBA
2 3
Réponses
33
Affichages
3 K
mmaiga
M
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
901
un internaute
U
halecs93
  • Question Question
XL 2016 Insertion de colonnes sur plusieurs feuilles en Vba
Réponses
2
Affichages
692
halecs93
halecs93
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
1 K
YANNISE
Y
Dadi147
  • Question Question
XL 2016 Copier les colonnes lors de la sélection dans la Chechbox
Réponses
7
Affichages
531
xUpsilon
xUpsilon
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
Dadi147
  • Résolu(e)
XL 2019 Importer des données de colonne spécifiques dans combobox
Réponses
4
Affichages
1 K
fanfan38
fanfan38
Retour