VBA__Excel_recherche position cellule relativ [Résolu/Fermé]

Signaler
-
 boul -
Bonjour à vous,

Debutant en vba, je cherche à copier à la suite dans un tableur excel, des données provenant d’autres tableurs excel.
Une fois avoir copier/collé à partir de mon premier tableau, je doit donc identifier la première ligne vide de mon tableau cible(celui sur lequel je colle) afin de coller le contenu de mon deuxième fichier. J’essaiyé un tas de truc depuis ce matin, mais je n’y arrive pas.

Voici la partie de code en question, avec "activecell.offset(52,0).select" qui sélectionne la première ligne vide. Mais que j'aimerai remplacer pour avoir la position de la première ligne en relatif, en fonction du nombre de lignes non vides

Si quelqu’un peut m’aider… ?



'j'ouvre le fichier a copier correspondant a adressearecuprer

ChDir "C:\Documents and Settings\p051398\Desktop\macro"
Workbooks.Open Filename:=adressearecuprer
Range("A1:F50").Select
Selection.Copy


'je copie le contenu du tableau et je le colle dans le fichier concaténé

Windows("fichierconcatene.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(52, 0).Select 'je sélectionne la position suivante pour coller
Application.CutCopyMode = False 'je désactive le presse papier

2 réponses

Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 520
Salut,
va faire un tour ici tu trouveras notamment :

Dim DerniereLigne As Integer    
DerniereLigne = Range("A65536").End(xlUp).Row

ou encore :

Dim DerniereLigne As Integer    
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Super, ça marche..

Merci Beaucoup!!!