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

Fermé

Wahaaa Messages postés 6 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017 - 18 mai 2017 à 17:14
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 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 !!

A voir également:

Copier coller liens de plusieurs sélections sur VBA (Help !)
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Copier coller plusieurs éléments - Guide
Super copier - Télécharger - Gestion de fichiers
Dessin sms copier coller - Forum Jeux vidéo

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 mai 2017 à 07:52

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")

Wahaaa Messages postés 6 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
19 mai 2017 à 13:19

Malheureusement cela met que "cette fonction ne fonctionne pas sur plusieurs sélections"

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Wahaaa Messages postés 6 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
Modifié le 19 mai 2017 à 14:11

Re,
Alors pourquoi ca marche chez moi??????

Vous ne nous montrez pas tout!!!!!!!!

Wahaaa Messages postés 6 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
19 mai 2017 à 14:26

Ah bon??? Pour plusieurs sélections?

Je ne sais pas du tout, il n'y a rien de particulier dans mon classeur

Re,

Chez moi, avec une seule ligne de code

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

Ca marche!!!

Wahaaa Messages postés 6 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
19 mai 2017 à 16:02

Oui, je sais ce qui ne fonctionne pas, dans mon exemple les sélections que je voulais copier coller étaient toutes de la même colonne, la B alors que je voudrais coller plusieurs sélectionne de deux colonnes différentes sur une seule colonne d'une autre feuille.
Désolée mon exemple était faux :/

Discussions similaires

Dessiner avec son clavier et avec des lettres

"L'indice n'appartient à la sélection" + VBA

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Comment faire le symbole coeur vide/coeur blanc

Discussions similaires

Newsletters