Condition ''IsEmpty'' sur l'ensemble d'un tableau (plutôt qu'individuel)

Question

Bonjour,

Je viens ici car j'ai besoin d'aide sur un problème avec le code que je fais actuellement. Je n'ai pas le fichier sous les yeux mais vu que j'arrête pas d'y penser...

J'ai un tableau Excel dont j'utilise les données pour remplir un formulaire Intranet.
Le tableau fait environ 150lignes et tout se passe bien quand chaque cellule a une valeur.
Le problème survient quand il y a des cellules vide. Dans ce cas, la macro va indiqué ''Undefined'' sur le formulaire intranet.

J'avais essayé de régler le problème avec le code suivant mais au final il faut que les case vide reste vraiment vide. (donc le code suivant ne fonctionne pas)

For Each Cell in CoL
If IsEmpty(Cell) Then
Cell.value='' ''
end if
Next Cell

(CoL correspond a la colonne des 150 cellules)

Mon code est plutôt simple et se présente donc comme cela (avec quelques subtilité mais je l'ai 150 fois)

With CoL

idoc.all.t1.value = .Row(26)
idoc.all.t2.value = .Row(27)

End With

Donc la solution que je pense faire demain c'est de faire 150fois la ligne suivante :

If not IsEmpty(.Row(XX)) Then
idoc.all.tx.value= = .Row(XX)
End If

Est ce qu'il y aurait une solution que je ne vois pas qui m'éviterait de faire ca pour chaque ligne mais pour l'ensemble des ligne ?

Merci d'avance

Ergotamine · Accepted Answer

Si c'est un tableau qui renseigne un formulaire alors peut importe, tu peux utiliser une boucle, les références de lignes étant automatiques sous EXCEL et non supprimables, ça de devrait pas générer d'erreur. Je pense sincèrement que la première chose à faire demain sera de nous joindre un bout de fichier afin de se représenter la chose, car là c'est un travail de mémorisation et d'imagination trop important. A partir de là nous pourrons avancer...

Ergotamine · Answer

Bonjour,

Est-ce un formulaire qui renseigne un tableau ou un tableau renseignant un formulaire ?

Vous pouvez déjà aisément faire un boucle de ce typê afin de ne pas répeter 150 fois la même chose et alléger la lecture de votre code

For i = 0  to 150
If not IsEmpty(.Row(i)) Then
idoc.all.tx.value= = .Row(i)
End If
Next

Mais je pense que le code est largement simplifiable, vous pouvez aussi envisager un "On Error Go To" vers une macro complémentaire d'éxecution. Tout dépend du contexte (d'où ma première question) et le besoin exprimé (l'action en cas de rencontre d'une cellule vide).

Cdlt,