Discussion :

[grimou]

Bonsoir à tous,

Après avoir parcouru divers forums, je n'ai pas trouvé de solution adaptée à mon projet:

Je suis à la recherche d'une macro pour copier une plage de cellules (Provenant d'une feuille ou d'un autre classeur) et l'insérer dans une cellule active en décalant les cellules inférieures vers le bas.

mon niveau ne me permet pas de programmer correctement ce type de macro.

Merci par avance.

[LeForestier]

bonjour,

et l'insérer dans une cellule active en décalant les cellules inférieures vers le bas.

Mais dans l'exemple il n'y a pas de cellules à décaler ?
Peut-tu être un peu plus clair ?
A+
PS: Tu pourrais aussi te servir de l'éditeur de macros !!

[LeForestier]

Enfin, quoi qu'il en soit, les deux solutions ci-dessous...
Sélectionner la plage sur la feuille Bordereau.xls
Sélectionner la cellule où copier de la feuille essai macro.xls
Et cliquer sur l'un des boutons.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButtonCopie_Click()
    Windows("Bordereau.xls").Selection.Copy _
    Windows("essai macro.xls").ActiveCell
End Sub
 
Private Sub CommandButtonInsertion_Click()
    Windows("Bordereau.xls").Selection.Copy
    Windows("essai macro.xls").ActiveCell.Insert Shift:=xlDown
End Sub

A+

[grimou]

Merci pour ta réponse.

Je pense que le problème posé manquait de précisions.

Je joins le projet avec des explications plus détaillées.

Par avance Merci.

[rvtoulon]

slt j'ai vu ton fichier voici ce que j'ai fait.
pour faciliter les choses j'ai inserer des tableaux dans chaque feuil
feuil ser inserer un tableau nommer Tabser, feuil mmt inserer un tableau nommer Tabmmt, j'ai renommer ta feuil3 en recap et inserer un tableau nommer Tabrecap.

ensuite si j'ai compris tu veux copier la premiere ligne de ces tableaux dans une autre feuille. donc voici une petite macro qui fonctionne bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Essai()
'j'insere une ligne dans le tableau qui va réceptionner les données copier
Sheets("recap").[Tabrecap].Rows(1).Select
Selection.Insert
'je selectionne la ligne que je veux copier et la colle dans la ligne inserer
Sheets("ser").[Tabser].Rows(1).Copy Sheets("recap").Range("A2")
 
'je repete l'opération pour le deuxième tableau
 
Sheets("recap").[Tabrecap].Rows(1).Select
Selection.Insert
Sheets("mmt").[Tabmmt].Rows(1).Copy Sheets("recap").Range("A2")
 
End Sub

au fait, quel version de excel utilises-tu? (2003,2007).
A+

[LeForestier]

Ce que tu veux faire n'est pas possible sur un seul classeur, pas moyen de sélectionner une plage ET une cellule en même temps.
Par contre, si tu copie à partir du classeur Bordereau les 2 macros ci-dessus font exactement ce que tu veux, du moins la deuxième.
J'ai quand même employer une petite astuce pour réaliser ce que tu veux pour autant que tu suive les instruction que j'ai mis sur le classeur.
Tu dis..

[rvtoulon]

re slt
je n'avais pas eu le temps de zipper le fichier bordereaux
modifier.
maintenant c'est fait j'espère que ça iras. ma macro fonctionne bien.

[grimou]

Merci pour ta réponse,

Ta macro fonctionne parfaitement.
Je lui ai trouvé une fonctionnalité qui me rendra bien service.

En attendant, j'ai testé ce code qui fonctionne aussi pour mon projet:

Code :

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

1
2
Range("A2:G2").Copy
ActiveCell.Insert Shift:=xlDown

Cordialement

[rvtoulon]

heureux d'avoir pu t'aider A+