Discussion :

[capi81]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("CENTRALISATION").Select.Paste DEST

avec comme message "Erreur 424".
Dans l'espoir de m'avoir fait comprendre.

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

Aider moi à corriger mon erreur.

[BENNASR]

https://www.developpez.net/forums/d1...us-conditions/

[capi81]

Bonsoir BENNASR et le forum

Merci pour la redirection qui m'a permi de réagir.
Je reste à l'écoute pour toute solution entrant dans le cadre du présent sujet.

Meilleures salutation

[capi81]

Bonsoir

Je viens vous relancer par rapport à mon code que je n'arrive pas à faire fonctionner.
A l'exécution la macro tourne et au finish rien ne se produit.
Je reviens vers vous pour de l'aide.

[Marc-L]

Bonjour !

Il y a deux actions sur la ligne de code n°19 : il y en a une de trop ‼
Ne pas oublier l'Enregistreur de macro, l'ami du grand débutant !

Sinon pour rappel un bon code n'a pas besoin de sélectionner …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …