Discussion :

[Denis_67]

Bonjour,

Une question triviale.
Dans le but de nettoyer un feuille avant de lancer une mise à jour, je souhaiterais faire un Cells.select sauf la première ligne où j'ai mes entetes et de faire le selection.clear après.

J'avais jusque là

Code :

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

1
2
3
 
    Range("A2:Z65536").Select
    Selection.Clear

Mais maintenant les 65536 lignes ne suffisent plus pour un fichier 2010 et à l'inverse si je met Z1048576, ça va coincer pour les utilisateurs n'ayant pas encore 2010.

Je pensais affecter

Code :

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

1
2
 
Maplage = cells.select

Mais comment enlever alors la prmière ligne de Maplage

Merci
Denis

[SmallFlower]

Salut,

Il y a plusieurs manières de faire.

Par exemple:

Code :

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

1
2
3
4
5
Option Explicit
 
Private Sub DeleteCells()
  Rows("2:" & Cells.SpecialCells(xlCellTypeLastCell).Row).Delete
End Sub

[Invité]

Code :

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

1
2
3
Dim Myrange As Range
Set Myrange = ActiveSheet.UsedRange
Myrange.Range(Myrange(2, 1), Myrange(Myrange.Rows.Count, Myrange.Columns.Count)).Clear

[Jean-Philippe André]

Salut,

tu peux travailler avec les propriétés End() de tes Range.
exemple :

Code :

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

Range("A65536").end(xlup).Row

te retournera le numéro de ligne de la première cellule non vide en partant "d'en bas"

Pour la notion de première ligne, en passant par une variable Cell qui te pointera sur le premire élément de la plage.

Il suffira alors d'ajouter +1 à son numéro de ligne (.row +1) pour avoir l'autre valeur qui t'intéresse !

[Denis_67]

Merci à tous pour vos propositions, j'en ai testé 2 et gardée celle de rdurupt.

même si des fois des j'ai des doutes sur les fonctions "last" et "used" que j'ai déjà pris en defaut.

Bonne journée
Denis