Discussion :

[binouzzz19]

Bonjour,

J'ai un gros souci avec mon programme VBA Excel 2007.
En effet, je teste si une cellule est non vide et non nulle alors je teste l'existence du contenu de la cellule. Cela fonctionne. Seulement si je supprime le contenu de la cellule et que je reteste, il considère que ma cellule est encore remplie, et donc le test d'existence dans la base renvoie une erreur (car "" n'existe pas dans la base).

Voici mon code :

Code :

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

1
2
3
4
 
If Not IsNull(Cells(Ligne, Colonne)) And Not IsEmpty(Cells(Ligne, Colonne)) Then
    TesteExistence "SELECT COUNT(*) FROM BPARTNER WHERE BPRNUM_0 = '" & Cells(Ligne, Colonne).Value & "'", Ligne, Colonne
End If

Ligne

et

Colonne

sont correctes, les valeurs de

Cells(Ligne, Colonne)

sont également correctes (remplie lors du premier test, puis "" lors du second).

Bref, je ne comprends pas le comportement d'Excel là dessus.
Aidezzzzz-moi

[mayekeul]

bonjour,

une petite question, comment supprime tu le contenu de la cellule??

sinon tu peux toujours faire

Code :

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

1
2
3
 
If Not IsNull(Cells(Ligne, Colonne)) And Not IsEmpty(Cells(Ligne, Colonne))  and not cells(ligne,colonne)=vbnullstring Then
...

[binouzzz19]

Merci de ta réponse MayeKeul,

Je supprime le contenu de la cellule manuellement en fait, via la touche "Suppr".
J'ai déjà fait le test avec le vbNullString, et cela ne change rien, il voit que :

Not IsNull(Cells(Ligne, Colonne)) => Vrai
Not IsEmpty(Cells(Ligne, Colonne)) => Vrai
Not Cells(Ligne, Colonne) = VbNullString => Vrai

Alors qu'ils sont censés être tous faux (c'est vrai parce qu'il y a le Not devant bien sûr )

Bref, je ne saisi pas ce que fait Excel là

[mayekeul]

tout d'abord, une rectification le code devrais etre

Code :

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

If Not IsNull(Cells(ligne, colonne)) Or Not IsEmpty(Cells(ligne, colonne)) Or Not Cells(ligne, colonne) = vbNullString Then

[binouzzz19]

Tu as raison,

Cependant :

Code :

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

1
2
3
If Not IsNull(Cells(Ligne, Colonne)) Or Not IsEmpty(Cells(Ligne, Colonne)) Or Cells(Ligne, Colonne) <> vbNullString Then
      TesteExistence "SELECT COUNT(*) FROM BPARTNER WHERE BPRNUM_0 = '" & Cells(Ligne, Colonne).Value & "'", Ligne, Colonne
End If

ne change rien à mon problème.

Mon code me semble correct ... mais Excel réagit comme si une valeur était saisie, or le contenu est vide ...

[mayekeul]

question bete!
est-tu certain de tester la bonne cellule sur la bonne feuille??

[binouzzz19]

Oui, j'en suis sûr.

D'ailleurs chose bizarre, cela fonctionne maintenant alors que je n'ai rien changé ... je comprends encore moins !

Merci quand même

[mercatog]

Code :

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

if len(cells(x,y).text)>0 then

[binouzzz19]

Oui c'est une idée mercatog, je ne vais pas modifier mon code pour le moment puisque cela fonctionne, mais au besoin, j'appliquerais ton astuce.

Merci en tout cas à vous tous.

Je mets le tag Résolu, afin que vous ayez vos primes !!

Cordialement.