Erreur sur Code supprime Doublons???

Résolu
Jean2208 Messages postés 19 Date d'inscription dimanche 7 janvier 2007 Statut Membre Dernière intervention 22 septembre 2009 - 24 janv. 2007 à 11:14
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 janv. 2007 à 12:54
Bonjour à tous,

j'ai une erreur sur un code pour supprimer les doublons dans un fichier donnée mais au lancement j'ai une erreur que je n'arrive pas à résoudre.

Pouvez-vous me donner un coups de main?

Merci d'avance

Voici le code :
Private Sub suppr_doublons()
On Error Resume Next
Sheets("Mvt").Activate
For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
      For linsup = 1 To lin - 1
For col = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
            If Cells(lin, col) <> Cells(linsup, col) Then
Exit For
            If col = 1 Then Rows(lin).Delete
        Next col
      Next linsup
Next lin


End Sub

9 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
24 janv. 2007 à 12:54
évite les doublons de topics stp (supprimé)
3
cs_mouadkrt Messages postés 8 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 24 janvier 2007
24 janv. 2007 à 11:24
C'est quoi l'erreur ?

Mouad.
0
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
24 janv. 2007 à 11:24
"au lancement j'ai une erreur que je n'arrive pas à résoudre."

Et si tu donnais des précisions ?
1) au lancement voudrait dire dès que tu lances, sans même que l'on sache si c'est un VB qui pilote Excel (nous sommes ici sous VB et pas VBA, ce qui permet un doute...) ou si tu cherches seulement à lancer Excel ...
2) quelle erreur ? un message (et lequel alors ?) ou un mauvais résultat ?
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 janv. 2007 à 11:24
Salut,
Pour une aide encore plus adaptée, il aurait été judicieux de nous donner l'erreur

@+: Ju£i?n
Pensez: Réponse acceptée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Jean2208 Messages postés 19 Date d'inscription dimanche 7 janvier 2007 Statut Membre Dernière intervention 22 septembre 2009
24 janv. 2007 à 11:35
La macro que je lance depuis execel ne va pas jusuq'au bout car un msg d'erreur  apparait (au niveau de Next col)
 : "Erreur de compilation : Next sans for"
0
cs_mouadkrt Messages postés 8 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 24 janvier 2007
24 janv. 2007 à 11:42
Essai de mettre
If Cells(lin, col) <> Cells(linsup, col) Then Exit For
sans retour à la ligne
car sinon le "exit for" met fin à la boucle ds tout mes cas , et alors le for reste sans next.

Mouad.
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 janv. 2007 à 11:43
Salut,

C'est parce que ton IF est mal implémenté.

Que cherche tu a faire à cet endroit

For col =  Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1 
            If Cells(lin, col) <> Cells(linsup, col) Then 
                Exit For   
                If col = 1 Then Rows(lin).Delete  
             'TU N4AS PAS MIS DE END IF
        Next col 

ESSAIE PEU ETRE
For col  = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1 
            If Cells(lin, col) <> Cells(linsup, col) Then  Exit For   
            If col =  1 Then Rows(lin).Delete  
Next col

Note le mieux serait quand même de regarder l'aide sur le IF THEN ELSE

@+: =89254 Ju£i?n
Pensez: Réponse acceptée
0
Jean2208 Messages postés 19 Date d'inscription dimanche 7 janvier 2007 Statut Membre Dernière intervention 22 septembre 2009
24 janv. 2007 à 11:56
J'ai essayé vos deux propositions, je n'ai plus de msg d'erreur mais ça n'a aucune incidence sur mes lignes.
Je n'arrive tjrs pas a supprimer celles qui sont doublons!!!
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 janv. 2007 à 11:59
Salut,

Ah oui mais ca c'est auter chose... Peu etre que ton code est faux tout simplement.
Essaye l'enregistreur de macro de Excel pour voir .
@+: Ju£i?n
Pensez: Réponse acceptée
0
Rejoignez-nous