Discussion :

[jnmab]

Bonjour,

Je souhaite par une macro copier des données en fin de fichier, mais sans commaître à l'avance l'emplacement de la dernière ligne.
Quelqu'un a-t-il une idée ??

[Jean-Philippe André]

bonjour,
regarde ce que tu peux faire avec ceci :

Code :

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

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

[jnmab]

il me renvoie une erreur de compil "utilisation incorrecte de la propriété"

[Jean-Philippe André]

dans quel cas utilises-tu le code que je t'ai passé ?
Pense à afficher le code incriminé

[jnmab]

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 Macro1()
Workbooks.Open Filename:= _
        "fichier1.xls"
 
' j'ouvre mon premier fichier, et je filtre les lignes non vides
    Columns("A:E").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="<>"
 
' je copie de la 4ème ligne à la dernière ligne non vide sur fichier2 en colonne B
Range("A4:" & Range("A4").SpecialCells(xlCellTypeLastCell).Address).Select
Application.CutCopyMode = False
    Selection.Copy
    Windows("fichier2.xls").Activate
    Range("B1").Select
    ActiveSheet.Paste
 
'je sélectionne la colonne A pour y insérer un texte (titre) ça, ça ne marche pas, car il insère ce texte sur toutes les colonnes
 
Columns("A:A").Activate
Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address).Select
Selection.FormulaR1C1 = "titre"
 
' j'essaie ta formule et ça coince sur ".Row"  je voudrais en fait me positionner sur la ligne en dessous pour récupérer les données d'une autre feuille et les coller à la suite
 
Range("A65536").End(xlUp).Row
End Sub

[Jean-Philippe André]

le code que je t'ai fourni t'indique le numéro de la derniere ligne utilisée de la colonne A, ce que tu peux tester avec un Msgbox.

Je te laisse trouver le bon code seul, comme ca tu sauras le refaire dans d'autres cas

[jnmab]

ok j'ai compris

merci !