Trouver maximum avec Plage.Find

[JGW]

Bonjour à tous, j'ai encore une question relative à la fonction Plage.Find.

J'essaie de trouver les 3 maximums dans une sélection avec Plage.Find mais cela bloque au niveau de Set Plage=.selection. Mais je suis conscient que le code parait bizarre à cet endroit...

PS: Au préalable, j'ai sélectionné une partie d'une colonne (selection.offset(0,5)).select, mais cela n'a pas l'air de fonctionner.

Voici le code:

 Selection.Offset(0, 5).Select
                With Selection
                    Set Plage = .Selection
                End With
                With Application.WorksheetFunction
                    Plage.Find(.Large(Plage, 1), , xlValues).Font.ColorIndex = 22
                    Plage.Find(.Large(Plage, 2), , xlValues).Font.ColorIndex = 44
                    Plage.Find(.Large(Plage, 3), , xlValues).Font.ColorIndex = 7
                End With

Merci à vous pour votre aide 🙂🙂🙂

 

[zyhack]

Re : Trouver maximum avec Plage.Find

bonjour

essaye comme ceci, en enlevant 'with selection'

Selection.Offset(0, 5).Select
                Set Plage = Selection
                    With Application.WorksheetFunction
                    Plage.Find(.Large(Plage, 1), , xlValues).Font.ColorIndex = 22
                    Plage.Find(.Large(Plage, 2), , xlValues).Font.ColorIndex = 44
                    Plage.Find(.Large(Plage, 3), , xlValues).Font.ColorIndex = 7
                End With

bonne journée