Excel / accès dernière ligne d'1 base de donées sur excel

ERIC S

XLDnaute Barbatruc

• 16 Avril 2007

• #2

Re : Excel / accès dernière ligne d'1 base de donées sur excel

Bonjour

nouvligne=range("A65536").End(xlUp).row+1

te donne la première ligne dispo (si la colonne A n'a pas de trou)

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 16 Avril 2007

• #3

Re : Excel / accès dernière ligne d'1 base de donées sur excel

Bonjour,

Comme j'aime réutiliser, voici la ligne de code qui fait ça :

Range("A65536").End(xlUp).EntireRow.Copy Destination:=Worksheets("feuil2").Range("A65536").End(xlUp).Offset(1, 0)


Ca récupère la dernière ligne sur une feuille et la copie en dessous de la derniere ligne de la feuille 2.
(oui oui.. je l'ai deja vendu ce matin celle là mais bon.. quand on aime...)

A+

 

Vote positif 0 Vote négatif

H

HERVE84

Guest

• 16 Avril 2007

• #4

Re : Excel / accès dernière ligne d'1 base de donées sur excel

Merci

je tappe "nouvligne=range("A65536").End(xlUp).row+1" dans une macro ou simplement

MA MACRO je copie c20 feuillet x sur feuillet 2006 dernière valeur de la colonne A
Range("C20").Select
Selection.Copy
Sheets("2006").Select
nouvligne = Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
End Sub

ca fonctionne pas , je ne dois pas bien faire

avez vous un exemple SVP merci

 

Vote positif 0 Vote négatif

H

HERVE84

Guest

• 16 Avril 2007

• #5

Re : Excel / accès dernière ligne d'1 base de donées sur excel

C'est pas bon ma macro commande , voir ci dessous, je veux copier la valeur c20 du feuillet x sur la dernière ligne de la colonne D de mon feuillet 2006:

Range("C20").Select
Selection.Copy
Sheets("2006").Select
Range("d65536").End(xlUp).EntireRow.Copy Destination:=Worksheets("2006").Range("d65536").End(xlUp).Offset(1, 0)
End Sub

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Avril 2007

• #6

Re : Excel / accès dernière ligne d'1 base de donées sur excel

re

cela dépend de ta fiche de saisie. si elle est sur une feuille du classeur
exemple sur FEUIL1: le nom en A1, le prénom en A2, la ville en C5

et que ta base est sur FEUIL2: nom en A, Prénom en B, ville en C

tu peux écrire

nouvligne = sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
sheets("Feuil2").cells(nouvligne, 1).value= sheets("Feuil1").range("A1").value
sheets("Feuil2").cells(nouvligne, 2).value= sheets("Feuil1").range("A2").value
sheets("Feuil2").cells(nouvligne, 3).value= sheets("Feuil1").range("C5").value

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Avril 2007

• #7

Re : Excel / accès dernière ligne d'1 base de donées sur excel

re

si tu coinces, joins un bout de fichier en exemple

 

Vote positif 0 Vote négatif