Boucle qui tourne à l'infini

meldja · 1 Mars 2014

Bonjour,
J'ai une boucle pour supprimer des doublons mais lorsqu'il n'y en a pas, elle tourne à l'infini. Par exemple lorsque la plage est vide.

HTML:

  Set rRange = Range([H12], [H12].End(xlDown))
    For Each rCell In rRange
    Do While rCell = rCell.Offset(2, 0)
      rCell.Offset(2, 0).Delete Shift:=xlUp
    Loop
    Next rCell

J'ai un bouton qui envoie des données en colonne H et qui supprime les doublons, mais des fois, il n'y a pas de donnée en colonne H et la procédure qui supprime les doublons tourne en boucle.
Merci d'avance pour vos réponses

Staple1600 · 1 Mars 2014

Re : Boucle qui tourne à l'infini

Bonjour à tous

meldja
Pourquoi ne pas utiliser (en VBA si besoin) le filtre élaboré en cochant Extraction sans doublons et Copier vers un emplacement ?

meldja · 1 Mars 2014

Re : Boucle qui tourne à l'infini

Je ne connais pas la procédure en vba.
Merci de ta réponse

Staple1600 · 1 Mars 2014

Re : Boucle qui tourne à l'infini

Re

Bah, il suffit de la faire manuellement tout en laissant tourner l’enregistreur de macros
et tu auras alors la procédure VBA 😉

Exemple ci dessous

Code:

Sub Macro1()
Range("A1:A21").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "H1"), Unique:=True
End Sub

meldja · 1 Mars 2014

Re : Boucle qui tourne à l'infini

Merci pour ta réponse

Boucle qui tourne à l'infini

meldja

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

meldja

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Pièces jointes

meldja

XLDnaute Impliqué

Discussions similaires

Boucle qui tourne à l'infini

meldja

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

meldja

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Pièces jointes

meldja

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency