Discussion :

[Xanto]

Bonjour!

Je cherche à savoir si il y a une fonction permettant de connaître quel est le nombre de ligne d'un fichier Excel. Je veux dire, par exemple si j'ai un fichier excel qui a, à la colonne A, 300 chiffres qui occupe les lignes 1 à 300 après plus rien. J'aimerais que dans l'initialisation du tableau, je puisse mettre tableau(1 To fonction magique de la colonne A) As Byte au lieu de tableau(1 To 300) As Byte.
J'espère avoir été clair.

Merci beaucoup pour votre aide!

[alsimbad]

Va voir là

[Xanto]

Merci beaucoup!!!

Quelle est la différence entre ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Range("A1").End(xlDown).Row

et ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerniereLigne = Range("A15").End(xlDown).Row

Et, si je veux appliquer cette méthode à la colonne D, j'ai qu'à remplacer A par D, non?

Et, est-ce qu'on peut initialiser une variable de cette manière : Dim tableau(1 To Range("XX").End(xlDown).Row) As byte?

S'il vous plaît, et merci beaucoup!

[Swiper]

1° DerniereLigne = Range("A1").End(xlDown).Row

La différence c'est que ca ira depuis la cellule A1 jusqu'a la fin de la saisie

2° DerniereLigne = Range("A15").End(xlDown).Row

Celui la ira depuis la cellule A15 jusqu'a la fin. Exemple :

Il y a 100 ligne remplies à partir de A1

1° la selection sera : A1:A100
2° La selection sera : A15:A100

Et oui tu peux déclarer ta variable comme ca puisque la propriété Row renvoie un nombre.

[Xanto]

Merci infiniment!

[Plateforme3]

Bonjour
J'ai testé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tableau(1 To Range("XX").End(xlDown).Row) As byte

Ca ne marche pas, par contre tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim tableau() as byte
DerniereLigne = Range("A1").End(xlDown).Row
Redim tableau (DerniereLigne)

Slts

[AlainTech]

1° DerniereLigne = Range("A1").End(xlDown).Row

La différence c'est que ca ira depuis la cellule A1 jusqu'a la fin de la saisie

2° DerniereLigne = Range("A15").End(xlDown).Row

Celui la ira depuis la cellule A15 jusqu'a la fin. Exemple :

Il y a 100 ligne remplies à partir de A1

1° la selection sera : A1:A100
2° La selection sera : A15:A100

Et oui tu peux déclarer ta variable comme ca puisque la propriété Row renvoie un nombre.

Oula...

Faudrait éviter d'écrire des bêtise.

Les 2 formulations renverront un numéro de ligne.
La différence entre les 2 sera l'endroit où on va commencer la recherche.
On utilisera la 2ème si on sait que les 15 premières lignes sont (par exemple) vides.

[Pierre Fauconnier]

Bonjour

Les réponses données appellent quelques précisions.

Il est faux de penser que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("a1").end(xldown)

renvoie à la dernière cellule utilisée de la colonne. Cela dépend:
1. du contenu de A1
2. De l'existence ou non d'une solution de continuité dans la colonne, à partir de la référence, soit A1.
Si Il n'y a pas de solution de continuité entre A1 et la dernière cellule utilisée en A, alors la cellule renvoyée sera bien la dernière utilisée. Dans tous les autres cas de figure, il risque d'y avoir problème...

Si A1 est vide,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("a1").end(xldown)

renverra
- soit à la première cellule non vide située en dessous
- soit à la dernière cellule, c-à-d A65536 (XL <=2003), soit A1048536 (XL 2007) si il n'y a aucune cellule remplie sous A1.

Si A1 n'est pas vide,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("a1").end(xldown)

renverra
- à A65536 (A1048576) si toutes les cellules sont vides sous A1
- à la prochaine cellule non vide si A2 au moins est vide sous A1, et qu'il y a des cellules non vides sous A2
- à la dernière cellule non vide précédant la première cellule vide sous A1, si A2 au moins n'est pas vide sous A1.

Je pense avoir exploré tous les cas.

Dès lors, pour être certain d'arriver à la dernière cellule non vide d'une colonne (A en l'occurence), il est préférable de remonter la colonne.
On utilisera donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a65536").End(xlUp)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1048576").End(xlUp)

selon la version utilisée, ou, de façon plus générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("a" & Rows.Count).End(xlUp)

pour éviter les problèmes de version.
Idéalement, il faudra, avant d'utiliser ce code, tester si

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("a" & Rows.Count)

est utilisée.
Car ce que j'ai précisé avec XlDown vaut pour XlUp.
On peut bien entendu raisonner de la même façon en remplaçant A1 par n'importe quelle cellule, et dans tous les sens de déplacement (XlDown, XlUp, XlToLeft et XlToRight).

Pour terminer, il faut noter que le code utilisant End est à rapprocher des séquences de touches CTRL+Flèche.