Chercher la plus grande valeur d'une colonne
d
Bonjour,
Je ne suis pas caler en macro, j'arrive à les enregistrer mais intervenir en VBA c'est une autre affaire, alors je vous demande de l'aide.
Je voudrais une macro qui me recherche la plus grande valeur d'une colonne sélectionnée, donc pas une colonne défini dans le code.
Je clique sur une colonne et j'applique la macro et cela sur n'importe quelle colonne.
merci
diiity
Bonjour Diiity, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim VM As Double 'déclare la variable VM (Valeur Max)
On Error GoTo fin 'gestion des erreurs (en cas d'erreur va à l'étiquette "fin")
VM = Application.WorksheetFunction.Max(Selection) 'définit la variable VM
Selection.Find(VM, , xlValues, xlWhole).Select 'sélectionne la cellule contenant VM (si il y a plusieurs occurrence, sélectionne la premiere occurrence)
MsgBox "Plus grande valeur de la colonne : " & VM 'message
fin: 'étiquette
End SubBonjour Diiti
Une piste en selectionnant une plage de cellules
Option Explicit
Sub ChercherPlusGrandeValeur()
Dim REF As Range
Dim M
Dim PlusGrandeValeur As Long
Set REF = Application.InputBox(prompt:="Sélectionner la plage de cellules sur la feuille", Type:=8)
M = REF.Address
PlusGrandeValeur = Application.WorksheetFunction.Max(Range(M & Range(M & "65530").End(xlUp).Row))
MsgBox PlusGrandeValeur
End Subd
Bonjour Diiity, bonjour le forum,
Essaie comme ça :
Sub Macro1() Dim VM As Double 'déclare la variable VM (Valeur Max) On Error GoTo fin 'gestion des erreurs (en cas d'erreur va à l'étiquette "fin") VM = Application.WorksheetFunction.Max(Selection) 'définit la variable VM Selection.Find(VM, , xlValues, xlWhole).Select 'sélectionne la cellule contenant VM (si il y a plusieurs occurrence, sélectionne la premiere occurrence) MsgBox "Plus grande valeur de la colonne : " & VM 'message fin: 'étiquette End Sub
Bonjour les hommes,
Ah oui, ça marche bien et c'est ce que je voulais, de plus je peux la mettre dans un classeur personnel.
Merci ThauThème, merci à toi aussi d'avoir répondu et1000lio
diiity