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.
 

Pièces jointes

  • test relance.xlsm
    19.4 KB · Affichages: 28

phlaurent55

Nous a quittés en 2020
Repose en paix
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
 

phlaurent55

Nous a quittés en 2020
Repose en paix
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
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs