copier coller VBA

[manulemalin13000]

Bonjour,
J'ai un probleme tres simple..
J ai une feuille excel avec deux onglets et des listes qui peuvent varier

Je veux juste qu une macro repere ma derniere ligne (ou il y a de l ecriture) de la feuille 1 et aille la coller à la derniere ligne ou il y a de l ecriture en feuille 2

Je ne sais pas dire derniere ligne ou il est ecrit quelque chose en fait !!

merci pour votre aide

 

[Guest]

Re : copier coller VBA

Bonjour,

Si c'est bien dernière ligne qui contient quelque chose et si les données commencent en colonne A.
'

Dim DerniereLigne As Long
'Renvoi le numéro de la dernière ligne occupée en colonne A
DerniereLigne=Range("A" & Rows.count).End(xlUp).Row

Comme si tu de déplaçais en fin de feuille sur la colonne A et que tu fasses CTRL+flèche haute

A+

 

[manulemalin13000]

Re : copier coller VBA

Cher Hasco,

Ce n'est pas vraiment ce que je voulais...

j ai deux onglets dans ma feulle excel.

Je veux copier la derniere ligne de l onglet 1 et la coller a la derniere ligne de l onglet 2

tout simplement

Merci pour ton aide

 

[Guest]

Re : copier coller VBA

Re,

Je répondais à

Je ne sais pas dire derniere ligne ou il est ecrit quelque chose en fait !!

Si le tableau dont la dernière ligne à copier commence en A1:

Sheets("Feuil1").Range("A1").CurrentRegion.Rows(Range("A1").CurrentRegion.Rows.Count).Copy Destination:=Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp)

A+

 

[manulemalin13000]

Re : copier coller VBA

Désolé ca ne fonctionne pas...ca m a copié et coller une valeur qui n est pas la derniere ligne mais une ligne qui n a rien a voir.

Merci d avoir essayé

manu

 

[Guest]

Re : copier coller VBA

manu,

A partir de rien, en te répondant on ne peut que se planter ou tomber à côté, à toi de nous fournir un fichier exemple. Avec explications claires de ce que tu veux.

A+

 

[bencourriel]

Re : copier coller VBA

Bonjour Hasco, manulemalin, le forum,

J'ai cherché à différents endroits sur le forum un bout de code VBA qui ressemble beaucoup à ce que manulemalin demande. J'ai une BD avec plusieurs lignes pleines de données et je souhaite atteindre la première ligne vide (i.e. où la cellule en colonne A ne contient rien). Actuellement, j'utilise le code suivant :

Do While ActiveCell.Text <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop

Ça fonctionne bien. Le seul embêtement, c'est qu'avec 60 000 lignes sur plusieurs feuilles, c'est pas très rapide. Avez-vous une solution pour accélérer la chose? J'ai essayé de reprendre le code proposé par Hasco mais je n'y arrive pas...

Merci à l'avance pour votre aide.

 

[Cousinhub]

Re : copier coller VBA

Bonjour,

Avec le code fourni par Hasco, tu obtiens la première ligne vide de la ligne A

Pour déterminer la cellule, tu peux faire ainsi :

Sub Derniere_Cellule()
Dim DerCel As Range
Set DerCel = Sheets("Feuil1").Range("A65000").End(xlUp)(2)
DerCel.Select 'Facultatif, juste pour l'exemple
End Sub

A noter qu'il est rarement nécessaire de sélectionner les cellules pour y apporter des modifications...

Bonne journée

 

[bencourriel]

Re : copier coller VBA

Bonjour bhbh, bonjour le forum,

Merci beaucoup bhbh pour ta réponse. Je comprends maintenant qu'il n'est pas nécessaire de faire SELECT puisqu'on pourrait écrire une ligne de code modifiant "DerCel" (dans l'exemple) directement, puisque cette variable a été préalablement identifiée.

Merci encore!