Microsoft 365 2 macros de copie

[bd.afaf]

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]

Bonsoir bd.afaf et bienvenue,

si tu crées une macro :

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]

Bonsoir bd.afaf et bienvenue,

si tu crées une macro :

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

 

[Softmama]

Pour entrer cette macro, il suffit de faire Alt+F11, et la copier dans un module (Insertion/Module au besoin)
Pour la lancer, avec Alt+F8

Bien cordialement,

 

[bd.afaf]

Pour entrer cette macro, il suffit de faire Alt+F11, et la copier dans un module (Insertion/Module au besoin)
Pour la lancer, avec Alt+F8

Bien cordialement,

deja elle fonctionne pas pour moi ça donne un message d'erreur,
et je comprends pas l'intérêt de cette macro

 

[Softmama]

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 ?

 

[bd.afaf]

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

 

[Softmama]

Bonjour,

Il faut descendre le End With qui se trouve 2 lignes au dessus, et le placer sous cette ligne qui bloque.

Bien cordialement,

 

[bd.afaf]

Bonjour,

Il faut descendre le End With qui se trouve 2 lignes au dessus, et le placer sous cette ligne qui bloque.

Bien cordialement,

Bonjour Softmama,
on me donne toujours un déboggage sur cette ligne

 

[Softmama]

Bonjour,

Le message d'erreur a-t-il changé ?
Tu ne peux pas joindre un bout de fichier afin d'écourter les recherches ?