LigneSuivante

[jad73]

Bonjour
j'utilise dans une macro:
"Dim LigneSuivante As Long
"LigneSuivante=Range("P2").end(xlDown).Row +1
"Range("D2:H15").Copy
"Range("P") & LigneSuivante).PasteSpecial Paste:=xlPasteValues
"Range("B8").Select
"ENS Sub
Hors j'ai des lignes vides ou des lignes manquantes dans la plage"P" quand j'active la macro.
Effectivement quand j'ai construit la macro j'ai sélectonné "D2:H15" car je ne sais pas à l'avance combien j'aurais de lignes a envoyé dans la plage "P"cela peut-etre 10 lignes comme 20 lignes d'ou les trous ou lignes manquantes dans "P"
Comment remédier a cela
merci

 

[Robert]

Re : LigneSuivante

Bonjour Jad, bonjour le forum,

Si la plage que tu dois copier est isoléee tu peux essayer comme ça :

Sub Macro1()
Dim LigneSuivante As Long
LigneSuivante = Range("P2").End(xlDown).Row + 1
[COLOR=red]Range("D2").CurrentRegion.Copy
[/COLOR]Range("P" & LigneSuivante).PasteSpecial Paste:=xlPasteValues
Range("B8").Select
End Sub