Recopie en fonction d'un numéro de référence

Bonjour

Débutant sur VBA, j'apprends beaucoup en parcourant le site

Cependant le sujet VBa est tellement Vaste que c'est difficile

Je cherche à écrire un code qui me permet de recopier le libellé (colonne D) en fonction du numéro de pièce (colonne G) si c'est possible

J'ai écris ce code en utilisant un filtre sur la colonne Numéro de pièce mais pas très efficace

Dim lastRow As Long

Dim i As Long

lastRow = Cells(Rows.Count, 6).End(xlUp).Row

For i = lastRow To 2 Step -1

If Cells(i, 4).Value = "" Then

Cells(i, 4).Value = Cells(i + 1, 4).Value

End If

Next i

Merci par avance pour vos retours

bonjour

une piste avec un TCD

sans VBA

amitiés

Bonjour,

si j'ai bien compris

Sub aargh()
    dl = Cells(Rows.Count, 6).End(xlUp).Row
    For i = 1 To dl
        If Cells(i, 4) = "" Then
            For j = 1 To dl
                If Cells(i, 6) = Cells(j, 6) And Cells(j, 4) <> "" Then
                    Cells(i, 4) = Cells(j, 4)
                    Exit For
                End If
            Next j
        End If
    Next i
End Sub

Bonsoir tout le monde,

Une autre proposition.....avec RECHERCHEV....

Cordialement,

Merci h2so4

C'est exactement ce que je souhaitais

Merci