Microsoft 365 Copie des données

bd.afaf

XLDnaute Junior
Bonjour Forum;

j'ai déja posé la meme question on m'a demandé une solution qui a marché sur un exemplaire que j'avais partagé. Mais le fichier que je travail dessus contient des formules dans un tableau automatique.


le problème c'est que lorsque je copie les données de la colonne 8 vers la colonne 6, On me copie aussi des données ( que je sais même pas la source) vers la colonne 4
voici la Macro qu'on m'avait proposé;


Sub Février()
'
'Sub LastTry()
'
' Macro3 Macro
'

'
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE)),""Traité sans écarts"",VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE))"
Range("F4").Select
'tri sur nouveau compte
Sheets("Mois").Select
ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10, Criteria1:= _
"Nouveau Compte"



'copie des deux colonnes
With [Tableau1]
[Tableau16].Columns(3).Copy .Cells(.Rows.Count + 1, 1)
[Tableau16].Columns(8).Copy .Cells(.Rows.Count + 1, 6)
End With
End Sub


19804.PNG
 

Statistiques des forums

Discussions
298 787
Messages
1 971 775
Membres
203 472
dernier inscrit
Brained