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