XL 2016 Récupération des valeurs non nulles d'une colonne

[bentaleb]

Bonjour à toutes et à tous.
Je cherche une macro pour récupérer les valeur non nulles d'une colonne A et les mettre dans une colonne B comme une suite et dans le même ordre que dans A, même avec des doublons.
Merci

 

[chris]

Bonjour

faisable très simplement par filtre avancé ou par PowerQuery intégré à Excel

 

[sylvanu]

Bonjour Bentaleb, Chris,
Une autre approche en VBA avec :

Sub Tri()
    Dim tablo, tablo_out, i, indice
    Application.ScreenUpdating = False
    tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
    ReDim tablo_out(UBound(tablo))
    For i = 1 To UBound(tablo)
        If Not IsError(tablo(i, 1)) Then
            tablo_out(indice) = tablo(i, 1)
            indice = indice + 1
        End If
    Next i
    [B1].Resize(UBound(tablo_out), 1).Value = Application.Transpose(tablo_out)
End Sub

ou peut être plus simple en n'utilisant qu'un seul tableau :

Sub Tri()
    Dim tablo, i, indice
    Application.ScreenUpdating = False
    tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
    indice = 1
    For i = 1 To UBound(tablo)
        If Not IsError(tablo(i, 1)) Then
            tablo(indice, 1) = tablo(i, 1)
            indice = indice + 1
        End If
        tablo(i, 1) = ""
    Next i
    [B1].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub

 

[chris]

RE
A noter que le filtre avancé est plus rapide qu'une boucle même sur un array et peut être automatisé par VBA

 

[sylvanu]

Re,
Sur 10 000 lignes le tri par array ne prends que 20ms sur mon vieux PC.
Après le choix de la solution dépend de l'utilisation dans le contexte. Un filtre avancé requiert une zone de critères.

 

[chris]

RE

Un filtre avancé requiert une zone de critères.

Que l'on peut créer et supprimer par VBA si on tient à ne pas la voir...