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

Twixman

XLDnaute Nouveau
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.
 

Fichiers joints

phlaurent55

XLDnaute Barbatruc
Bonjour Twixman,

fais un essai avec ce code modifié

Code:
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

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

Twixman

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

Discussions similaires


Haut Bas