VBA: Maximum d'un tableau
Fermé
tut
-
27 mai 2010 à 15:04
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 avril 2013 à 11:40
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 avril 2013 à 11:40
A voir également:
- Vba max
- I14 pro max - Accueil - Guide téléphones
- Max ou netflix - Accueil - Streaming
- Max maillot avis - Forum Consommation & Internet
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Max tv gratuit - Télécharger - Télévision
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 10/04/2013 à 12:05
Modifié par michel_m le 10/04/2013 à 12:05
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 Sub
Michel
koji56
Messages postés
30
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
5 juillet 2010
6
27 mai 2010 à 15:50
27 mai 2010 à 15:50
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 Sub
Ca devrait fonctionner avec quelquechose de ce genre (en supposant que les valeurs sont dans les cellules (A1 à A7)).