Rangement de données

[nicko00]

Bonjour à toutes et à tous,

J'ai un petit soucis avec un tableau (Excel 2010) et je n'ai pas trouvé de solution sur le forum.

Voilà, en gros j'ai un tableau avec des noms de gens et au final ( aprés macro VBA) je me retrouve avec
les noms en vrac dans ce tableau.

J'aimerais que tous les noms se regroupe en haut des colonnes de ce tableau afin qu'il n'y ai pas de cellules vides.

Mes connaissances en VBA sont limitées.

Un tableau en PJ sera beaucoup plus clair que mon discours alambiqué !

Bonne journée et merci par avance pour les réponses.

 

[Guest]

Re : Rangement de données

Re,

Comme la macro n'est pas dans le fichier, difficile de la corriger.

A+

 

[nicko00]

Re : Rangement de données

Hasco,

Je n'en ai pas mis pour cette étape, la macro concerne juste une étape précédente.

Je ne sais pas comment faire à cette étape ci, c'est à dire "ranger " les noms qui arrivent en vrac

 

[Guest]

Re : Rangement de données

Re,

Mais si on pouvait éviter à l'étape précédente, qu'ils arrivent en vrac, y'aurait moins de boulot🙂

A+

 

[nicko00]

Re : Rangement de données

Ca entièrement d'accord ! :-D... Mais pas possible... donc toujours à suivre ... 🙂

 

[Guest]

Re : Rangement de données

Re,

Alors voici même si je trouve que c'est la pire des solutions que de réparer ce qu'on peut éviter de casser.

Sub RangerLesChaussettes()
    Dim i As Integer, j As Integer, k
    Dim t, t2
    With Sheets("Feuil1")
        t = .Range("A2:A" & .UsedRange.Rows.Count).Resize(, 4).Value
        ReDim t2(1 To UBound(t, 1), 1 To UBound(t, 2))
        For j = 1 To UBound(t, 2)
            k = 1
            For i = 1 To UBound(t)
                If t(i, j) <> "" Then
                    t2(k, j) = t(i, j)
                    k = k + 1
                End If
            Next
        Next
    .Range("A2:A" & .UsedRange.Rows.Count).Resize(, 4).ClearContents
    .Cells(2, 1).Resize(UBound(t2, 1), UBound(t2, 2)).Value = t2
    End With
End Sub

A+

 

[nicko00]

Re : Rangement de données

whouaou top la macro....
merci beaucoup...

dsl mais le rangement des chaussettes est un peu compliqué à expliquer et je ne peux pas reveler les tenant et aboutissants...

en tout cas, merci infiniment...