Trouver le Maximum de cellules nommees sur VBA

Bonjour, j'ecris une fonction qui requiere de prendre la valeur maximale de plusieurs cellules nommees. mais ma fonction Max est source d'erreur, quel qu'un peut il m'aider?

Code:

---

1 2	Dim Max_ID As String Max_ID = Application.Max(Range("Cas_ID1"), Range("Cas_ID2"), Range("Cas_ID3"), Range("Cas_ID4"), Range("OH-ID"))

---

Bonjour,
Le nom attribué à la dernière cellule n'est-il pas "OH_ID" au lieu de "OH-ID" ?
Cordialement
Claude

Bien vue Papouclo merci, mais ce nest pas la ou est l'erreur, en fesant mon calcul VBa me renvoi a une erreur de compilation disant: " Instruction incorecte a l'exterieur d'une procedure" et surligne "Cas_ID1"

Bonjour,
as-tu essayé :

Code:

---

Max_ID = Application.Max(Union(Range("Cas_ID1"), Range("Cas_ID2"), Range("Cas_ID3"), Range("Cas_ID4"), Range("OH-ID")))

---

sinon il faudrait connaître ce que représente tes cellules nommées et leurs valeurs car tu as déclaré "Max_ID" en String

Merci casefayere Union n'as pas marche. tous les cellules nommees ont comme valeur des nombres: 27;28;1;1 et 16
dans ma fenetre d'execution Cas_ID1 donne bien 27

Code:

---

1 2	?Range("Cas_ID1").Value 27

---

Bonjour,

juste pour signaler que Max ne travaille qu'avec des valeurs numériques

mais pas avec des nombres saisis dans des cellules au format texte …


EDIT : le code du premier post fonctionne sans souci sous Excel 2003 …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Marc, peut etre avez vous le bon raisonnement, pouvez developpez svp je ne suis pas sur de comprendre.

En fait votre code de départ fonctionne sans souci sur Excel 2003, même avec des cellules au format texte ! …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …


__________________________________________________________________________________________
Ikéa est le meilleur prénom pour une femme : suédoise, bon marché, à emmener aussitôt chez soi et facile à monter !

Volia qui est troublant. Que dois-je faire, j'utilise Excel 2007.

Je vais tester ce soir ou demain sur Excel 2007 sauf si d'ici là la solution est trouvée …

Précision sur 2003 : fonctionne même avec des formats de cellules numérique & texte !

Je ne vais pas avoir accès en fait à une version 2007 avant la fin de la semaine …

En attendant, voici une p'tite fonction :

Code:

---

1 2 3 4 5

Function MaxNoms(ParamArray AD()) ReDim AR(UBound(AD)) For R% = 0 To UBound(AD): AR(R) = Range(AD(R)).Value: Next MaxNoms = Application.Max(AR) End Function

---

Appel de la fonction : Max_ID = MaxNoms("Cas_ID1", "Cas_ID2", "Cas_ID3", "Cas_ID4", "OH_ID") …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …


__________________________________________________________________________________________
Jeanne d'Arc s'est éteinte le 30 mai 1431, environ deux heures après sa mort …

Testé sur 2007 : Ceci fonctionne :

Code:

---

1 2	Dim Max_ID As String Max_ID = Application.Max(Range("Cas_ID1"), Range("Cas_ID2"), Range("Cas_ID3"), Range("Cas_ID4"), Range("OH_ID"))

---

Merci Docmarti !

Donc ce n'est ni le code ni la version qui est en cause …

fares paris, dans l'environnement VBA, quelles références sont cochées ? (via le menu Outils)

Et depuis la feuille de calcul, idem pour les macros complémentaires …

Où se trouve le code ? Car maintenant le message d'erreur dans le troisième post me laisse un énorme doute …

Bonne question. Où se trouve le code ?

Le code suivant produit le message d'erreur "Instruction incorrecte à l'extérieur d'une procédure"

Code:

---

1 2 3 4 5 6

Dim Max_ID As String Max_ID = Application.Max(Range("Cas_ID1"), Range("Cas_ID2"), Range("Cas_ID3"), Range("Cas_ID4"), Range("OH-ID"))   Sub tt() Stop End Sub

---