Discussion :

[sosoboss]

Bonjour à tous,

J'aurais besoin qu'une personne puisse me venir en aide. J'ai des problèmes avec mon code VBA.
Comme je suis pas du tout à l'aise avec la programmation j'ai utilisé l'enregistreur de macro.

Mon code marchait bien jusqu'à aujourd'hui, et je n'ai rien touché depuis, mais j'ai ce message d'erreur (erreur d'éxecution 1004, erreur définie par l'application ou l'objet).

Sauf que j'ai rien qui s'affiche en jaune, et ce message se répète sur chaque bout de code que je peux avoir.





ps : Comment vous faites pour afficher le code sous forme de balise ?
Je vous prie également de m'excuser de ne pas avoir posté ma première demande au bonne endroit

Au plaisir de vous lire, Merci.

[Daniel.C]

Bonjour,

Dans la fenêtre d'édition des macros, clique sur "Outils" et "Références"; vérifie que "Visual Basic pour Applications" est bien coché et qu'il n'y a pas de références marquées comme "référence manquante". S'il y en a, dé-sélecte-les.
Pour les balises de code, colle celui-ci dans la fenêtre, surligne-le et clique sur l'icône "#" placée dans la deuxième ligne des icônes, tout à droite.

[sosoboss]

Merci Daniel pour ta réponse, j'ai vérifié ce que tu m'as demandé et tout est OK.


J'ai toujours cet erreur 1004, je mets un bout de code pour que tu puisses identifier le problème.

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
Sub tri_nd()
    ' Macro qui va supprimer les doublons dans la feuille sup doublons
    Sheets("supp doublons").Select
    ' On trie sur la colonne F par ordre décroissant
    Range("F1").CurrentRegion.Select
    Selection.Sort Key1:=Range("F1"), Order1:=xlDescending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 ' Suppression des doublons à partir de la colonne A
    Range("A1", "T2000").RemoveDuplicates Columns:=Array(1)
    Worksheets("supp doublons").AutoFilterMode = False
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
     Range("A1").CurrentRegion.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   End Sub

[Daniel.C]

Pas de problème ici. Est-ce que tu peux mettre le classeur en pièce jointe ?

[sosoboss]

Daniel, malheureusement je ne peux pas joindre le classeur qui contient des données personnelles.

[eriiic]

Bonjour,

Ta procédure n'est pas dans un module feuille autre que celui de "supp doublons" des fois ?
Sinon essaie en la mettant dans un module standard.

eric