Discussion :

[cerede2000]

Oui supprimer les lignes vides après est une idée que je vais tester !

Par contre la solution que tu donne dans l'autre topic ne corresponds pas à mon besoin, en effet à partir du moment ou il y à autre chose sur la feuille (mise en page avec logo titre qui ne peuvent pas être placé dans l'entête), ça devient plus compliqué.

Merci pour tes réponses

[Philippe Tulliez]

Bonjour,
Pour ma part, que ce soit pour exporter ou supprimer des lignes d'une liste de données suivant critères, j'utilise les filtres avancés (méthode AdvancedFilter) avec un critère nommé. Bien plus simple à mettre en place en VBA que le filtre simple je trouve.
L'avantage supplémentaire c'est que pour connaître le nombre qui répond aux critères, on peut utiliser une fonction de la catégorie Base de données qui fonctionne de la même manière que les filtres avancéss avec zone des données et zone des critères.

[cerede2000]

Plus simple l'AdvancedFilter ?
Déjà le temps de filtre est plus long !
En plus il faut définir une zone pour mettre les critères....

@RyuAutodidacte : J'men doutais un peu, ceci ne fonctionne pas :

Code :

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

.SpecialCells(xlCellTypeBlanks).Cells

Tout simplement parce que il y à des cellules vide sur des lignes qui elles ne sont pas entièrement vides.....

[Philippe PONS]

Hello,

à noter que cette zone de critères, tu peux la définir sur une autre feuille, pour ne pas
toucher à la feuille qui contient les données.
Cordialement,

[cerede2000]

Yes, bien sur, mais il faut la créé car mes classeurs ne contiennent qu'une seule feuille.
Et comme indiqué quand je vois le temps de filtre..... Comparé à un filtre classique pour lequel on décoche Vides, il n'y a pas photo c'est hallucinant !

[RyuAutodidacte]

Hi,

Tout simplement parce que il y à des cellules vide sur des lignes qui elles ne sont pas entièrement vides.....

Tu veux dire qu'il y a comme un(e) résidu/valeur fantôme dans les cellule vides??

[cerede2000]

Hi,

Tu veux dire qu'il y a comme un(e) résidu/valeur fantôme dans les cellule vides??

Non pas du tout, mais dans une ligne, certaines cellules ne sont pas remplis, donc cette ligne dégage également, car dans la sélection xlCellTypeBlanks une des cellules de cette ligne est comprise !

Bon ben je reste sur :

Code :

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

1
2
3
4
.Range("$B$12:$N$21").AutoFilter field:=3, Criteria1:="<>"
nbRowsVisible = .AutoFilter.Range.Columns(3).SpecialCells(xlCellTypeVisible).Count - 1
Set srcR = .AutoFilter.Range
Set srcR = srcR.Resize(srcR.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible)

Qui me donne entière satisfaction, autant sur le nombre de ligne qu'il reste (nbRowsVisible) que sur la plage finale sélectionné sans la ligne d'entête

[RyuAutodidacte]

Re cedere,

Juste quelques petites questions à des fins d'apprentissage :

Code :

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

.SpecialCells(xlCellTypeBlanks).Cells

• Ce code pointe sur quelle colonne ? Est ce la colonne du field:=3?
Car si c'est le cas on est censé éliminer toutes les cellules vide de cette colonne et donc la ligne entière correspondante à cette cellule , non??

• j'ai voulu reproduire ton code sur la copie mais j'ai eu une erreur
Peux tu me mettre une demo en entier du code pour une copie feuil1 à feuil2 stp
Merci d'avance