VBA: Maximum d'un tableau
tut -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 10 avril 2013 à 11:40
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 10 avril 2013 à 11:40
A voir également:
- Vba max
- I14 pro max - Accueil - Guide téléphones
- Driver max - Télécharger - Pilotes & Matériel
- Max ou netflix - Accueil - Streaming
- Forum Programmation
- Forum Téléphones & tablettes Android
3 réponses
Bonjour
peut-^tre + simple avec les formules Excel et l'objet Application
pour trouver le maximum
et pour qui est au maximum
et encore + court
et encore Une si la plage de recherche est dynamique(ajout d'une ligne par exemple)
Michel
peut-^tre + simple avec les formules Excel et l'objet Application
pour trouver le maximum
Sub trouver_maximum()
Msgbox Application.Max(Range("B1:B7"))
End Sub
et pour qui est au maximum
Sub quiestaumaxi()
With Application
MsgBox .Index(Range("A1:A7"), .Match(.Max(Range("B1:B7")), Range("B1:B7"), 0))
End With
End Sub et encore + court
Sub quiestaumaxi2()
MsgBox [Index(A1:A7, Match(Max(B1:B7), B1:B7, 0))]
End Sub
et encore Une si la plage de recherche est dynamique(ajout d'une ligne par exemple)
Sub quiestaumaxi()
Dim fin As Byte, col_A As String, col_B As String
fin = Columns("A").Find("*", , , , , xlPrevious).Row
col_A = Range("A1:A" & fin).Address
col_B = Range("B1:B" & fin).Address
MsgBox Evaluate("Index(" & col_A & ", Match(Max(" & col_B & ")," & col_B & ", 0))")
End SubMichel
Private Sub Maximum_Click()
Dim i As Integer
Dim Max
Max = Cells(1,1).value
For i = 1 To 7
If Cells(i,1).Value > Max then
Max = Cells(i,1).Value
End If
Next i
MsgBox ("Le maximum est", Max)
End SubCa devrait fonctionner avec quelquechose de ce genre (en supposant que les valeurs sont dans les cellules (A1 à A7)).