Cellule vide mais pas vide!

[babar01]

Bonjour

Je m'explique:
J'exporte un query vers une page excell.
Puis je traite ce tableau en VB.
Par exemple si la cellule "Rue" est vide alors j'effectue un traitement.
Hors j'ai beau utiliser la méthode rue = "" , isnull(rue) ou encore wordexists, et bien la cellule n'est pas considérée comme vide!
Elle n'est considérée comme vide que si j'y introduit un texte (exemple une lettre ) et que je l'efface.

Quelqu'un peut-il m'aider?

merci d'avance

 

[ZZR09]

Re : Cellule vide mais pas vide!

Bonjour Babar1,

un petit fichier pour l'exemple? ce sera plus simple pour cernr le problème.

A+

 

[babar01]

Re : Cellule vide mais pas vide!

Salut ZZR09

C'est simple: j'exporte en Excel le résultat d'un query d'une base de donnée INFORMIX

Pour certaines cellules de mon tableau, il n'y a pas de données car par exemple, un encodeur a oublié d'introduire une rue.
Avec du code VB, je sort un document WORD avec le nom de l'encodeur et les données non remplies.
Donc j'ai essayé:

Dim rue as string
Rue = Data.Cells(i, 4).Value


WordExists = (InStrB(1, Rue, ""))
If WordExists = 0 Then
' du code
End If

ou:

If Rue = "" Then
' du code
End If

ou encore:

If IsNull(Rue) then
' du code
End If

Le code n'a ici pas d'importance: on peut y placer: msgbox "ça marche!"
Et bien cela ne marche pas!

Quand je crée moi-même un exemple avec des zones vides alors cela fonctionne.
Le query informix sort dans un fichier .txt que je convertis en excel.

 

[abcd]

Re : Cellule vide mais pas vide!

Bonjour,

Essaie aussi :
=NBCAR("Rue")=0

Si tu obtiens FAUX, essaie : =CODE("rue") qui te renverra le code du caractère invisible, qu'il te suffira de supprimer.

abcd

 

[babar01]

Re : Cellule vide mais pas vide!

Salut abcd

Quand j'utilise la fonction nbcar j'ai un message d'erreur mais pour faire rapide j'ai essayé cela (grâce à ton idée) et c'est ok
Merci pour ton aide 😉

if Len(Rue) = 0 Then
MsgBox "rue vide"
Else
MsgBox "rue pas vide"
End If