Discussion :

[tommy.bezeau]

Bonjour à tous.

J'aimerais pouvoir avoir une formule qui me permette de copier et de coller plusieurs lignes d'une pages vers la premières lignes vide d'une autre page. J'avais pensée lors du VBA d'envoyer la copie à la dernière ligne vide de la page mais le problème est que certains champs parfois ne sont pas remplie, et donc ma tabulation décale à chaque fois.

En gros, ce que je veux, c'est que lorsque l'employé à filtré la date qu'il veut envoyer de la page Data de commandes vers la page Répartition, je voudrais que la sélection soit copier coller à la première ligne libre de la page répartition.

[jerome.vaussenat]

Salut,

Pour déterminer la dernière ligne utilisée, il y a plusieurs possibilité,

Une solution consiste à partir de la fin de la feuille et demander à Excel de remonter jusqu'à trouver la première cellule contenant quelque chose.

pour cela, utilise ce code

Code :

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

    derligne = Range("A65536").End(xlUp).Row

Il regarde ce qui se passe dans la colonne A (dans ton cas avec les dates) cela me semble pas con ...

[Menhir]

Copier des données d'une page vers la dernière ligne d'une autre page est un sujet qui revient quasiment quotidiennement.
Cherche un peu dans les anciens sujets et je suis persuadé que tu trouveras rapidement des éléments.

[tommy.bezeau]

Comment je fais pour que la sélection des colonnes B,C,D... se copie à la même ligne que la dernière date disponible (colonne A).

[tommy.bezeau]

Pour le moment mon code ne fonctionne pas, j'ai tenté de prendre un code semblable développé par quelqu'un sur ce site, mais je ne réussit pas a avoir exactement ce que je veux.

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
16
17
18
19
20
21
22
23
24
25
26
27
Sub EnvoyerRépartition()
Dim lr As Integer
Dim ws As Worksheet
' EnvoyerRépartition Macro
 
'la plage cellule "A1" en chiffres
Range("A26:A250000").Select
'copie de la selection
Selection.Copy
'Selection d'une autre page dans le classeur
Sheets("Répartition").Select
'selection d'une cellule ou tu desire coller la selection
derligne = Range("A65536").End(xlUp).Row
'Colle la plage copiée
ActiveSheet.Paste
 
'la plage cellule "A1" en chiffres
Range("b26:b250000").Select
'copie de la selection
Selection.Copy
'Selection d'une autre page dans le classeur
Sheets("Répartition").Select
'selection d'une cellule ou tu desire coller la selection
Cells(65535, 4).End(xlUp)(2).Select
'Colle la plage copiée
ActiveSheet.Paste
End Sub

[hyperion13]

Quel rapport entre le sujet de votre post Copier/coller des lignes d'une feuille vers la première ligne vide d'un autre fichier et les 2 captures d'écran ?
Aucun ! Me trompe-je ? Non !

Les filtres en vba, c'est ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CopierColler()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'ActiveSheet.AutoFilter.Range.Columns(1).Offset(1, 0).Copy = je copie la 1ère colonne sans en-tête de la plage filtrée de la feuille active Data de commandes
'Destination:=Worksheets("Repartition").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = je colle dans la colonne A 1ère ligne vide de la feuille Repartition
ActiveSheet.AutoFilter.Range.Columns(1).Offset(1, 0).Copy Destination:=Worksheets("Repartition").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 'ici tu copies les dates de Data vers Repartition
ActiveSheet.AutoFilter.Range.Columns(2).Offset(1, 0).Copy Destination:=Worksheets("Repartition").Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Offset(1, 0) 'ici tu copies les clients de Data vers Repartition
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub