Discussion :

[fares paris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"))

[papouclo]

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

[fares paris]

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"

[casefayere]

Bonjour,
as-tu essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fares paris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[fares paris]

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

[Marc-L]

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 pour chaque message ayant aidé puis sur 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 !

[fares paris]

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

[Marc-L]

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 !

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …


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

[Docmarti]

Testé sur 2007 : Ceci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"))

[Marc-L]

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 …

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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