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

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Juin 2018

• #2

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

 

Vote positif 0 Vote négatif

Twixman

XLDnaute Nouveau

• 8 Juin 2018

• #3

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.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Juin 2018

• #4

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

 

Vote positif 0 Vote négatif

Twixman

XLDnaute Nouveau

• 8 Juin 2018

• #5

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

 

Vote positif 0 Vote négatif

Twixman

XLDnaute Nouveau

• 8 Juin 2018

• #6

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.

 

Vote positif 0 Vote négatif

Twixman

XLDnaute Nouveau

• 8 Juin 2018

• #7

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.

 

Vote positif 0 Vote négatif