formule qui renvoie le numero de ligne copier coller la ligne entiere(valeur)

[julie999]

bonjour
petit probleme de comprehension sur ma macro

voici le code :

Sub Macroaaa()
'
' Macroaaa Macro
'

'
Dim n As Long

With Sheets("bd Sortie")
n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If n < 4 Then n = 4


Sheets("bd").Rows(Sheets("Sortie de stock").Range("A17").Value).Select
Selection.Copy

.Cells(n, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub




ce que je souhaiter faire:
sélectionner la premiers cellule vide de la feuille bd Sortie(-les 4 premieres lignes)
(j'ai une formule qui me renvoie un numéro de ligne en cellule A17 de la feuille "Sortie de stock",récupérer la ligne correspondante sur la feuille "bd"(par rapport au numero de ligne en cellule A17 feuille'Sortie de stock" copier toute la ligne et coller sur la feuille "bdSortie"(sur la première cellule vide de la colonne A)

ou est mon erreur

Julie


apres cette macro j'ai une autre macro qui vient effacer la ligne envoyere en A17 :

Sheets("bd").Rows(Sheets("Sortie de stock").Range("A17").Value).Delete

 

[Papou-net]

Re : formule qui renvoie le numero de ligne copier coller la ligne entiere(valeur)

Bonsoir Julie,

L'erreur, que tu ne précises pas, doit être due au fait que tu sélectionnes une ligne sur une feuille qui n'est pas active.

Je te propose donc de corriger comme suit :

Sub Macroaaa()
Dim n As Long
With Sheets("bd Sortie")
 n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      If n < 4 Then n = 4
Sheets("bd").Rows(Sheets("Sortie de stock").Range("A17").Value).Copy
.Cells(n, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End With
End Sub

Cordialement.