Salut
Voici ma Macro
Sub MaxVal()
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F4").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
End Sub
En fait je voudrais avoir la valeur maximale affichee sur la 6eme colonne.
Ce qui marche mais , les valeurs s'affichent toutes au meme momment or
j'aimerai appuyer une touche sur chaque ligne avant d'avoir le resultat.
Salut Voici ma Macro Sub MaxVal() Range("F1").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F2").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F3").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F4").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F5").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" End Sub En fait je voudrais avoir la valeur maximale affichee sur la 6eme colonne. Ce qui marche mais , les valeurs s'affichent toutes au meme momment or j'aimerai appuyer une touche sur chaque ligne avant d'avoir le resultat.
Bonjour
A mettre dans le module de feuille. ne se déclecneh que si la cellule
sélectionnée est en colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Salut
Voici ma Macro
Sub MaxVal()
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F4").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])"
End Sub
En fait je voudrais avoir la valeur maximale affichee sur la 6eme colonne.
Ce qui marche mais , les valeurs s'affichent toutes au meme momment or
j'aimerai appuyer une touche sur chaque ligne avant d'avoir le resultat.
Salut Voici ma Macro Sub MaxVal() Range("F1").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F2").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F3").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F4").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" Range("F5").Select ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:RC[-1])" End Sub En fait je voudrais avoir la valeur maximale affichee sur la 6eme colonne. Ce qui marche mais , les valeurs s'affichent toutes au meme momment or j'aimerai appuyer une touche sur chaque ligne avant d'avoir le resultat.
