VBA__Excel_recherche position cellule relativ

Résolu/Fermé
boul - 29 janv. 2010 à 15:14
 boul - 1 févr. 2010 à 11:16
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
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
29 janv. 2010 à 15:21
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
0
Super, ça marche..

Merci Beaucoup!!!
0