détecter fin enreg. pour copier liste

[Olivierd]

bonjour lecteur du matin,

loin s'en faut de vouloir abuser de ta gentillesse, mais en raison de ma médiocrité chronique, pourrait-tu m'apporter quelque assistance pour réaliser une macro afin de:
1- détecter la fin des enregistrements ( ligne A NN ) de l'onglet A
pour
2- importer ( ou copier/coller ) toutes les données d'un autre onglet à la suite du dernier enregistrement de l'onglet A

j'ai joint un fichier d'exemple

Merci d'avance pour les conseils
A bientôt

Olivierd

 

[Yeahou]

Bonjour Olivier, le forum

voici un code fonctionnel qui copie la plage détectée sur la feuille B dans la première cellule libre de la colonne A de la feuille A et lui applique une couleur de police 15.

Cordialement, A+

Sub Copier_Plage()
Dim Plage As Range, Cellule_Dest As Range
Set Plage = ThisWorkbook.Sheets("B").Range("A1:F" & ThisWorkbook.Sheets("B").Range("A1").End(xlDown).Row)
Set Cellule_Dest = ThisWorkbook.Sheets("A").Range("A65536").End(xlUp).Offset(1, 0)
Plage.Copy Destination:=Cellule_Dest
Cellule_Dest.Range(Plage.Address).Font.ColorIndex = 15
End Sub

 

[Jean-Marie]

Bonjour Olivier, Yeahou

Ne sachant pas utiliser les Set vu mon niveau en VBA. Une autre possibilité

Public Sub OlivierD()
Dim vRowA, vRowB As Long

Application.ScreenUpdating = False ' pour la rapidité on désactive l'actualisation de l'écran

vRowA = Worksheets("A").Range("A65536").End(xlUp).Row
'vRowA contient le numéro de la dernière ligne utilisée dans la colonne A de la feuille A
vRowB = Worksheets("B").Range("A65536").End(xlUp).Row
'vRowB contient le numéro de la dernière ligne utilisée dans la colonne A de la feuille B

Bascule toutes les données de la ligne de la feuille B à la feuille A
Worksheets("A").Range(vRowA + 1 & ":" & vRowA + vRowB).Value = Worksheets("B").Range("1:" & vRowB).Value

Application.ScreenUpdating = True 'l'actualisation de l'écran est réactivée

End Sub

@+Jean-Marie

 

[Olivierd]

bonjour Yeaou, bonjour Jean-Marie,

Merci à vous, cela fonctionne parfaitement sur l'engin récalcitrant qui prône face à moi

Très cordialement

Olivierd

 

[Olivierd]

Une petite dernière:
est-il possible de Macroter un fichier xls avec la fonction " enregistrer sous et au format txt" ?
car en wswg cela ne fonctionne pas

Bonne soirée
cordialement
olivierd