Bonjour
dbott wrote
>
> Oui désolé, j'ai écrit un exemple et je suis allé un peu trop vite.
Pas grave... :)
dbott wrote
>
> Cependant, je n'avais pas expliqué tout mon problème.
La question est en effet différente... Point n'est besoin de dupliquer, tu
devrais pouvoir utiliser quelque chose comme ceci :
Option VBASupport 1
Option Explicit
sub MainExemple()
dim MonParametreEntree as variant
dim test as variant
MonParametreEntree = "exemple" 'test pour simuler avec une
chaine
test = FonctionExemplePys(MonParametreEntree)
msgbox(MonParametreEntree & " : " & test)
MonParametreEntree = 1 'test pour simuler avec
un entier
test = FonctionExemplePys(MonParametreEntree)
msgbox(MonParametreEntree & " : " & test)
set MonParametreEntree = Worksheets("Feuille1").Cells(1, 1) 'test pour
simuler une formule dans excel
test = FonctionExemplePys(MonParametreEntree)
msgbox(MonParametreEntree & " : " & test)
end sub
function FonctionExemplePys(Entree1 as variant) as variant
dim PysObj as object
select case vartype(Entree1)
case 0, 1
FonctionExemplePys = "Empty/Null"
case 2, 3
FonctionExemplePys = "Entier"
case 4, 5, 6
FonctionExemplePys = "Décimal"
case 7
FonctionExemplePys = "Date"
case 8
FonctionExemplePys = "Texte"
case 9
PysObj = Entree1
FonctionExemplePys = FonctionExemplePys(PysObj.value)
case else
FonctionExemplePys = "Autre"
end select
end function
Nota:
1. L'utilisation du case me semble plus concise dans ces cas de figure...
2. La propriété value permet dans ce cas de figure de retourner le type
correct même dans le cas de chaîne, date...
Cordialement
Pierre-Yves
--
View this message in context:
http://nabble.documentfoundation.org/macro-Vartype-sur-une-cellule-dans-une-fonction-tp3738878p3743020.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
