Discussion :

[facteur]

Bonjour,
J'ai une petite question qui a l 'air toute simple mais qui me pose un soucis..
Sur une feuille Excel, j'ai des données sur plusieurs colonnes (le nombre de colonne peut varié).
Le nombre de ligne référencées sur ces colonnes diffère d'une colonne à l 'autre :
Par exemple: la colonne A a 20 lignes référencées, la colonne B en a 30, la colonne C en a 10 etc...

je n'arrive pas à élaborer un code vba qui me supprimerait toutes les lignes non vides à partir de la ligne 2 ( la ligne 1 possédant les entêtes de colonne) et pour toutes les lignes non vides des colonnes non vides

Merci de votre aide

[eriiic]

Bonjour,

Pas clair du tout.
Pour moi une ligne non vide c'est une ligne avec qq chose dedans. Donc tu veux supprimer toutes les données et garder les lignes entièrement vides... (?!?)
eric

[Menhir]

je n'arrive pas à élaborer un code vba qui me supprimerait toutes les lignes non vides à partir de la ligne 2

Bin... Si tu veux supprimer les lignes non vides, ça veut dire que tu ne gardes que les lignes vides ?
Dans ce cas, il suffit de faire un gros Delete ou ClearContents et le tour est joué.

A moins que (ce qui est probable) ta question soit mal posée.

[facteur]

Bonjour Menhir

C'est ce que j'ai fais.
je voulais juste un code qui supprimr juste les cellules qui contiennent des données..
Mais tu a sraison , il faut rester dans la simplicité

Code :

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

WorkSheets("fichier").Rows("2:1000000").Delete Shift:=xlup

je clos cette discussion

[Menhir]

Pour optimiser un peu :

Code :

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

WorkSheets("fichier").UsedRange.Offset(1, 0).EntireRow.Delete

Mais si tu veux garder le format et juste effacer les données

Code :

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

WorkSheets("fichier").UsedRange.Offset(1, 0).ClearContents

[facteur]

Merci menhir
je garde tes codes .