Copy/paste en fonction d'une cellule

Version imprimable

Bonjour le forum,

Je débute en VBA. Je cherche à importer des lignes de la feuille Entity dans la feuille Draft en fonction de la valeur que contient les cellules de la colonne F de la feuille Entity.
Je précise : si dans la colonne F de la feuille draft la valeur de la cellule est = "base" alors copy paste sur la feuille ("draft")

Le code ci dessous fonctionne mais n'importe que la dernière ligne contenant "base" de la feuille draft ??
Pourriez vous m'aider ?
merci et bonne journée.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim zone As Range Dim cellule As Range Set zone = Worksheets("entity").Range("F18:F134") For Each cellule In zone If cellule = "base" Then cellule.EntireRow.Copy End If Next Worksheets("Draft").Range("A18").PasteSpecial (xlPasteAll) End Sub

Ceci remplit-il tes attentes ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub cpy()
Dim zone As Object
Dim i As Byte, j As Byte
Set zone = Worksheets("entity")
 
For i = 18 To 134
    If Worksheets("entity").Cells(i, 6).Value = "base" Or Worksheets("entity").Cells(i, 6).Value = "Base" Then
            j = j + 1
            Worksheets("entity").Rows(i).EntireRow.Copy
            Worksheets("Draft").Range("A" & 17 + j).PasteSpecial (xlPasteAll)
    End If
Next i
End Sub

19/02/2013, 13h33
RodKAZ

Bonjour Limace_hurlante,

Ca fonctionne parfaitement merci beaucoup,
Pourrais-tu m'expliquer cette ligne. Pourquoi on a besoin du "or"..??

Code:

If Worksheets("entity").Cells(i, 6).Value = "base" Or Worksheets("entity").Cells(i, 6).Value = "Base" Then

Merci de ton aide