XL 2010 Relancer une macro jusqu'au bon résultat dans une cellule.

[Twixman]

Bonjour à tous,

J' aimerais relancer une macro automatiquement suivant le résultat d' une cellule.

Exemple en pièce jointe: je dois trier une liste suivant un nombre aléatoire (colonne C) mais il faut que la lettre "A" soit au dessus de la liste (colonne D).

Pour ne pas cliquer tout le temps sur le bouton 1, j'aimerai relancer la macro temps que la cellule B2 n'est pas égale à 0.

 

[phlaurent55]

Bonjour Twixman,

fais un essai avec ce code modifié

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+T
While [D6] <> "A"
    Range("C6:D17").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C6:C17") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("C6:D17")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Wend

End Sub

à+
Philippe

 

[Twixman]

Merci pour la réponse rapide.

Mais je dois le copier dans la feuille, dans un module ou dans this workbook ?

Et affecter la macro au bouton?

Car j'ai un message d' erreur.

 

[phlaurent55]

Re,

Il suffit de remplacer l'ancien code par le nouveau (au même endroit)

Ou alors tu fait toi-même la modification.
J'ai simplement ajouté la ligne WHILE au début de la procédure et la ligne WEND à la fin

À+
Philippe

 

[Twixman]

Re,
Je me suis mal exprimé, le déclencheur est la cellule B2 et non la lettre A en D6.

 

[Twixman]

Re Re,

J’ai trouvé la modification à faire dans le code.

Un super grand merci a toi.

Et à bientôt, car j'ai encore des questions.

 

[Twixman]

Phlaurent55,
Si tu es toujours la, je vais un peut abuser de ton temps si tu le permets.
Tu n' aurais pas un code qui compte les cellules de couleur.
J' aimerais compter les doublons.

Merci.