Discussion :

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[SilkyRoad]

bonsoir


en complément :

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


bonne soirée
michel

[ucfoutu]

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 =)

[planete.gonz]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

Mmm... bizarre...

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

[planete.gonz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If Right(Machin,1) <> 0

ou même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[wilfried_42]

Bonjour

avant ton test, mets cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[planete.gonz]

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é.

[fring]

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
.

[ucfoutu]

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

[fring]

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

[planete.gonz]

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

[oOVaveOo]

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" ?

[planete.gonz]

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.

[oOVaveOo]

Tu as essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[planete.gonz]

Impeccable !

Merci beaucoup !

Capricieux quand même cet Excel ...

Cdlt

Adrien

[AlainTech]

Problème résolu?

Bouton !

Merci