Bonsoir le forum
En effet j'ai réalisé le code ci-dessous pour pouvoir copier les données d'une plage et les coller sur la dernière cellule non vide de la colonne B.
Le collage doit debuté en CENTRALISATION!B2.
Lors de l'exécution, il y'a un débogage sur cette partie du code:
avec comme message "Erreur 424".
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("CENTRALISATION").Select.Paste DEST
Dans l'espoir de m'avoir fait comprendre.
Aider moi à corriger mon erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub Filtres() Dim o As worsheet Dim DEST As Range ActiveSheet.Range("A12:K700").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("Codes"), Unique:=False 'ActiveWindow.SmallScroll Down:=-3 Range("C13:K563").Select Selection.Copy 'ActiveWindow.SmallScroll Down:=-123 Sheets("CENTRALISATION").Select.Paste DEST Set DEST = IIf(Range("B2").Value = "", Range("B2"), Cells(Application.Row.Count, 2).End(xlUp).Offset(1, 0)) End Sub
Partager