Copier coller liens de plusieurs sélections sur VBA (Help !)
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 !!
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 !!
1 réponse
-
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")-
-
-
-
@WahaaaRe,
Chez moi, avec une seule ligne de codeWorksheets("Resumen").Range("B119:B125,B177:B183,B232:B238,B294:B300").Copy Worksheets("feuil1").Range("A1")
Ca marche!!! -
-
