XL 2010 Supprimer #Valeur! Function VBA

[Scorpio]

Bonjour à tous,

Un petit soucis dont je n'arrive pas à régler, en fait, j'ai 2 function dans un module, et en colonne A je saisi le 1 ou 2 ou 3, en colonne B et C s'affiche les données.
Mais lorsque je supprime le 1 ou 2 ou 3 en colonne A, dans les colonne B et C s'affiche #Valeur!
Est-ce qu'un membre pourrais s'il vous plaît m'informer du pourquoi.
Merci et à plus

 

[phlaurent55]

Bonjour Scorpio

voir fichier joint

à+
Philippe

 

[phlaurent55]

Re,

ou alors en modifiant les codes comme ceci:

Function societe(R As Range)
societe = IIf(R <> "", Application.Choose(R, "Libre", "Papa", "Maman", "DrNicolas"), "")
End Function

Function Ref(R As Range)
' En rapport avec Function societe, si dessus
Ref = IIf(R <> "", Application.Choose(R, "---", "100", "499", "Z 4042"), "")
End Function

à+
Philippe

 

[Scorpio]

Salut phlaurens55,
Merci beaucoup pour la rapidité de ta réponse.
Super, j'ai fait la correction, et c'est exactement ça.
Merci à toi, et bonne journée