Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Créer une liste sans cellules vides à partir d'un fichier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MARION 13

XLDnaute Nouveau
Bonjour à tous
Ma demande est probablement modeste mais je me casse les dents sur: Créer une liste sans cellules vides à partir d'un fichier

J'ai un fichier contenant des données sur 92 colonnes et 395 lignes, avec des cellules vides. je dois récupérer par colonne le contenu des cellules non vides.
je précise que ces données sont le résultat de formule (résultats non collés bien sur 🙂

Help! mon fichier ma demandé toute la semaine ( j'ai appris beaucoup de choses!) mais là je suis épuisée.
S' il y a une âme charitable pour me venir en aide...

 
Trier par date Trier par votes
Bonjour,

Enfin pour terminer via VBA. La mise à jour se fait quand on sélectionne la feuille Feuil2.
Les lignes suivantes permettent d'indiquer la source et la cible (à adapter à chaque cas).
Le code est dans le module de la feuille "Feuil2"
VB: 
Private Sub Worksheet_Activate()
Dim F1 As Worksheet, base1, nlig1, ncol1, F2 As Worksheet, base2, t, i&, j&, n&, max
   Set F1 = Worksheets("Feuil1"): base1 = "A1": nlig1 = 395: ncol1 = 92
   Set F2 = Worksheets("Feuil2"): base2 = "B3"
   t = F1.Range(base1).Resize(nlig1, ncol1)
   For j = 1 To UBound(t, 2)
      n = 0
      For i = 1 To UBound(t)
         If t(i, j) <> "" Then n = n + 1: t(n, j) = t(i, j)
      Next i
      For i = n + 1 To UBound(t): t(i, j) = "": Next
      If n > max Then max = n
   Next j
   Application.ScreenUpdating = False
   F2.Range(base2).Resize(nlig1, ncol1).Clear
   F2.Range(base2).Resize(UBound(t), UBound(t, 2)) = t
   F1.Range(base1).Resize(max, ncol1).Copy
   F2.Range(base2).PasteSpecial xlPasteFormats
   Application.Goto F2.Range("a1"), True
   Application.CutCopyMode = False
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
WTF à dit:
Bonjour Marion et bienvenue sur le forum.
Tu trouveras en PJ une proposition qui utilise la fonction filtre.

Bien à toi
Cliquez pour agrandir...
Bonjour WTF et à tous ceux qui me liront,
j'ai téléchargé ta PJ, elle ne fonctionne pas pour mon tableau : j'ai un #NOM?
J'ai office 2013 (j'ai modifié les références des cellules à traiter, essayé de bricoler mais ... échec). Pourrais tu m'aider à résoudre mon problème stp ? La fonction "filtre" n'est pas dans la liste de celles proposées via f(x)...
Un grand merci par avance pour ton aide !
Bonne journée
 
Vote positif 0 Vote négatif
Bonjour, la fonction ne fonctionne qu'avec Office365 ou Excel2021 .
Mais celle de @riton00 devrait convenir .
 
Vote positif 0 Vote négatif
Bonjour Duriz, en effet la fonction filtre ne fonctionne pas avec office 2013.
Je te laisse choisir dans les autres solutions proposées
 
Vote positif 0 Vote négatif
Bonjour, le fichier téléchargé marche -jusque là tout va bien!- mais quand j'essaye d'appliquer la formule matricielle sur mon classeur, je n'ai pas le résultat escompté... Je joint un fichier (Mayday1)qui montre mon problème. Le tableau ne commence pas ligne 1 ni colonne A volontairement. J'ai essayé pas mal de choses, mais manifestement pas la bonne!
Pouvez vous m'aider svp ?
Merci par avance.
Duriz
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Duriz, le fil,

Formule matricielle en P14 :
Code: 
=SIERREUR(PETITE.VALEUR(SI(ESTNUM(D$14:D$44);D$14:D$44);LIGNE(P1));"")
à valider par Ctrl+Maj+Entrée et tirer à droite et vers le bas.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour job75,
ta solution fonctionne à merveille, je l'ai testé avec mise à jour sur plusieurs mois.
Tu as résolu mon problème 3/4 d'heure après que je l'ai exposé vs moi qui me casse les dents dessus depuis 2 semaines !!!
Ton aide a été déterminante MERCI 🙏
 
Vote positif 0 Vote négatif
S'il y a beaucoup de cellules le recalcul des formules prendra du temps.

Pour aller vite on peut utiliser cette macro :
VB: 
Sub Grouper()
Dim nlig&, ncol%, tablo, resu(), j%, n&, i&
With Range("D13:L" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    nlig = .Rows.Count
    ncol = .Columns.Count
    tablo = .Value 'matrice, plus rapide
    ReDim resu(1 To nlig, 1 To ncol)
    For j = 1 To ncol
        n = 0
        For i = 1 To nlig
            If tablo(i, j) <> "" Then
                n = n + 1
                resu(n, j) = tablo(i, j)
            End If
    Next i, j
    .Offset(, 12) = resu
End With
End Sub
Testée en recopiant la plage D14:L43 sur 30 000 lignes elle s'exécute en 0,3 seconde.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
195
job75
R
  • Résolu(e)
XL pour MAC Créer un sous groupe à partir d'un groupe
2 3 4
Réponses
48
Affichages
2 K
rtlv17
R
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
300
Zdz16
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
238
Bibinaire
B
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
802
alexga78
A
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
483
job75
  • Résolu(e)
Microsoft 365 [VBA] Listes dynamiques selon cases à (dé)cocher
2
Réponses
18
Affichages
712
alexga78
A
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
4 K
jeff1494
C
  • Question Question
Microsoft 365 Liste déroulante dynamique / dépendante d'un critère ou plus, *sans* VBA ? Une sorte d'Unique à conditions ? + ordre alpha ?
Réponses
8
Affichages
264
JHA
J
M
  • Question Question
XL 2019 comment peut on créer une liste excel à partir d'un répertoire Explorer
Réponses
2
Affichages
379
goube
K
  • Résolu(e)
Microsoft 365 Impression d'un tableau sans cases vides
Réponses
13
Affichages
586
KadNes
K
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
272
fd.30
F
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
561
djidji59430
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
442
zendb
Z
  • Question Question
XL 2016 Générer une liste excel suivant des informations dans un fichier
2
Réponses
15
Affichages
941
chris
  • Résolu(e)
Microsoft 365 Créer une base de données à partir de 2 onglets
Réponses
3
Affichages
608
WTF
  • Résolu(e)
XL 2021 Créer une liste à partir d'un tableau
Réponses
2
Affichages
578
senpan
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
723
ali591
A
C
  • Question Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
762
clineM
C
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'une liste
Réponses
2
Affichages
528
jcpamart
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…