Si valeur d'une colonne=0 alors remplacé par la valeur d'une autre

Bonjour,

la BD fait 200 000 lignes.

le principe est celui ci :

si B = 0 alors B prend la valeur de C.

avant

....................colonneA....................colonneB....................colonneC

ligne 1.............aaa...............................17..............................85

ligne 2.............bbb...............................0................................42

ligne 3.............ccc...............................106............................90

ligne 4.............ddd...............................0................................20

après

....................colonneA....................colonneB....................colonneC

ligne 1.............aaa...............................17..............................85

ligne 2.............bbb...............................42................................42

ligne 3.............ccc...............................106............................90

ligne 4.............ddd...............................20................................20

Voici mon code.

Dim ws As Worksheet

Dim lastRow As Long, lRow As Long

Dim rw

Set ws = Worksheets("BD")

lastRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow

If Range("B" & i) = 0 Then

Range("B" & i) = Range("C" & i)

End If

Next i

Merci.

Bonjour ta macro semble correcte à part cette petite erreur là :

lastRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Row

soit tu déclares lastRow1 soit tu remplaces lastRow1 par lastRow à ta convenance

Cordialement

bigdaddy154 a écrit :

Bonjour ta macro semble correcte à part cette petite erreur là :

lastRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Row

soit tu déclares lastRow1 soit tu remplaces lastRow1 par lastRow à ta convenance

Cordialement

merci ca fonctionne.

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