Probleme de selection avec ce code

[castor30]

Bonjour à tous,
Je rencontre un sérieux problème avec ce 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.

 

[Robert]

Bonjour Castor, bonjour le forum,

Peut-être comme ça :

Sub Import()
Dim B As Worksheet
Dim V As Worksheet
Dim derlign As Long
Dim i As Integer
Dim j As Integer

Set B = Worksheets("Base")
Set V = Worksheets("Visite")
derlign = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row
Range("MalistNom").Select
j = 1
For i = 1 To derlign Step 2
    B.Rows(i).Copy V.Cells(1, j)
    j = j + 2
Next i
B.Select
B.Range(A2).Select
End Sub

 

[castor30]

Bonjour Robert et merci de ton aide
Je rencontre cependant un problème sur cette ligne :
B.Rows(i).Copy V.Cells(1, j)
surligné en jaune

D'autre part est-il possible à la place de derlign de limiter sur 300 lignes

 

[castor30]

Je vous mets la fenêtre du Nom Défini
Le but de cette macro est de copier la plage MalistNom de la Base pour la copier une ligne sur deux sur la feuille Visite
Petit rappel je suis sous Excel 2003
Merci

 

[Robert]

Re,

Désolé je me suis trompé c'est :
B.Rows(i).Copy V.Cells(j, 1)
Sinon, inutile de mettre des photos, envoie plutôt le fichier... C'est comme si tu amenais une photo de ta roue crevée chez un garagiste. À peu près autant utile que l'étique en politique...

 

[castor30]

Rien de grave, tout le monde peut se tromper
Maintenant c'est ici que ça coince
Range("MalistNom").Select (qui se surligne en jaune)

 

[Robert]

Re,

Comme déjà dit plus haut, un fichier et pas une photo ! On n'est pas des devins...

 

[castor30]

Bonjour Robert,
Désolé d'avoir été un peu long car j'ai du refaire le classeur pour l’anonymiser
D'autre part, débutant Vba, je ne suis pas du tout à l'aise avec les codes.
J'espère que les différentes notes que j'ai posée te permettront de comprendre mes souhaits (oui ils sont nombreux).
Toute ma gratitude de vouloir m'apporter aide et assistance.