Discussion :

[bert35]

Bonsoir,

Cela fait 2 jours que je ne vous ai pas poser des questions de novices, alors me voici

Je souhaite copier une sélection présente sur une feuille, et coller cette sélection vers plusieurs feuilles. Le nombre des ces feuilles de destinations peut être variable.

Je ne sais pas comment m'y prendre, déjà pour une feuille de destination.
J'ai bien pensé à la commande Currentregion pour la sélection, mais ensuite je m'embrouille avec les xlPaste

Voici mon code qui ne marche pas (à part pour la sélection)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub selection()
 
Range("A1").CurrentRegion.Select
ThisWorkbook.Sheets("Feuil1").CurrentRegion.Copy ThisWorkbook.Sheets("D")
 
 
End Sub

[Philippe Tulliez]

Bonjour,
Dans cette ligne

ThisWorkbook.Sheets("Feuil1").CurrentRegion.Copy ThisWorkbook.Sheets("D")

il y a un gros problème. CurrentRegion est une propriété de l'objet Range et pas d'un objet Sheet et l'argument destination doit être un Objet Range et pas non plus un objet Sheet
Ta question ést

Je souhaite copier une sélection présente sur une feuille

or tu fais cette sélection en première ligne donc Selection.Copy suffit et ensuite il faut préciser à partir de quelle cellule, de quelle feuille et de quel classeur on souhaite envoyer la copie
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").CurrentRegion.Select
Selection.Copy ThisWorkbook.Worksheets("D").Range("A1")

mais comme tu n'as pas précisé le classeur, ni la feuille source, il est préférable d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook
.Worksheets("Feuil1").Range("A1").CurrentRegion.Copy .Worksheets("d").Range("A1")
End With

[bert35]

Merci pour ta réponse.
Malheureusement, les 2 codes proposés ne veulent pas marcher.

J'ai changé le nom des feuilles source ("mises en forme") ou (2) car il s'agit de ma feuille 2 dans le classeur, ainsi que le noùm de la feuille destination ("mois5"), mais message d'erreur
"Erreur d'exécution "9". L'indice n'appartient pas à la sélection".

[Philippe Tulliez]

Bonjour,
Ce que tu écris est curieux car même si je peux programmer de mémoire pour ce genre de code, je teste toujours les procédures que je publie donc je peux t'assurer que cela fonctionne.
Première réflexion . Est-ce que la plage de données débutant en cellule A1 de la feuille nommée Feuil1 a bien la première ligne lie et la première colonne remplie ?

J'ai changé le nom des feuilles source ("mises en forme") ou (2) car il s'agit de ma feuille 2 dans le classeur, ainsi que le noùm de la feuille destination ("mois5"), mais message d'erreur

Plutôt de commenter ton code, il serait bon de le publier

[bert35]

Voici mon code. Et pour la première question, la cellule "A1" de la feuille "mis en forme" est bien renseignée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
With ThisWorkbook
.Worksheets("mis en forme").Range("A1").CurrentRegion.Copy .Worksheets("mois5").Range("A1")
End With
End Sub

[Philippe Tulliez]

Bonjour,
L'exemple que j'ai donné suppose que les deux feuilles sont dans le même classeur (pour mon exemple ThisWorkbook soit le classeur où se trouve le code VBA) ce qui d'après ton message d'erreur n'est pas le cas.
La parentalité complète de l'objet Range doit être correcte, on copie un cellule ou une plage de cellules (Range) qui appartient à une feuille qui elle même appartient à un classeur et c'est la même chose pour la destination.
donc si l'on copie une plage de données commençant en A1 qui se trouve dans une feuille nommée [Feuil1] d'un classeur nommé Source.xlsx la syntaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Source.xls").Worksheets("Feuil1").Range("A1").Copy

Reste à ajouter la destination avec la parentalité totale Classeur.feuille.Cellule

Soit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Source.xls").Worksheets("Feuil1").Range("A1").CurrentRegion.Copy ThisWorkbook.Worksheets("d").Range("A1")

Pour cet exemple, les deux classeurs (source + cible) doivent être ouvert