Discussion :

[RodKAZ]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Limace_hurlante]

Ceci remplit-il tes attentes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RodKAZ]

Bonjour Limace_hurlante,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de ton aide