recopie de la ligne precedente suivant condition

[habasque]

salut a tous,

je cherche a mettre en place une macro suivant l'algorithme suivant (un exemple est en PJ) :

si la valeur de la colonne C = "NA" alors
recopier les valeurs des colonnes A à M de la ligne precedente
repeter tant que la valeur de la colonne C = "NA"
fin si

quelqu'un peut t-il me traduire cet algorithme en VB ?
merci d'avance
jeremie

 

[ODVJ]

Re : recopie de la ligne precedente suivant condition

bonsoir,

proposition de code à base de copier/coller :

Sub na_en_C() ')
derligne = Sheets(1).Range("C65536").End(xlUp).Row
For i = 2 To derligne
    If Cells(i, 3).Value = "NA" Then
        Range("A" & i - 1 & ":M" & i - 1).Copy Destination:=Range("A" & i)
    End If
Next
End Sub

je ne gère pas le cas où la 1ère ligne est NA

A+