Discussion :

[flavionnais]

Bonjour

Après avoir récupéré un bout de code sur ce forum que j'utilise régulièrement je souhaite savoir comment faire pour pouvoir faire une sélection multiple?

Je me suis un peu renseigné il faut utiliser "PasteSpecial" que je ne sais moi même pas utiliser et donc je ne saurais pas l'intégrer dans le code.

Je laisse le morceau de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub importFichier()
 
Dim wbMyWb As Workbook
Dim wbdest As Workbook
Dim Nom_Fichier As Variant, nomFeuille As Variant
Dim Plage As Range, cell As Range
Dim recup As Range
Dim ligne As Integer, colonne As Integer
 
Set wbdest = ActiveWorkbook
Set recup = Application.InputBox("Entrez le nom de la cellule pour copier la sélection", Type:=8)
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), (*.xlsx)")
If Nom_Fichier <> False Then
   Set wbMyWb = Workbooks.Open(Nom_Fichier)
  wbMyWb.Activate
  nomFeuille = InputBox("Indiquez le nom de la feuille de classeur où récupérer les données svp :")
 wbMyWb.Sheets(nomFeuille).Activate
 Set Plage = Application.InputBox("Sélectionnez la plage à copier :", Type:=8)
 Plage.Copy
 wbdest.Activate
 Worksheets("feuil1").Select
 recup.Select
 ActiveSheet.Paste
 wbMyWb.Close
 wbdest.Activate
 
 End If
End Sub

merci d'avance

[rvtoulon]

Bonjour,

il y a une différence entre faire une sélection multiple et "PasteSpecial".

"Pastespecial" sert à faire un collage spéciale après avoir copier un Range.

et puis tu parles de sélection multiple oui , mais de quoi?
de cellules, de feuilles ... ???

donc au final comptes-tu faire juste une sélection multiple de ??? ou faire une sélection multiple et copier coller cette sélection.

pour une sélection multiple de plusieurs plages de cellule tu peux le faire comme ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:E11,H13:N26,P2:V17").Select

ici tu sélectionnes la plage A1:E11 ainsi que la plage H13:N26, ainsi que la plage P2:V17 de la feuille active.

pour le reste cherche dans le forum tu trouveras la réponse.

[flavionnais]

Je me suis surement mal exprimé je m'en excuse !

je compte copier une plage de cellules sur deux colonnes différentes et les coller sur ma deuxieme feuille à l'endroit que j'ai indiqué où je voulais que soit copié ma selection.

exemple:
-sur ma feuille 1 je selectionne et copie de A1 à A10 et de C1 à C10 et de H1 à H10 pour les coller sur ma feuille 2 en A1, C1 et H1