Discussion :

[Patrice Henrio]

Lorsque l'on appuie sur CTRL FIN le surseur se positionne sur la dernière cellule de la feuille. Les coordonnées de cette cellule s'obtiennent avec les propriétés rows.count et columns.count de la propriété UsedRange de la feuille.
Il arrive que cette dernière cellule soit très éloignée de la fin des informations de la feuille suite à des modifications de celle-ci. Ainsi j'ai une feuille dont la dernière ligne est indiquée à 452 alors que toutes les lignes à partir de 150 sont vides.
Comment indiquer à la feuille que sa UsedRange doit être diminuée ?

Merci.

[tomy7]

pourquoi ne pas utiliser ceci

Code :

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

Line = ActiveSheet.Cells(Rows.Count, "V").End(xlUp).Row

Line est la derniere ligne de la colonne V tu peux adapter a ton code!

[Invité]

Bonjour Patrice Henrio,

Vous appuyez sur Ctrl et Fin puis vous sélectionnez le N° de la dernière ligne et vous remontez jusqu'à la ligne qui suit la dernière utile.

Clic droit sur un N° de ligne puis "Supprimer".

Vous enregistrez le fichier (ce ne sera pas pris en compte si vous n'enregistrez pas).

Refaites l'essai de Ctrl puis Fin.

Vous pouvez bien sûr le faire aussi avec une macro.

[Patrice Henrio]

Bonjour Patrice Henrio,

Vous appuyez sur Ctrl et Fin puis vous sélectionnez le N° de la dernière ligne et vous remontez jusqu'à la ligne qui suit la dernière utile.

Clic droit sur un N° de ligne puis "Supprimer".

Vous enregistrez le fichier (ce ne sera pas pris en compte si vous n'enregistrez pas).

Refaites l'essai de Ctrl puis Fin.

Vous pouvez bien sûr le faire aussi avec une macro.

Je vais essayer car effectivement je n'avais pas pensé à enregistrer entre les deux.

Merci

[fring]

Bonjour,

1. tu définis la colonne qui servira de repère pour savoir où s'arrete les informations contenues dans ta feuille, supposons la colonne A

Code :

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

X = Cells(Rows.Count, 1).End(xlUp).Row

2. tu cherches la dernière ligne utilisée

Code :

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

Y = Cells.SpecialCells(xlCellTypeLastCell).Row

Ensuite à toi de définir si tu veux garder quelques lignes vides entre la fin des infos et la dernière cellule trouvée, si aucune ligne vide entre les deux, on pourrait imaginer un truc du genre

Code :

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

If Y - X > 2 Then Rows(X + 1 & ":" & Y - 1).Delete

[Patrice Henrio]

Bonjour,

1. tu définis la colonne qui servira de repère pour savoir où s'arrete les informations contenues dans ta feuille, supposons la colonne A

Code :

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

X = Cells(Rows.Count, 1).End(xlUp).Row

2. tu cherches la dernière ligne utilisée

Code :

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

Y = Cells.SpecialCells(xlCellTypeLastCell).Row

Ensuite à toi de définir si tu veux garder quelques lignes vides entre la fin des infos et la dernière cellule trouvée, si aucune ligne vide entre les deux, on pourrait imaginer un truc du genre

Code :

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

If Y - X > 2 Then Rows(X + 1 & ":" & Y - 1).Delete

Je vais essayer cela aussi qui me parait intéressant.

Merci

[Patrice Henrio]

Désolé de n'avoir pas répondu plus tôt mais j'étais malheureusement très occuppé par d'autres soucis.

J'ai enfin vérifié la méthode de jacques_jean qui fonctionne parfaitement comme je le souhaitais.

Le code de fring marche aussi mais il faut rajouter pour que cela soit effectif qu'il faut enregistrer le classeur (ce qui se fait aussi par programmation)

[Patrice Henrio]

pourquoi ne pas utiliser ceci

Code :

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

Line = ActiveSheet.Cells(Rows.Count, "V").End(xlUp).Row

Line est la derniere ligne de la colonne V tu peux adapter a ton code!

Je pensais avoir indiqué que je savais comment obtenir la dernière ligne. ce que je veux c'est la changer en une autre.