Maximum d'une liste de valeurs en VBA

[Blafi]

Bonjour à tous,

J'ai un liste d'adhérents qui ont tous un numéro d'adhérents contenu dans la colonne A de ma Base.
Je cherche à savoir par VBA quel est le dernier numéro affecté à un adhérent et donc le "max" des numéros..

J'ai écrit cette petite sub :

Sub DernierNumCCSC()
Sheets("Base").Select
DerligneR = Sheets("Base").Range("C65536").End(xlUp).Row 'recherche sur le nom car tous les adhérents n'ont pas encore de N°

Set myRange = Worksheets("Base").Range("A3:A" & DerligneR)

DerNum = Application.WorksheetFunction.Max(myRange)
MsgBox DerNum, vbOKOnly

Range("A1").Value = DerNum
End Sub

Mais ça ne marche pas! La ligne WorksheetsFunction me renvoyant une erreur...

Pourriez vous me dire où est cette erreur car je ne trouve pas...

Merci et à ++

 

[apnart]

Re : Maximum d'une liste de valeurs en VBA

Et en utilisant simplement la fonction "MAX(A:A)" dans un endroit de ton tableau... ça serait pas plus simple ?

 

[Guest]

Re : Maximum d'une liste de valeurs en VBA

Bonjour,

Ou 'Application.Max(myRange)'

A+

 

[Blafi]

Re : Maximum d'une liste de valeurs en VBA

Re,

Merci pour vos réponses. Je n'osais pas utiliser le max(A:A) mais finalement ça peut-être une bonne solution.
J'essaye ausii la deuxième en VBA et vous tiens au courant.
A ++

 

[Blafi]

Re : Maximum d'une liste de valeurs en VBA

Re, encore moi,

Je viens d'essayer la méthode VBA en mettant Application.Max(myrange) et maintenant j'ai un message "dépassement de capacité".... Est-ce que ce ne serait pas parceque mes numéros sont trop grands pour être en integer ?

A ++

 

[Guest]

Re : Maximum d'une liste de valeurs en VBA

Re,

Application.Max est équivalent à la fonction de feuille de calcul MAX(). Avec les même limites. A toi de rester dans ces limites.
Voir l'aide excel sur MAX().

Sans exemple concret sous les yeux, difficile d'en dire plus.

A+