Macro pour chercher le chiffre le plus grand ?

[fermo]

Bonsoir à tous et Forum,

Pouvez vous m'indiquer une manière de faire, pour trouver avec une macro le dernier chiffre et de surcroit le plus grand, dans une colonne par ex; de c3 à c5000 ,qui pourrait être le N° 1552 en colonne C ? et de copier ce chiffre(N°) dans une autre cellule ?



Merci pour votre réponse, salutations Femro

 

[wape]

Bonsoir fermo et le forum,

Essaye ceci :

Worksheets("Feuil1").Range("A1") = Application.WorksheetFunction.Max(Worksheets("Feuil1").Range("C3:C5000"))


@+
wape

 

[Zon]

Salut,

Voici une petite fonction à mettre dans un module standard:

Function PlusGrand(Plage As Range) As Long
PlusGrand = Application.Match(Application.Max(Plage), Plage, 0)
End Function

Sub Test()
MsgBox PlusGrand(Range("C3:C5000")) + 2
End Sub

Le 2 car on commence la plage à la ligne 3 donc décalage de 2.

A+++

 

[g]

Bonjour,
Et pourquoi pas tout simplement la fonction:
=GRANDE.VALEUR(C3:C5000;1)
Bonne journée.

 

[fermo]

Merci à tous et forum,

j'ai choisi la variante de G,car je n'ai pas pu faire fonctionner les autres.


Merci beaucoup cela fonctionne très bien @+ Fermo