recuperation d'une valeur d'une function dans une sub

salut à tous
je veux codifier les mois de l'année pour créer une reférence
j'ai une sub principale  puis j'appel cette fonction qui fonctionne très bien mais mon problème c'est que je n'arrive pas a recuperer  la lettre du code dans ma sub principale

Function codification()
Dim A , B , C.....
mois = (Format$(Date, "mm"))
Select Case mois
'Debug.Print (Format$(Date, "mm"))
Case 1
code = A 'janvier
Case 2
code = B 'fevrier
Case 3
code = C 'mars
Case 4
code = D 'avril
Case 5
code = E 'mai
Case 6
code = F  'juin
Debug.Print code
Case 7
code = G 'juillet
Case 8
code = H 'aout
Case 9
code = J 'septembre
Case 10
code = K 'octobre
Case 11
code = L 'novembre
Case 12
code = M 'decembre
End Select
end function

sub principale()
textbox1.text = code
end sub
 
voila j'espère avoir été claire merci

Salut,

desolé mais sa ne fonctionne toujour pas je n'arrive pas a recuperer la lettre
sa fait la meme chose qu' avant

tu metterai quoi comme dimension pour A B C .....
et pour code ou codification

salut,
si A B C.... sont dans la fonction, tous tes résultats seront de 0

ou alors je n'ai pas compris ce que tu voulais faire...

Q : Code : Comment conserver le contenu d'une variable entre différents formulaires

---

Prenez un instant pour répondre à ce sondage svp

oui ils sont = à 0 mais ça depend de la dimension que je mets

Pour que ta fonction prenne en compte tes variables A,B,C.., il faut que tu les déclarent ailleurs que dans ta fonction et les rendrent public.
Si elles sont déclarées dans la fonction, comme c'est le cas ici, elle deviennent local et, dans ce cas là elle seront toujours vides car à aucun moment tu ne les a affectées.

en faite je donner une lettre en fonction du mois du pc
exemple pour janvier = A
Puis apres incorporer la Lettre dans une textbox pour avoir une reférence
  

j'ai laissé tomber la fonction et j'ai tout mis dans ma sub principale mais sa ne fonctionne toujour pas
qu'est que vous metteriez pour les dim de A B C
et de code

mais si tu veux mettre une lettre, mets une lettre ! pas uen variable lettre vide !!

dim hello
msgbox hello
c'est logique?


dim lettre as string
lettre = "hello"
msgbox lettre

++

---

Prenez un instant pour répondre à ce sondage svp