Bonjour à tous

Sub aller_km()

Dim nx As Double

Dim lnx As Long

nx = _

Application.Max(Range("f:f"))

lnx = _

Application.Match(Application.Max(Range("f:f")), Range("f:f"), 0)

MsgBox "Valeur maximale : " & nx & _

vbCrLf & "Numéro de ligne du maximum : F " & lnx

End Sub

Cette macro me permet grâce à un msgbox d'afficher a valeur max (nx) d'une colonne (col F) ainsi que la cellule où se trouve cette cellule (lnx). Serait-il possible de rajouter une fonction après l'affichage du msgbox, une fonction qui me permette automatiquement de me positionner sur cette cellule ?

Merci d'avance

Bonjour : Range("F" & nx).Select

bonsoir Corinthien et merci de ta réponse ! mais cette fonction me met sur la cellule f2367 !!

Re-bonsoir, ta réponse m'a bien aidé mais il fallait écrire

Range("F" & lnx).Select

dossier soldé !