Bonjour Forum,
je veux faire une macro pour se positionner dans la dernière cellule de la colonne A, puis me copier la colonne 3 du tableau16 (de la feuille Mois) dans la colonne 1 du tableau 1 (de la feuille Tableau des écarts).
puis e positionner dans la dernière cellule de la colonne F, et me copier la colonne 8 du tableau16 (de la feuille Mois) dans la colonne 6 du tableau 1 (de la feuille Tableau des écarts).
Mais on me donne erreur au niveau de la ligne (
.Cells(.Rows.Count + 0, 1).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(3).Value ) pour la copie des colonne .
Sub test1()
'
Dim derl As Long
With ActiveSheet 'se positionner dans la derniere cellule colonne A
derl = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("A" & derl).Select
End With
ActiveSheet.Protect
Sheets("Tableau des écarts").Select 'copie colonne 3 dans colonne 1
With [Tableau1]
.Cells(.Rows.Count + 0, 1).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(3).Value
End With
With ActiveSheet 'se positionner dans la derniere cellule colonne F
derl = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("A" & derl).Select
End With
ActiveSheet.Protect
Sheets("Tableau des écarts").Select 'copie colonne 8 dans colonne 6
With [Tableau1]
.Cells(.Rows.Count + 0, 6).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(8).Value
End With
End Sub
je veux faire une macro pour se positionner dans la dernière cellule de la colonne A, puis me copier la colonne 3 du tableau16 (de la feuille Mois) dans la colonne 1 du tableau 1 (de la feuille Tableau des écarts).
puis e positionner dans la dernière cellule de la colonne F, et me copier la colonne 8 du tableau16 (de la feuille Mois) dans la colonne 6 du tableau 1 (de la feuille Tableau des écarts).
Mais on me donne erreur au niveau de la ligne (
.Cells(.Rows.Count + 0, 1).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(3).Value ) pour la copie des colonne .
Sub test1()
'
Dim derl As Long
With ActiveSheet 'se positionner dans la derniere cellule colonne A
derl = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("A" & derl).Select
End With
ActiveSheet.Protect
Sheets("Tableau des écarts").Select 'copie colonne 3 dans colonne 1
With [Tableau1]
.Cells(.Rows.Count + 0, 1).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(3).Value
End With
With ActiveSheet 'se positionner dans la derniere cellule colonne F
derl = .Cells(.Columns(2).Cells.Count, 2).End(xlUp).Row + 1
.Range("A" & derl).Select
End With
ActiveSheet.Protect
Sheets("Tableau des écarts").Select 'copie colonne 8 dans colonne 6
With [Tableau1]
.Cells(.Rows.Count + 0, 6).Resize([Tableau16].Rows.Count) = [Tableau16].Columns(8).Value
End With
End Sub