VBA

Question

Bonjour, je voudrais savoir comment faire pour pouvoir me d&#233;placer dans une colonne d'excel. Je voudrais &#233;liminer les doublons. J'ai tri&#233; ma colonne, me reste plus qu'a faire les comparaisons mais l&#224; &#231;a coince, et j'ai besoin d'une r&#233;ponse assez rapide, &#233;tant donn&#233;e que je dois respecter des delais! Merci par avance!

chrisccc · Answer

Sheets("tafeuille").Range("1ere case de ta colonne").Select
Selection.End(xlDown).Select
nb_probleme = ActiveCell.Row 
For i = 1 To nb_probleme
    For j = i + 1 To nb_probleme
        If Range("case juste au dessus ta premiere").Offset(i, 0).Value = Range("case juste au dessus ta premiere").Offset(j, 0).Value then         
                  Rows( j & ":" & j).Select
                    Selection.Delete Shift:=xlUp
                    nb_probleme = nb_probleme - 1
                    j = j - 1
      endif
   next j
next i

chrisccc · Answer

j espere que ca repond a ta question!

cs_bibi_angel · Answer

Merci, je vais aller tester !

chrisccc · Answer

j ai oublie de preciser que tu dois mettre

Dim nb_probleme as integer

dis moi si c est ok

cs_bibi_angel · Answer

Et bien il me laisse des doublons. je dois mettre "A1" par exemple dans  ("case juste au dessus ta premiere") ? dsl si ma question est basique.....je d&#233;bute dans le VBA

cs_bibi_angel · Answer

En fait il m'en laisse 3 a chaque fois

VBA

6 réponses

Discussions similaires