question sur un macro

[rainbow69006]

Bonjour

J'ai realiser un macro qui marche mais je voudrais l'ameliorer.
En fait au debut de mon macro
le programme doit savoir combien il y a de ligne de remplies.

donc dans mon programme de base je lui indique a travers de ce code
For i = 1 To 512 (il y a donc 512 lignes de remplies)

Mais moi je voudrais qu'il trouve le nombre de lignes remplies automatiquement
pour cela je pensais.
creer une cellule en "A998" qui affiche le nombre de cellule non vide
et apres mettre ce code
X = Cells(A, 998).Value
For i = 1 To X

Mais sa ne marche pas!!!
comment je peu faire ?

merci

 

[pierrejean]

Re : question sur un macro

bonjour

teste avec

X = Cells(1, 998).Value

 

[rainbow69006]

Re : question sur un macro

Non cela ne marche pas non plus

 

[Compte Supprimé 979]

Re : question sur un macro

Re Rainbow, salut PierreJean,

Si tu veux faire : For i = 1 To X

En fait, il ne faut pas connaitre combien il y'a de lignes remplies, mais qu'elle est la dernière ligne "utilisée" dans ta feuille

Et là il faut utiliser :

X = Sheets("MaFeuille").Range("D1").SpecialCells(xlCellTypeLastCell).Row

Voilà 😉

 

[rainbow69006]

Re : question sur un macro

Sa marche presque

le probleme c'est que sa compte la derniere ligne utiliser.

Je m'explique

en fait sa enregistre si tu a utiliser la ligne par exemple 512 (derniere ligne)
mais imaginons que apres avoir inscris quelque chose dans la ligne 512 tu decide de supprimer ce que tu avais mis dedant.
et bien sa compte toujours la ligne 512 comme derniere ligne et non la ligne 511.

(N'est il pas possible de donner a "X" le nombre de cellule non vide dans la colonne A?)

 

[Compte Supprimé 979]

Re : question sur un macro

A ce moment là,

Si chaque cellule de la colonne "A" sont obligatoirement remplie, tu peux utiliser :

X = Sheets("MaFeuille").Range("A65536").End(XlUp).Row

Voilà 😉

 

[rainbow69006]

Re : question sur un macro

Ah Ah sa marche !!!!

merci beaucoup