fonction select case

Version imprimable

bonjour à tous,
je débute en VBA et je me trouve confronté à un problème:
je voudrais juste utiliser la fonction select case dans une fonction( le code étant long je vous ai mis un exemple):
Code:

1 2 3 4 5 6 7 8 9 10 Function Combinaison(numcombi) Select Case numcombi Case numcombi = 1 Combinaison = "kia - tse" Case numcombi = 2 Combinaison = "yi-mao" Case Else Combinaison = "tcheou-hai" End Select End Function
à l'application la cellule m'annonce :#NOM?
je ne trouve pas mon erreur.....:(
merci d'avances pour vos réponses et pardonnez mon inexpérience dans ce domaine..

Code:

1
2
3
4
5
6
7
Function Combinaison(ByVal numcombi As Integer)
Select Case numcombi
     Case 1: Combinaison = "kia - tse"
     Case 2: Combinaison = "yi-mao"
     Case Else: Combinaison = "tcheou-hai"
End Select
End Function

07/12/2010, 15h55
Gillus

Bonjour,

Es-tu bien certain que la variable "numcombi" est bien passée?
Utilises les espions pour voir si ta variable contient bien une valeur...
07/12/2010, 16h04
jazzymodo

bonjour et merci pour vos réponses rapides
j'ai essayé de déclarer la variable numcombi en integer mais pas de résultat
en fait je me demande si je n'ai pas un problème avec mon appel de fonction:dans ma cellule je tape "=Combinaison(B1)" et elle me retourne "#nom?"
Gillus l'espion me note "hors contexte"
merci encore pour le temps que vous me consacrez!!
07/12/2010, 16h07
mercatog
Tu as mis ta fonction dans un module standard?
Sinon, pour la déclaration Integer était un exemple et aussi regarde ByVal ou ByRef
Aussi, au lieu de
Code:

1 2 Case numcombi = 1 '....
il fallait
Code:

1 2 Case 1 '....
07/12/2010, 16h20
jazzymodo

merci!!!
le problème est résolu:j'avais mal placé la fonction......:oops:
merci beaucoup pour vos réponses rapides!!!
bonne fin de journée