Discussion :

[paflolo]

Bonjour à vous.
Me revoici avec une nouvelle question, toujours pour perfectionner mon outil de travail.

J'ai des données dans la feuil2 sous forme de tableau. Ces données sont copiées ici aprés avoir lancé une macro.
La taille de ce tableau de données est variable, çà peut aller d'une ligne à plusieurs centaines de lignes.
J'aimerais avoir la possibilité de copier les valeurs de ces données jusqu'à la dernière ligne remplie, puis de les collées à la suite de données déjà présentes dans la feuil3 qui contient les données finales.

J'ai réussi à faire ce code pour parcourir les données existantes en feuil3 et me positionner à la 1ère colonne de la la 1ère ligne vide:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Application.ScreenUpdating = False
    Range("A1").Activate
    En_Colonne = ActiveCell.Column
    En_Ligne = ActiveCell.Row + 1
 
    While Not IsEmpty(ActiveCell.Value)
        Cells(En_Ligne, En_Colonne).Activate
        En_Ligne = En_Ligne + 1
    Wend
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value =''

Mais je n'arrive pas à sélectionner les données pour les coller à la suite...
Quelqu'un pourrait-il m'aider?
Merci beaucoup d'avance

[paflolo]

J'ai réussi à faire çà et çà a l'air de bien fonctionner.

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
Sub collage()
 
Dim f4 As Worksheet
Set f4 = Feuil5 ' Feuille de données
Dim f3 As Worksheet
Set f3 = Feuil3 ' Feuille de données
Dim lignevidecopy As Long
Dim lignevide As Long
 
'recherche 1ere cellule vide de la colonne G
lignevidecopy = f4.Range("A:A").End(xlDown).Row + 1
'Range("J6").Value = lignevide
 
f4.Range("A2:H" & lignevidecopy - 1).Copy
 
'recherche 1ere cellule vide de la colonne G
lignevide = f3.Range("A:A").End(xlDown).Row + 1
 
'Range("plage").Copy
 
' on se place à la 1ere cellule vide de la colonne G
f3.Range("A" & lignevide).Select
ActiveSheet.Paste
 
End Sub