Macro pour extraire un chiffre

Bonjour à Tous,

Petit problème qui va me rendre chèvre !!!:

Dans ma première colonne, j'ai une succession de chiffre,

Dans ma deuxième colonne je voudrais y mettre les chiffres les un au dessus des autres sans prendre en compte les cellules vides.

Simple, et pourtant je n'arrive pas à trouver les fonctions qu'il faut.

Si joint le tableau qui me donne du fil à retordre !!!

Merci pour toutes vos propositions, j'en ai essayé tellement, que je n'ai plus le recul nécessaire pour trouver !!!!

Bonjour,

avez vous essayé avec un filtre élaboré?

Sinon une macro.....

Comme c'est un tableau qui change, je voudrais trouver une macro...

Mais je n'y arrive pas...

Bonjour,

Avec une formule matricielle

Bravo !!!!!

Félicitation !!!!

Ça marche impec !!!

Le problème est simple, mais la formule bien balaise, FELICITATION !!!

J'aimerai bien essaye de la comprendre, mais là c'est un métier !!!!

merci encore !!!

re et Bonjour M12,

un essai macro:

Sub CopySans0()
Dim i As Long, j As Long, T

With Worksheets("Feuil1") ' à adapter
.Columns(4).ClearContents 'effacement de la colonne D
T = .Range("B6:B" & .Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(T) To UBound(T)
    If T(i, 1) <> 0 Then
        j = j + 1
        T(j, 1) = T(i, 1)
    End If
Next
.Range("D6").Resize(j, 1) = T ' "collage du résultat à partir de D6
End With
End Sub

Merci Algoplus pour ta solution, je vais aussi la tester !!!

merci encore