Copier-coller sous condition

Bonjour à tous,

je cherche à effectuer une commande copier-coller dans un fichier avec une condition.

Voici un exemple:

j'aimerais que la macro repère dans la collone A les cellules vides.

Par exemple si A42 est vide mais que dans Y42 il y a une info, j'aimerais que la macro copie la cellule supérieure, ici A41, et la colle dans A42.

La macro devrait effectuer cette tache pour chacune des cellules vides de la colonne A puis B puis C, en prenant toujours comme référence la cellule Y.

Si il y a une info en Y alors on effectue le copier-coller sinon rien ne doit se passer (c'est qu'on a atteint la fin du tableau).

Merci pour votre aide.

Je ne sais pas si la macro sera complexe, mais merci par avance.

Cordialement

Noé Viviant

Bonsoir,

Tu peux essayer ça. Sous réserve du fichier que tu n'as pas fourni. On suppose ici que tes cellules "vides" sont celles qui n'affichent rien.

Sub copier()
    Dim i%, k%, n%
    With ActiveSheet
        n = .Cells(.Rows.Count, 25).End(xlUp).Row
        For i = 2 To n
            For k = 1 To 3
                If .Cells(i, k) <> "" And .Cells(i, 25) <> "" Then
                    .Cells(i - 1, k).Copy .Cells(i, k)
                End If
            Next k
        Next i
    End With
End Sub

Cordialement

Ferrand