Remonté de la derniere ligne d'une fiche

excalibur

XLDnaute Impliqué

• 16 Décembre 2005

• #2

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 16 Décembre 2005

• #3

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

 

Vote positif 0 Vote négatif

C

clad523

Guest

• 16 Décembre 2005

• #4

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

Cliquez pour agrandir...

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?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 16 Décembre 2005

• #5

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.

Code:

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

@+

 

Vote positif 0 Vote négatif

C

clad523

Guest

• 19 Décembre 2005

• #6

ça marche, formidable....

Je vous remercie tous.

 

Vote positif 0 Vote négatif