Boucle qui tourne à l'infini

[meldja]

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.

  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]

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]

Re : Boucle qui tourne à l'infini

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

 

[Staple1600]

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

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

 

[meldja]

Re : Boucle qui tourne à l'infini

Merci pour ta réponse