OLE Excel

Essaye ça :

SI (xl>>Range("A1")>>Value)<>Null ALORS

FIN


"Alex Jaime" <alex.jaime@infonie.be> a écrit dans le message de
news:3f128b67$0$278$ba620e4c@reader1.news.skynet.be...

Bonjour


xl>>Range("A1")>>Value

Si la cellule est numérique le retour est un réel
Si la cellule est une chaîne le retour est une chaîne
Si la cellule est vide Windev renvoi une erreur la fonction n'a pas

retourné

de valeur

Quelqu'un sait il comment palier à ce problème

Merci

Alex

si sansespace(xl>>Range("A1")>>formulaR1C1)<>"" alors
//traitement
sinon
info("cellule vide")
fin
--
Ce message a été posté via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr

http://forums.club-internet.fr/

"Alex Jaime" <alex.jaime@infonie.be> wrote in message news:<3f128b67$0$278$ba620e4c@reader1.news.skynet.be>...

Bonjour


xl>>Range("A1")>>Value

Si la cellule est numérique le retour est un réel
Si la cellule est une chaîne le retour est une chaîne
Si la cellule est vide Windev renvoi une erreur la fonction n'a pas retourné
de valeur

Quelqu'un sait il comment palier à ce problème

Merci

Alex

Bonjour,

C'est simple, il suffit de tester AVANT si la cellule est vide ou en
erreur :

xl>>Application>>WorkSheetFunction>>CountBlank(Range("A1")) // pour
tester si elle est vide.
xl>>Application>>WorkSheetFunction>>IsError(Range("A1"))=OLETrue //
pour tester si elle est en erreur.

Le mieux etant bien-sur de créer trois fonctions :
CelluleEstEnErreur()
CelluleEstVide()

procedure CelluleValeur()

si Celluleestenerreur() ou CelluleEstVide() alors
renvoyer ""
sinon
renvoyer xl>>Range("A1")>>Value
fin

Et le encore mieux etant d'inclure tout ca dans une classe.