Discussion :

[schwarzy2]

Bonjour à tous,

Je travaille sur une feuille Excel à partir de laquelle j'effectue un import de données, je veux stopper cet import lorsque ma cellule est vide.
Pour cela j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With excelapp.Worksheets(1)
     Id_curr = 17
     While Not finito
          Tabella.AddNew()
          Tabella.Fields(0).Value = .Range("A" & Id_curr)
          Tabella.Fields(1).Value = .Range("B" & Id_curr)
          Tabella.Fields(2).Value = .Range("C" & Id_curr)
          Tabella.Update()
          Id_curr = Id_curr + 1
          If .Range("C" & Id_curr).Value = Nothing Then finito = True
      End While
 End With

Mais du coup mon import s'arrête aussi lorsque ma cellule est égale à 0!
Ainsi lorsque ma cellule C21 contient 0,00, mon import s'arrête...
L'un de vous saurait-il comment faire pour différencier 0 de null?
merci d'avance

[grrrkewel]

hello schwarzy2, salut les autres gens!

As tu essayé comme ça :

Code :

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

1
2
  If .Range("C" & Id_curr).Value = "" Then finito = True

?

[Skalp]

Effectivement, bizarrement : .Range("C" & Id_curr).Value = Nothing est vrai lorsque la cellule contient 0 ! Va comprendre...

Pour éviter ça, tu peux faire :

Code :

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

1
2
3
.Range("C" & Id_curr).Value Is Nothing 
' OU
.Range("C" & Id_curr).Text = Nothing

EDIT : .Range("C" & Id_curr).Value = "" lève une exception si le contenu est numérique.

[grrrkewel]

EDIT : .Range("C" & Id_curr).Value = "" lève une exception si le contenu est numérique.

exact, erreur de ma part, au temps pour moi mon capitaine

[schwarzy2]

et bien merci pour vos réponses, en ce qui concerne mon problème, je l'ai résolu autrement: j'ai spécifié mon import autrement en spécifiant l'arrêt sur une date...l'arrêt sur une case vide ne me paraissait pas assez fiable.
merci pour votre aide!