Execution d'une macro suivant condition

bonjour

pourriez vous m'expliquez comment je peux repeter une macro

tant que la valeur (x) d'une cellule n'est pas trouvée

si dans une feuil ( 1 ) en A1 on a une variable constant avec une valeur de 6 par exemple

l'orsque j'execute la macro - Celle ci trie aleatoirement une liste - a l'execution de la macro la valeur d'une variable en D11 change

je souhaiterai que ma macro s'éxécute automatiquement tant que D11 n'égale pas A1

Ca donnerai cela

with sheets ("feuil1")

if d11 = 0 then ??????

Range("B1:D10").Select

Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("a1").Select

end if ??????

pouvez vous m'aider j'ai essaye mais ca marche pas

merci

amicalement

Salut le forum

Alric.Raymond comme nouveau membres.

Ta question n'est pas très claire, tu ne peux trier aléatoirement avec ton code

Range("B1:D10").Select 
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

A te relire

Mytå

Bonsoir

essaie ceci

Do
    With Sheets("recherchedoublon")
    Range("B2:D10").Select
    Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
    End With
   Loop While Range("e11").Value <> 0
End Sub

Cordialement

ps remet ton fichier sur ce fil pour que tout le monde comprenne

merci pour votre accueil et vos reponses aussi rapide

je remets le petit fichier sur le fil

j'ai testé ta réponse

mais ca me met '' erreur de compil boucle sans do "

amicalement

raymond

https://www.excel-pratique.com/~files/doc/TRCD5doublon_1.xls

Re

tu as du oublier de mettre le petit Do au début

Cordialement

oui

j avais pas vu le do

ca marche c'est super

amicalement

raymond