PNouveau venuPhenicia015Inscrit le :11/07/2014Dernière activité :15/07/2014 à 10:22Version d'Excel :2010Messages6Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par Phenicia015DateAuteur du sujetSujetExtrait du message15/07/2014 à 11:53Phenicia015 Erreur 1004 définie par l'application ou l'objetQuestion résolue. J'ai utilisé le code donné à ce lien : http://www.excel-easy.com/vba/examples/remove-duplicates.html Merci d'avoir essayer de m'aider. Bonne journée...15/07/2014 à 10:22Phenicia015 Erreur 1004 définie par l'application ou l'objetJ'ai mis ce que tu m'as dit : Sub numéro_sinistre() Worksheets("Sheet2").Range("$A$3;$A$5000").RemoveDuplicates Columns:=1, Header:=xlYes End Sub Private Sub CommandButton1_Click() numéro_sinistre () End Sub Par contre, mon bouton ne marche pas. ça me met "syntax error" et souligne "private sub comm...14/07/2014 à 17:35Phenicia015 Erreur 1004 définie par l'application ou l'objetEn fait, quand tu as parlé de doublons, je me suis dit qu'il existait peut être déjà quelque chose pour enlever les doublons. Je verrai tout ça demain. Merci...11/07/2014 à 17:28Phenicia015 Erreur 1004 définie par l'application ou l'objetEffectivement, au final c'est bien ça : enlever les doublons de la 1ère colonne de ma feuille 1 et que ça apparaisse dans ma 2ème feuille par contre. je ne veux pas changer ma colonne de ma feuille 1...11/07/2014 à 12:12Phenicia015 Erreur 1004 définie par l'application ou l'objetCa ne marche pas. Merci quand même. Je joins mon extrait de fichier, si ça peut aider...11/07/2014 à 10:33Phenicia015 Erreur 1004 définie par l'application ou l'objetVoici la macro qui me pose problème avec l'erreur 1004 définie par l'application ou par l'objet. ça me souligne ma ligne du If juste après le do until. Sub numéro_sinistre(k As double) Dim i As double Worksheets("sheet 2").Range("A4:d3000").ClearContents i = 3 k = 5 Worksheets("sheet 2").Cells(4, 1)...Forums