copie ligne tableau sur une aute feuille

[covale]

Bonjour aux VBAistes

Voila mon problème

Dans une feuille dont les colonnes de A à AH sont remplies de valeurs, je voudrais copier et coller dans une seconde feuille toutes les lignes des colonnes de AD à AH avec une macro. je copie sans problème les lignes entières du style :
Sheets("PIQUETAGE").Activate ' feuille destination'

Col = "AD"
NumLig = 10
Lig = 10
With Sheets("SAISIE") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = Lig To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("PIQUETAGE").Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
Je n'arrive pas à transposer cette méthode pour la copie d'une ligne de la colonne AD à AH.

Si quelqu'un posséde la réponse cela m’aiderait beaucoup

En vous remerciant par avance

 

[Robert]

Re : copie ligne tableau sur une aute feuille

Bonjour Covale et bienvenu, bonjour le forum,

Tu ne dis pas quelle est la colonne qui va déterminer la dernière ligne éditée de la plage AD:AH. Tu ne dis pas non plus si pour ête copiée il faut que toutes les cellules de la plage AD:AH soient éditées... Donc pas sûr que le code ci-dessous te convienne :

Sub Macro1()
Dim os As Worksheet 'déclare la variable os (Onglet Source)
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim pl As Byte 'déclare la variable pl (Première Ligne)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
 
Set os = Sheets("SAISIE") 'définit l'onglet source
Set oc = Sheets("PIQUETAGE") 'définit l'onglet cible
pl = 10 'définit la première ligne
dl = os.Range("AD10").CurrentRegion.Cells.SpecialCells(xlCellTypeLastCell).Row 'définit la dernière ligne
'définit la cellule de destination
Set dest = IIf(oc.Range("A1") = "", oc.Range("A1"), oc.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
os.Rows(pl & ":" & dl).Copy dest 'copie et colle les lignes
End Sub

 

[covale]

Re : copie ligne tableau sur une aute feuille

Merci robert pour ta prompt réponse j'ai pu finir ma macro grâce à ton intervention.

merci encore

A+