Microsoft 365 Déplacer sans trier

Andrew47 · 20 Octobre 2024

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 · 20 Octobre 2024

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 :

VB:

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

job75 · 20 Octobre 2024

Bonsoir Andrew47, sylvanu,

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

Donc utilisez :

Code:

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

A+

ALS35 · 20 Octobre 2024

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

VB:

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

et à tirer vers la droite
Cordialement

Andrew47 · 20 Octobre 2024

sylvanu à dit:
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 :

VB:

=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 · 20 Octobre 2024

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

sylvanu · 20 Octobre 2024

Re, ... Oups! trop tard. Mais ça peut servir à d'autres.

Alors une approche en VBA avec :

VB:

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

Microsoft 365 Déplacer sans trier

Andrew47

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Microsoft 365 - Regroupe valeur colonne sans cellules vides

job75

XLDnaute Barbatruc

ALS35

XLDnaute Impliqué

Andrew47

XLDnaute Nouveau

Microsoft 365 - Regroupe valeur colonne sans cellules vides

Andrew47

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires