Sélectionner dernière ligne entière non vide

Bonsoir,

Débutante en VBA, le forum m'a déjà beaucoup servi pour l'avancé de mon fichier et je vous en remercie.

J'ai actuellement un problème concernant : Sélectionner la dernière ligne non vide d'une feuille "Feuille1" pour la coller dans la feuille "Synthèse" dans la 2ème ligne.

Je vous joins les 2 codes que j'ai testé mais qui ne fonctionne pas et je n'arrive pas bien à comprendre le problème.

Test 1 :

Private Sub CommandButton5_Click()

Application.ScreenUpdating = True

Dim numligne As Integer

Sheets("Feuille1").Select

numligne = 1

Cells(numligne, 1).Active

Do While Not IsEmpty(ActiveCell)

numligne = numligne - 1

Cells(numligne, 1).Activate

Loop

Sheets("Synthèse").Select

ActiveSheet.Paste

Unload UserForm1

ActiveWorkbook.Save

End Sub

Test 2 :

Private Sub CommandButton5_Click()

Application.ScreenUpdating = True

Dim DerniereLigne As Integer

Sheets("Feuille1").Select

DerniereLigne = Range(Cel).CurrentRegion.End(xlDown).Row

DerniereLigne.Select

Selection.Copy

Sheets("Synthèse").Select

ActiveSheet.Paste

Unload UserForm1

ActiveWorkbook.Save

End Sub

Je vous remercie par avance pour votre aide, bonne soirée!

Bonjour,

Private Sub CommandButton5_Click()
Dim sh1, sh2
Dim LastRw&

Set sh1 = Sheets("Feuille1")
Set sh2 = Sheets("Synthèse")

LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne renseignée de la colonne A

sh2.Cells(2, 1) = Cells(LastRw, 1) ' tranfert de la valeur sur la cellule A2 de l'onglet Synthèse
End Sub

Bonjour sabV,

Merci pour votre rapidité. Si je veux plusieurs colonnes, que dois je ajouter après le 1 de Cells(Rows.Count, 1) ?

Merci par avance pour votre retour.

Bonjour,

par exemple pour les colonnes A:J

sh2.Range(Cells(2, 1), Cells(2, 10)).Value = sh1.Range(Cells(LastRw, 1), Cells(LastRw, 10)).Value

Bonjour,

J'ai essayé d'adapter le code juste pour une cellule :

Private Sub CommandButton5_Click()

Application.ScreenUpdating = True

Dim sh1, sh2

Dim LastRw&

Set sh1 = Sheets("TL2")

Set sh2 = Sheets("Synthèse")

LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne renseignée de la colonne A

sh2.Cells(2, 2) = Cells(LastRw, 1) 'tranfert de la valeur sur la cellule B2 de l'onglet Synthèse

Unload UserForm1

ActiveWorkbook.Save

End Sub

Le résultat que ça me donne : Dans la feuille "Synthèse" ca prend la valeur de A3 et ça l'insère dans la cellule B2. Il n'y a aucune action sur la feuille "TL2"....

Si quelqu'un peut m'éclaircir, je vous remercie par avance.

Bonne journée,

Bonjour,

Private Sub CommandButton5_Click()
    Dim sh1 As Worksheet, sh2 As Worksheet, LastRw&
    Set sh1 = Sheets("TL2")
    Set sh2 = Sheets("Synthèse")
    LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    sh2.Cells(2, 2) = sh1.Cells(LastRw, 1)
    Unload UserForm1
    ActiveWorkbook.Save
End Sub

Et si tu pouvais essayer d'utiliser la balise Code pour citer du code dans un post, ce serait pas mal !

Ainsi que : indenter le code, éliminer les instructions inutiles, mettre les déclarations en tête de procédure, typer autant que possible les variables, ne pas sauter de lignes (on lit mieux si indenté et sans quentité de lignes sautées...)... Tu pourrais ainsi détecter très rapidement les anomalies susceptibles de s'être glissées...

Cordialement.

Bonjour,

D'accord désolé pour ces erreurs de débutante! Merci pour votre retour.

Cordialement,

Arielle