Erreur sur Code supprime Doublons??? [Résolu]

Signaler
Messages postés
19
Date d'inscription
dimanche 7 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
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

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
évite les doublons de topics stp (supprimé)
Messages postés
8
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
24 janvier 2007

C'est quoi l'erreur ?

Mouad.
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
23
"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 ?
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
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
Messages postés
19
Date d'inscription
dimanche 7 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2009

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"
Messages postés
8
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
24 janvier 2007

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.
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
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
Messages postés
19
Date d'inscription
dimanche 7 janvier 2007
Statut
Membre
Dernière intervention
22 septembre 2009

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!!!
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
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