Microsoft 365 Déplacer sans trier

[Andrew47]

Bonjour le forum, j'ai besoin de votre aide sur mes tableaux j'ai des noms qui me viennent d'une formule ce qui cause des espace vide. J'aimerais pour les transposer dans les tableaux sans les espace vide et dans le même ordre (sans trier) est-ce possible. Je vous fait parvenir mes tableaux en exemple avec le résultats souhaité.
Merci de votre collobaration

 

[sylvanu]

Bonsoir Andrew,
Le même sujet traité cette après midi avec la solution de l'auteur :

Microsoft 365 - Regroupe valeur colonne sans cellules vides

Bonjour à vous tous, et bon dimanche. J'ai juste un petit souci pour regrouper une colonne avec des cellules vides, en une colonne sans cellules vides. C'est surement pas compliqué, mais comme débutant, je nage un peux. ;) Pourriez vous, s'il vous plaît, me donner un petit coup de pouce...

excel-downloads.com

du type :

=FILTRE(F24:F43;NON(ESTVIDE(F24:F43)))

 

[job75]

Bonsoir Andrew47, sylvanu,

Sur les tableaux fournis au post #1 des cellules ne sont pas vides mais contiennent le texte vide "".

Donc utilisez :

=FILTRE(B4:B12;B4:B12<>"")

A+

 

[ALS35]

Bonjour à tous,
Hello sylvanu,
Dans ton exemple on peut faire en J4 :

=FILTRE(B4:B12;B4:B12<>"")

et à tirer vers la droite
Cordialement

 

[Andrew47]

Bonsoir Andrew,
Le même sujet traité cette après midi avec la solution de l'auteur :

Microsoft 365 - Regroupe valeur colonne sans cellules vides

Bonjour à vous tous, et bon dimanche. J'ai juste un petit souci pour regrouper une colonne avec des cellules vides, en une colonne sans cellules vides. C'est surement pas compliqué, mais comme débutant, je nage un peux. ;) Pourriez vous, s'il vous plaît, me donner un petit coup de pouce...

excel-downloads.com

du type :

=FILTRE(F24:F43;NON(ESTVIDE(F24:F43)))

Bonsoir sylvanu, cette solution n'est pas bonne pour moi mes tableaux sont un en dessous de l'autre, avec d'autres composantes. j'avais déjà essayer avec décale mais sa fausse tout ce qu'il y a en dessous. Je crois qu'une solution VBA si possible serait préférable, faudrait que juste les noms se décale a partir de la première ligne, mon fichier global comprend trop de données en dessous quand sa décale tout deviens mélangé dans les autres cellules.

 

[Andrew47]

Re bonsoir sylvanu, ta formule marche très bien c'est bon pour moi , un gros merci

 

[sylvanu]

Re, ... Oups! trop tard. Mais ça peut servir à d'autres.🙂
Alors une approche en VBA avec :

Sub Arrange()
SupVides [B4:H12], [J4]
SupVides [B17:H25], [J17]
End Sub

Sub SupVides(Plage, Cel) ' Plage entrée, Cel : Cellule où coller la matrice de sortie.
Dim T, Ts, C%, L%, IndW%
T = Plage
ReDim Ts(1 To UBound(T), 1 To UBound(T, 2))
For C = 1 To UBound(T, 2)
    IndW = 1
    For L = 1 To UBound(T)
        If T(L, C) <> "" Then Ts(IndW, C) = T(L, C): IndW = IndW + 1
    Next L
Next C
Cel.Resize(UBound(Ts, 1), UBound(Ts, 2)) = Ts
End Sub