Microsoft 365 2 macros de copie

bd.afaf

XLDnaute Junior
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
 

Softmama

XLDnaute Accro
Bonsoir bd.afaf et bienvenue,

si tu crées une macro :
VB:
Sub Test
  MsgBox [Tableau1].Rows.Count
  MsgBox [Tableau16].Rows.count
  MsgBox [Tableau16].Columns.count
End Sub

Quel est le résultat ?
Es-tu certain de ne pas avoir plusieurs plages dans ton classeur qui s'appellent Tableau1 ou Tableau16 ?
 

bd.afaf

XLDnaute Junior
Bonsoir bd.afaf et bienvenue,

si tu crées une macro :
VB:
Sub Test
  MsgBox [Tableau1].Rows.Count
  MsgBox [Tableau16].Rows.count
  MsgBox [Tableau16].Columns.count
End Sub

Quel est le résultat ?
Es-tu certain de ne pas avoir plusieurs plages dans ton classeur qui s'appellent Tableau1 ou Tableau16 ?
bonsoir softmama,

oui il n y'a qu'un seule tableau1 et Tableau16 dans mon classeur .
Sinon comment je vais appliquer la macro que t'as mentionné
Sub Test
MsgBox [Tableau1].Rows.Count
MsgBox [Tableau16].Rows.count
MsgBox [Tableau16].Columns.count
End Sub
 

bd.afaf

XLDnaute Junior
c'est l'intérêt. ça permet de comprendre ce qui plante, vu que tu ne joins pas de fichier exemple...
Quelle est la ligne surlignée lorsque tu cliques sur debuggage et quel est le message d'erreur ?
Bonjour Softmama;
voici le message d'erreur
17-02.PNG
 

Statistiques des forums

Discussions
298 787
Messages
1 971 775
Membres
203 471
dernier inscrit
bouyahiatoufik