copie de colonnes sélectionnées dans LisBox

[albert]

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

 

[Vériland]

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...

 

[albert]

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

 

[Vériland]

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...

 

[Vériland]

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...

 

[Vériland]

...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...

 

[Zon]

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+++

 

[@+Thierry]

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

 

[Celeda]

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

 

[The Ghost]

Hi hi hi

Viens je vais te montrer le code...

LOL

@+Thierry

 

[La Momie]

Bonsoir,

Oulaha laha oui viens me le montrer le code, yé t'attend !!!

La Momie

 

[albert]

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