Quels sont les différents états qu'une cellule excel peut avoir ?

Bonjour,

Je suis devant un problème je fais des test par code VBA afin de ne pas exécuter l'action si la cellule est soit nulle soit = 0 soit vide j'ai le bloc IF suivant :

Code:

---

If (Sheets("final").Range("J" & i) <> "") Or (Sheets("final").Range("J" & i) <> 0) Or (IsNull(Sheets("final").Range("J" & i))) Then

---

i est bon
Si je fait :

Code:

---

Msgbox Sheets("final").Range("J" & i)

---

Il m'affiche un messagebox vide ...

Et il rentre toujours dans le if ... alors il y a peut être un état de la cellule que je n'ai pas pris en compte si oui lequel ?
Les cellules sont copiés à partir d'une extraction CSV.

Merci de votre aide ..

Adrien GENDRE

Où as-tu vu que le contenu d'une cellule pouvait être Null?
Une cellule peut contenir une chaîne de longueur nulle (""), mais en aucun cas Null: attention il ne faut pas tout mélanger.

bonsoir


en complément :

http://www.developpez.net/forums/d63...namique-nulle/


bonne soirée
michel

Citation:

---

Envoyé par decondelite

Où as-tu vu que le contenu d'une cellule pouvait être Null?
Une cellule peut contenir une chaîne de longueur nulle (""), mais en aucun cas Null: attention il ne faut pas tout mélanger.

---

L'expression IsNull(la_cellule_concernée.value) est recevable...==>> et donc également (par défaut) : IsNull(la_cellule_concernée) ;)

L'erreur est ailleurs dans l'expression (des <> au lieu de =)

J'ai essayé de trouver son état avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

If IsNull(Sheets("final").Range("J" & i)) Then MsgBox "elle est bien nulle" Else If Sheets("final").Range("J" & i) = "" Then MsgBox "elle est vide" Else MsgBox "elle n'est pas vide" If Sheets("final").Range("J" & i) = 0 Then MsgBox "elle est = 0" Else MsgBox "elle n'est pas égale = zéro" End If End If MsgBox "elle n'est pas nulle" End If

---

Et elle va jusqu'à "elle n'est pas égale = zéro" ...

De quoi cela peut provenir ... j'ai essayé de passer les cellules en nombre, texte, standard ... toujours la même chose.

Merci

Cdlt

Adrien

Mmm... bizarre...

Et si tu rajoutes .Value après Range? Si ça marche toujours pas, avec Cells(10,i) ça donne quoi?

merci pour l'aide que vous m'apportez

Même avec .Value ou Cells(10,i) il passe toujours le test

Je pense que le CSV d'origine est un peu "batard" n'est-il pas possible de dire les cellules qui ont un contenu tu les mets en nombre les autres tu les met "" histoire de pouvoir faire autant de test que je veux derrière.

Sachant que les cellules qui sont remplies se terminent forcément par zéro j'ai aussi essayé le test

Code:

---

If Right(Machin,1) <> 0

---

ou même

Code:

---

If Right(Machin,1) <> "0"

---

Il passe quand même ces deux tests, alors que quand je l'affiche dans un msgbox j'ai bien quelque chose de vide on dirait qu'il ne peut rien tirer de ces cellules et donc que n'importe quel peut passer ...

Bonjour

avant ton test, mets cette ligne

Code:

---

MsgBox Asc(Right(machin, 1))

---

cela te donnera le code ascii du dernier caractere, ca permetra de savoir ce qui se trouve à la fin de tes valeur

Code ASCII 32 c 'est un espace du coup je test sur cette valeur et cela fonctionne. Merci beaucoup pour votre aide cela m'a bien débloqué.

Citation:

---

Envoyé par ucfoutu

L'expression IsNull(la_cellule_concernée.value) est recevable

---

Bonjour tlm,

Oui mais non...peu importe ce que comporte la cellule ou qu'elle soit réellement vide, IsNull renverra toujours le résultat False.
IsNull s'utilise avec des variables, pas avec des cellules.

SilkyRoad a donné la réponse, pour tester si la cellule est réellement vide, c'est à dire qu'elle ne comporte ni chaîne de caractères ni formule, il faut utiliser IsEmpty
.

Bonjour fring,

Tu oublies peut-être quelques aspects, parmi lesquels les suivants :
- tu peux toujours attribuer dynamiquement une valeur Null à une cellule (en utilisant Value)
- une cellule peut avoir été alimentée par une source externe contenant un Null

Ce sont là deux cas de figure ...
Et un test avec IsNull s'impose alors, avec certains traitements.
Tu veux un exemple ? Microsoft, peut-être alors ...
http://support.microsoft.com/kb/294782/fr

Uc...il me semble que c'est un forum VBA EXcel ! Envoyer une usine à gaz avec un code HTML où tu as un IsNull noyé tout au fond de la cave ne me semble pas vraiment approprié.

Donne moi un seul petit bout de code, un petit bout de fichier (correspondant à Excel oeuf corse), comme tu veux où IsNull(Range("A1")) renvoie la valeur True, perso moi je ne vois pas

Cdlt

Sur une autre colonne le test avec ASC(Machin) <> 32 ne fonctionne pas il me met l'erreur 'Argument ou appel de procédure incorrect'.

Et la cellule n'est toujours pas vide et il me met cette erreur aussi quand je veux afficher le code ASCII dans un msgbox ...

Merci de votre aide

Cdlt

Adrien

Citation:

---

Envoyé par planete.gonz

Bonjour,
Je suis devant un problème je fais des test par code VBA afin de ne pas exécuter l'action si la cellule est soit nulle soit = 0 soit vide j'ai le bloc IF suivant :

---

Tu es sûr que tu n'as pas d'espace dans tes cellules "vides" ?

Justement dans certaines j'ai un espace donc je vois le code ASCII 32 mais dans d'autres, j'obtiens une erreur. Je ne peux pas regarder le code ASCII qu'elle contient.

Tu as essayé :

Code:

---

range("machin").value <> Chr(32)

---

Impeccable !

Merci beaucoup !

Capricieux quand même cet Excel ...

Cdlt

Adrien

Problème résolu?

Bouton :resolu:!

Merci