chercher la plus grande valeur d'une colonne

[diiity]

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

 

[vgendron]

bonjour

Sub maximum()
Set zone = Application.InputBox("cliquez sur la colonne dans laquelle chercher le maximum", Type:=8)
MsgBox WorksheetFunction.Max(zone.EntireColumn)
End Sub

 

[job75]

Bonjour diiity, vgendron,

Code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Activate 'si un objet est sélectionné
If Selection.Rows.Count = Rows.Count Then MsgBox Application.Max(Selection()), , "Maximum de la sélection"
End Sub

A+