[fr-users] Re: macro: Vartype sur une cellule dans une fonction

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 à users+help@fr.libreoffice.org 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