|
|
|
|
|
Bonjour,
Démonstration:
Sub Test_Max_Sum()
Dim Cellules As Range
Dim LaCel As Range
Set Cellules = Range("B9:L9")
Set Cellules = ActiveSheet.Range("B9:L9")
Range("B11").Value = Application.WorksheetFunction.Sum(Cellules)
Range("B12").Value = Application.WorksheetFunction.Max(Cellules)
For Each LaCel In Cellules
If (LaCel.Value = Range("B12").Value) Then
Range("B13").Value = LaCel.Column
'Range("B13").Value = LaCel.Address
End If
Next
Range("A1").Select
End Sub
Lupin
|
|
re:
ce fut un plaisir, et si vous avez d'autres difficultés, n'hésité par à revenir dans ce fil de discussion. Le reconnaissance m'inspire toujours. Lupin |
Résultats pour [excel VBA] transcrire la fonction max
Résultats pour [excel VBA] transcrire la fonction max