castor30
XLDnaute Occasionnel
Bonjour à tous,
Je rencontre un sérieux problème avec ce code :
Il me sélectionne toute la feuille et non la plage correspondant à "MalistNom"
Comptant sur vos lumières et en vous remerciant de l'aide que vous m'apporterez.
Je rencontre un sérieux problème avec ce code :
Code:
Sub Import()
Dim derlign As Long
Sheets("Base").Select
derlign = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row
Application.Goto Reference:="MalistNom"
Selection.Select
j = 1
For i = 1 To derlign Step 2
Sheets("Base").Rows(i).EntireRow.Copy Sheets("Visite").Rows(j)
j = j + 2
Next i
Sheets("Base").Select Range(A2)
End Sub
Il me sélectionne toute la feuille et non la plage correspondant à "MalistNom"
Comptant sur vos lumières et en vous remerciant de l'aide que vous m'apporterez.