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

[HERVE84]

Bonjour

j'ai une fiche de saisie avec plusieurs zones (une trentaine)
une fois remplie je souhaiterais que ces données aillent se recopier directement sur la dernière ligne de ma base de données.
cette procédure je compte la monter en macro alors un copier coller avec ctrl fleche etc ...ne suffit pas en macro commande)
merci pour votre aide

 

[ERIC S]

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)

 

[2passage]

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+

 

[HERVE84]

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

 

[HERVE84]

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

 

[ERIC S]

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

 

[ERIC S]

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