Transférer des cellules sur 2 colonnes

Bonsoir le Forum,

Le problème qui me bloque est le suivant :

En colonne « F » j’ai des intitulés d d’Articles

En colonne « G » j’ai des quantités de produits que j’obtiens par formule

J’aimerai avoir en colonne « J » et « K » les articles et la valeur de leur quantité correspondante mais sans les articles dont la quantité est égale à 0.

Voir mon exemple ne fi chier joint

Merci pour votre aide

Bonjour

en utilisant un filtre élaboré ???

nécessite une nouvelle plage pour le critère du filtre ici I1:I2

Fred

Bonsoir Fred,

La solution fonctionne mais malheureusement je ne peux pas intégrer une nouvelle plage.

Y a t il une possibilité de passer par une macro?

Merci d'avance

Bonsoir

Si c'est possible...

Je fais cela demain .... ma femme ma verrouillé le pc.... 😅😅😅

Fred

Bonsoir,

OK ca me va.

Bonne chance à demain

Bonsoir Fred,

Je me permet de te relancer concernant mon problème car malheureusement je bute et je n'avance plus dans mon projet.

Je te remercie pour ton aide passée et future.

Cordialement

Bonjour latef1991

Comme ceci :

Option Explicit
Sub test()
Dim a, b(), i As Long, n As Long
    With Sheets("Courses").Range("F1").CurrentRegion
        a = .Value
        ReDim b(1 To UBound(a, 1) , 1 To UBound(a, 2))
        n = 1: b(n, 1) = a(1, 1): b(n, 2) = a(1, 2)
        For i = 2 To UBound(a, 1)
            If a(i, 2) > 0 Then
                n = n + 1
                b(n, 1) = a(i, 1): b(n, 2) = a(i, 2)
            End If
        Next
        .Offset(, .Columns.Count + 1).Resize(n).Value = b
    End With
End Sub

klin89

Bonjour Klin,

je te remercie d'avoir pris mon problème en main.

Ta solution fonctionne très bien.

Je te remercie encore une fois

Bonne journée

Bonjour à tous... désole hier j'ai eut un mal de crane... et j'ai rien fait...

tant mieux que Klin89 t'a proposé une solution

Fred