Signaler

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

Posez votre question Wahaaa 6Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - Dernière réponse le 20 mai 2017 à 06:40 par f894009
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 
Utile
+1
plus moins
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 11674Messages postés dimanche 25 novembre 2007Date d'inscription 24 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
Répondre
Wahaaa 6Messages 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 ...
Répondre
f894009 11674Messages postés dimanche 25 novembre 2007Date d'inscription 24 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")
Répondre
Wahaaa 6Messages 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?
Répondre
f894009 11674Messages postés dimanche 25 novembre 2007Date d'inscription 24 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
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !