Discussion :

[Wahaaa]

Salut salut,
Je débute vraiment niveau excel et encore plus niveau VBA alors j'aurais bien besoin d'aide.
En gros je voudrais copier plusieurs cellules de plusieurs sélections et les coller sur une autre feuille, idéalement un autre classeur, sur une seule colonne (copier/coller des liens)
Du coup j'ai chercher sur pleins de forums et je finis avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Module1() 
Sheets("Resumen").Select 
Range("B119:B125,B177:B183,B232:B238,B294:B300").Select 
For Each cel In Selection 
cel.Copy 
Sheets("Feuil1").Select 
Range("A1").Select 
cel.PasteLink = True 
Next cel 
End Sub

et là un message me dit propriété ou méthode non gérée par cet objet et la ligne cel.PasteLink = True surligné en jaune.

Voilà si quelqu'un a une solution ce serait bien volontiers.

Muchas gracias !!

[Invité]

Bonjour,

Ne voulais tu pas plutôt écrire "Cell" que "cel" ?

Ce lien pourra aussi peut-être t'aider.
https://www.excelcampus.com/vba/copy...ls-vba-macros/

[Wahaaa]

Effectivement j'ai changé le cel en Cell mais il me met toujours "Propriété non gérée par cet objet" avec le ligne Cell.PasteLink = True surlignée en jaune.

Je vais regarder le lien merci !

[Invité]

Ecrit cette ligne de cette manière

Code :

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

1
2
 
Cell.Paste Link:=True

Je ne sais plus exactement à quoi sert le Link:=True mais c'est de cette manière qu'il s'écrit.

[Wahaaa]

Votre lien est super mais ne parle pas des copier/coller sur plusieurs sélections et non plus des past spécials pour coller les liens.

[BENNASR]

Bonsoir
essayer avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Module1()
Dim cell As Range
Dim y As Range
Dim k As Integer
k = 1
Set y = Application.Union(Range("Resumen!B119:B125"), Range("Resumen!B177:B183"), Range("Resumen!B232:B238"), Range("Resumen!B294:B300"))
For Each cell In y
cell.Copy
Sheets("Feuil1").Select
Range("A" & k).Select
ActiveSheet.Paste
k = k + 1
Next cell
End Sub

BONNE CONTINUATION

[Wahaaa]

Bonsoir
essayer avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Module1()
Dim cell As Range
Dim y As Range
Dim k As Integer
k = 1
Set y = Application.Union(Range("Resumen!B119:B125"), Range("Resumen!B177:B183"), Range("Resumen!B232:B238"), Range("Resumen!B294:B300"))
For Each cell In y
cell.Copy
Sheets("Feuil1").Select
Range("A" & k).Select
ActiveSheet.Paste
k = k + 1
Next cell
End Sub

BONNE CONTINUATION

Merci mille fois, ça marche super!

Par contre ça ne marche plus dès qu'on essaye de copier des sélections de colonnes différentes

[Invité]

Code :

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

1
2
 
Worksheets("Resumen").Range("B119:B125,B177:B183,B232:B238,B294:B300").Copy Worksheets("Feuil1").Range("A1")

Cette ligne permet de copier les cellules de ta feuille "Resumen" indiquées dans ton Range dans ta feuille "Feuil1" à partir de la cellule A1.
Je pense que sa devrait t'aider.

[BENNASR]

Bonsoir Oudouner, la Forum
plus simple et plus beau . seulement deux petit guillemet en sus

Code :

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

1
2
3
Sub test()
Sheets("Resumen").Range("B119:B125,B177:B183,B232:B238,B294:B300").Copy Sheets("Feuil1").Range("A1")
End Sub