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 …