Déterminer le nombre de lignes d'un fichier Excel
Bonjour,
Objectif : déterminer le nombre de lignes que comporte un fichier EXCEL.
Cette donnée va permettre d'appliquer une macro sur un fichier DATAS dont la structure est identique mais dont le nombre de lignes varie en fonction d'un export à l'autre.
Idéalement, il s'agit de déclarer un entier et de l'initialiser avec le nombre de lignes du fichier.
Merci.
Cordialement.
Bonjour, pour déterminer le nombre de ligne d'un fichier on test sur une colonne pour connaitre la dernière cellule non vide.
Exemple :
Worksheets("NOM-DE-FEUILLE").Range("A65536").End(xlUp).RowBonjour à tous,
Perso, j'aurai tendance à écrire un truc assez générique
UBound(ActiveSheet.UsedRange.Value, 1)Pierre
Merci à tous deux pour votre réponse.
La solution recherchée consiste à propager une formule positionnée en H2 via une macro.
J'ai obtenu le code qui suit par l'option "Enregistrer une macro..." :
Le "H26" a été déterminé automatiquement lors du clic pour propagation.
Or, bien entendu, d'un fichier à l'autre, le nombre de lignes varie.
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H26")
Comment puis-je récupérer le nombre de ligne dans une variable et orienter le code ainsi :
Range("H2").Select
Variable_1_Entier = [Instruction déterminant le nombre de lignes]
Selection.AutoFill Destination:=Range("H2:H" & Variable_1_Entier)
Merci.
Cordialement.
Re, il faut savoir sur quelle colonne vous souhaitez faire le test pour trouver la dernière ligne ?
Par exemple colonne A --->
Dim derligne as long
Derligne=Range("A65536").End(x1up).row
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H" & derligne)Re, il faut savoir sur quelle colonne vous souhaitez faire le test pour trouver la dernière ligne ?
Par exemple colonne A --->
Dim derligne as long Derligne=Range("A65536").End(x1up).row Range("H2").Select Selection.AutoFill Destination:=Range("H2:H" & derligne)
Bonjour à tous!
Je propose une petite amélioration comme certains fichiers Excel ont plus de 100 000 lignes:
Dim derLigne as long
derLigne =Range("A" & Rows.Count).End(x1up).Row
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H" & derLigne )Bonjour Ausecour,
Il est vrai que j'utilise encore aujourd'hui de vieilles formules ... sans chercher mieux
Merci pour vos réponses.
J'ai pu avancer.
Bonne continuation.