Bonjour
Je ne pratique plus le VBA Excel depuis longtemps mais je vois au moins deux
erreurs dans ton code :
Après l'instruction suivante...
Set cell = Worksheets("Feuille1").Cells(1, 1)
...la variable cell (définie comme range) contient l'objet représentant la
cellule A1 de la feuille Feuille1
Si tu "passais" cette variable à ta procédure cette dernière renverrait 9
(objet)
Dans ta procédure Main tu ne passes ni cell ni cell.value mais :
typeCell = Testvartype(typeCell)
La variable typeCell mise entre parenthèses n'est pas initialisée et donc...
J'ajoute qu'elle n'est pas nécessaire puisque tu peux passer directement
cell.value
Ci-dessous un exemple de correction.
sub main()
dim cell as Range
dim typeCell as integer
Set cell = Worksheets("Feuille1").Cells(1, 1)
'typeCell = Testvartype(typeCell)
typeCell = Testvartype(Cell.value)
msgbox(cell & " : " & typeCell)
end sub
Cordialement
Pierre-Yves
--
View this message in context:
http://nabble.documentfoundation.org/macro-Vartype-sur-une-cellule-dans-une-fonction-tp3738878p3740901.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