fonction select case

**jazzymodo** · 07/12/2010, 15h42

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 :

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

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..

**mercatog** · 07/12/2010, 15h52

Code :

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

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

**Gillus** · 07/12/2010, 15h55

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...

**jazzymodo** · 07/12/2010, 16h04

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!!