Discussion :

[ANGLIQUESOIG]

bonjour à tous
j'ai une colonne avec des données issues d'une concatenation de plusieurs cellules
cette colonne contient des lignes vides
j'aimerai savoir s'il existe un moyen sans vba de récupérer les lignes non vides et mettre ces données dans une autre feuille du classeur
Mon fichier comporte énormement de lignes et j'aimerai trouver un moyen pour ne pas avoir à le faire à la main
j'ai essaye avec les fonctions decaler , non vide etc mais je n'arrive à rien
avez-vous une idée et pouvez vous m'aider
d'avance merci

[rjamin]

Bonjour,
Proposition avec formule à mettre en A2 de la feuille Synthèse et à valider par Ctrl+Maj+Entrée

Code :

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

=SIERREUR(SI(LIGNES($1:1)<=NBVAL(Données!$B$19:$B$32);INDEX(Données!$B$19:$B$32;PETITE.VALEUR(SI(Données!$B$19:$B$32<>"";LIGNE(INDIRECT("1:"&LIGNES(Données!$B$19:$B$32))));LIGNES($1:1)));"");"")

[Menhir]

Une méthode empirique :

Créer une colonne supplémentaire numérotée.
Par exemple en mettant dans la première cellule une formule ligne précédente +1, en copiant cette formule sur toutes les cellules de la colonne, en sélectionnant toutes ces nouvelles cellules et en faisant un copier/coller valeur.

Ensuite, tu fais un tri incluant la colonne que tu veux nettoyer et la colonne numérotée avec ta colonne comme critère de tri.
Toutes tes lignes vides vont être regoupées, elles seront simples à supprimer.

Ensuite, tu pourras revenir à l'ordre initial en utilisant la colonne numérottée : tu fais à nouveau un tri sur les deux colonnes mais cette fois en utilisant la colonne numérotée comme critère.

Tu n'as plus qu'à supprimer la colonne numérotée.

Je pense que c'est plus long à expliquer qu'à faire.


Mais si tu as à le faire souvent, je te conseille de faire un petit programme VBA de quelques lignes. Quelque chose qui ressemble à :

Code :

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

1
2
3
4
5
6
for i = Ligne1 to LigneMax
   if cells(i,MaColonne).Value = "" then
      rows(i).delete Shift:=xlUp
      i=i-1
   End If
Next i

En remplaçant
Ligne1 par le numéro de ta première ligne
LigneMax par le nombre de lignes maximum qu'il peut y avoir dans ton tableau
MaColonne par le numéro de la colonne où se trouvent tes données.