Boucle vba qui marche pas !!
Fermé
koax
-
Modifié par Chris 94 le 5/09/2016 à 14:38
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 6 sept. 2016 à 20:12
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 6 sept. 2016 à 20:12
3 réponses
Chris 94
Messages postés
50787
Date d'inscription
mardi 8 janvier 2008
Statut
Modérateur
Dernière intervention
17 février 2023
7 570
5 sept. 2016 à 14:39
5 sept. 2016 à 14:39
Bonjour,
pour supprimer les doublons de la colonne A essayez ceci :
pour supprimer les doublons de la colonne A essayez ceci :
Dim I As Variant, j As Variant
For I = 4 To Range("A" & Rows.Count).End(xlUp).Row
For j = I + 1 To Range("A" & Rows.Count).End(xlUp).Row
Do While Cells(I, 1).Value = Cells(j, 1).Value
Cells(j, 1).EntireRow.Delete 'supp la ligne entière en cas de doublon, à adapter si cellule a supp à la place de ligne
Loop
Next j
Next I
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
6 sept. 2016 à 20:12
6 sept. 2016 à 20:12
Bonjour à tous
Pour aller un peu plus vite
Cdlmnt
Pour aller un peu plus vite
Const co = "A"
Const lideb = 2
Sub OK()
Dim li As Long, lifin As Long
Dim dico As Object, cle As String
Application.ScreenUpdating = False
lifin = Cells(Rows.Count, co).End(xlUp).Row
Set dico = CreateObject("scripting.dictionary")
For li = lifin To lideb Step -1
cle = Cells(li, co)
If dico.exists(cle) Then
Rows(li).Delete
Else
dico.Add cle, 1
End If
Next li
Application.ScreenUpdating = True
End Sub
Cdlmnt