VBA__Excel_recherche position cellule relativ
Résolu
boul
-
boul -
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
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:
- VBA__Excel_recherche position cellule relativ
- Ma position - Guide
- Excel cellule couleur si condition texte - Guide
- Suivi position google - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Salut,
va faire un tour ici tu trouveras notamment :
ou encore :
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