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 17235 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 3 février 2025 - 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
Historique copier-coller android - Guide
Copier-coller - Accueil - Informatique
Symbole clavier copier coller - Guide
Coeur vide copier-coller ✓ - Forum Réseaux sociaux

1 réponse

Réponse 1 / 1

f894009 Messages postés 17235 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 3 février 2025 1 712
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 17235 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 3 février 2025 1 712 > 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

Arobase (@)

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

dessin au clavier cannabis

Comment retrouver le presse papier sur iPhone ?

Déplacer un dessin par copier coller