Discussion :

[coxi77]

Salut à tous je vous explique mon problème :

J'aimerai supprimer des données jusqu'a la ligne n°10, j'avais pensé à faire simplement un :

Code :

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

1
2
3
 
Range("A1:P10").Select
Selection.Delete Shift:=xlUp

Mais dans certains fichiers la première ligne du tableau commence, par exemple, au niveau de la cellule A4 et non de A1 comme c'est généralement le cas . Quand j'execute la macro il me supprime donc des données que j'aimerai garder...

Je cherche donc a faire une macro me permettant de supprimer les données jusqu'a la ligne 10 et ce peut importe la cellule de départ.

Des idées ?

Merci d'avance

[illight]

Heuu peu importe vraiment ? ou tu as quand un indice qui te permettre de commencer la suppression a, par exemple la ligne 4 ?

[ouskel'n'or]

Code :

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

1
2
3
4
5
Dim NoColonne, NoPremièreLigne, DernièreLigne
NoPremièreLigne = 1
NoColonne = 2
DernièreLigne = 10
Range(Cells(NoPremièreLigne, NoColonne), Cells(DernièreLigne, NoColonne)).Clear

[illight]

Ousk, ta formule supprime les cellules ou juste leur contenu ?

Parce que dans l'aide, ils disent que ça supprime juste ce qu'elles contienne, or a priori il veux les supprimer non ?

[coxi77]

Le clear me convient quand meme vu que j'utilise ensuite une macro pour éliminer les lignes vierges. En tout cas ca marche bien !

Merci beaucoup !

[ouskel'n'or]

Sinon, c'est "delete"