Menu

Copier coller liens de plusieurs sélections sur VBA (Help !)

Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 17:14 - Dernière réponse : f894009 12944 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention
- 20 mai 2017 à 06:40
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 :

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 !!
Afficher la suite 

11 réponses

Répondre au sujet
f894009 12944 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention - 19 mai 2017 à 07:52
0
Utile
10
Bonjour,
Sauf erreur de ma part
Si les cellules a copier sont deja des liens,ceci doit suffire:
Worksheets("Resumen").Range("B119:B125,B177:B183,B232:B238,B294:B300").Copy Worksheets("feuil1").Range("A1")
f894009 12944 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention > Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 19 mai 2017 à 17:33
Re,

Oui, la y a erreur. faites votre copie en deux fois si vous avez des cellules de deux colonnes
Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 19 mai 2017 à 17:54
Ce n'est pas possible car je voudrais que plusieurs sélections des deux colonnes se mettent sur une seule par exemple A1A2 puis B3B4 puis A5A6 puis B7B8 ...
f894009 12944 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention > Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 19 mai 2017 à 18:47
Re

  Worksheets("Resumen").Range("A1:A2").Copy Worksheets("feuil1").Range("A1")
    Worksheets("Resumen").Range("B3:B4").Copy Worksheets("feuil1").Range("A3")
    Worksheets("Resumen").Range("A5:A6").Copy Worksheets("feuil1").Range("A5")
    Worksheets("Resumen").Range("B7:B8").Copy Worksheets("feuil1").Range("A7")
Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 19 mai 2017 à 21:10
Ok encore une fois ça marche super sauf que je voudrais copier coller des liens, j'avais vu qu,il fallait mettre PastLink=True mais dans dans ce cas comment faire avec votre exemple?
f894009 12944 Messages postés dimanche 25 novembre 2007Date d'inscription 18 avril 2018 Dernière intervention > Wahaaa 6 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 20 mai 2017 à 06:40
Bonjour,

Normalement si vos cellules a copier sont des liens, le .copy prend en charge toutes les caractéristiques de ces cellules
Commenter la réponse de f894009