Remonté de la derniere ligne d'une fiche

[clad523]

Bonjour à tous,
Voila j'ai un classeur Excel contenant plusieurs feuilles.

Sur ce classeur j'insère des données provenant d'Access.
Je voudrais pour chaque feuille, faire passer la dernière ligne (nb de ligne pouvant varier) au niveau de ma première ligne.
Pour cela je voudrais passer par une macro.

Je n'ai aucun soucis pour adresser les feuilles par contre j'ai du mal (étant débutant en macro Excel) à faire remonter cette ligne.

Comment pourrais je faire?
D'avance merci à tous.

 

[excalibur]

bonjour clad523 le forum si j ai bien compris pour te rendre a la premiere cellule vide de la colonne a pr exemple Sub essai()
Range('A65536').End(xlUp).Offset(1, 0).Select
End Sub'a adapter a ta macro salutations

 

[excalibur]

bonjour clad523 le forum si j ai bien compris pour te rendre a la premiere cellule vide de la colonne a pr exemple Sub essai()
Range('A65536').End(xlUp).Offset(1, 0).Select
End Sub'a adapter a ta macro salutations

 

[clad523]

Bonjour a toi excalibur,

en fait non, je cherche pas ma première ligne vide.

Ce que je voudrais en fait, c'est recupérer la derniere ligne renseignée de ma feuille excel, et la mettre à la place en tant que première ligne (pr contre je ne veux rien écraser).

voila ce que j'ai fait, mais ça plante:

n = Worksheets(i).Range('A:K').Rows.Count
For j = 1 To 11 Step 1
Worksheets(i).Cells(n, j).Offset(-n + 1, 0).Select
Next j

i correspond au numéro de ma feuille, et j au nombre de colonnes.

Et cela ne marche pas. Est ce que je pars mal? Y a t'il une meilleur solution?

 

[porcinet82]

Salut a tous,

Voila une petite solution par macro qui réalise ce que tu veux. Quelques breves explications, il y a une boucle qui boucle sur 3 feuilles, puis apres et bien c'est simple, on se place sur la derniere cellule non vide de la colonne A, on selectionne la ligne, on la coupe et on la place en ligne 1 en insérant.

Sub lign()
Application.Goto Sheets('feuil1').Range('a1')
For i = 1 To 3
    Sheets(i).Select
    Selection.End(xlDown).Select
    lig = ActiveCell.Row
    Rows(lig).Select
    Selection.Cut
    Rows('1:1').Select
    Selection.Insert Shift:=xlDown
Next i
End Sub

@+

 

[clad523]

ça marche, formidable....

Je vous remercie tous.