Boucle vba qui marche pas !!

Fermé

koax - Modifié par Chris 94 le 5/09/2016 à 14:38
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 6 sept. 2016 à 20:12

Bonjour,

j'essaye de faire macro pour effacer les doublon d'une colonne

voila mon essai

Sub Bouton2_Cliquer()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("b5000").End(xlUp).Row To 4 Step -1
If Cells(i, 2).Value <> 0 Then Cells(i, 3) = Cells(i, 2)
Next i
Application.ScreenUpdating = True
Dim j As Integer
Dim c As Integer
c = 3
Application.ScreenUpdating = False
For j = 4 To 200
If Cells(j, 3).Value <> "" Then Cells(c + 1, 4).Value = Cells(j, 3).Value
c = c + 1
Next j
Application.ScreenUpdating = True
End Sub

j'ai essayer dans un premier temps de supprimer les doublons
puis supprimer les cellules vides qui sortent après la première boucles

j'ai simuler chaque boucle avec un exemple simple et ça marche par contre sur mon tableau de données la deuxième partie pour les cellules vides ne marche pas...

A voir également:

3 réponses

Réponse 1 / 3

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 325
5 sept. 2016 à 14:39

Bonjour,

 Les réponses sont données par des personnes, pas par des machines. Merci d'user des formes simples de politesse.

Réponse 2 / 3

Stif
Modifié par Chris 94 le 6/09/2016 à 19:12

Bonjour,

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

Réponse 3 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
6 sept. 2016 à 20:12

Bonjour à tous

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Mon pc s'allume et s'éteint en boucle

VBA : Range avec références variables..

Redémarrage en boucle Xiamo mi note 10

VBA erreur 1004

Discussions similaires

Newsletters