Test sur une variable tableau évoluée

Version imprimable

Bonjour,

mon problème: j'abuse du laxisme de vba. je m'explique dans le cadre d'un programme de "copier/coller retravaillés de données entre classeurs", je selectionne des lignes de feuille dans une variable (var1(i)).

Plus loin dans le programe, je veux tester la premiere cellule de la ligne enregistrée en variable... ca marche très bien sauf si la variable est vide.

Donc je voudrais tester si la variable est vide ou non.

Voila ce que j'ai fais mais qui ne marche pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub CommandButton1_Click() Dim var1() 'je ne connais pas le type Dim i As Integer 'on dimensionne le tableau à 4 ReDim var1(4) 'les trois premieres cases du tableau prenne en valeur le contenu de la ligne For i = 1 To 3 var1(i) = Sheets(1).Rows(i) ' j'affiche le contenu de la premiere cellule de la ligne MsgBox var1(i)(1, 1) Next i ' j'essaye de tester les cases vides du tableau If var1(4)(1, 1) Is Empty Then MsgBox "toto" 'probleme erreur d'execution 424 ; objet requis End Sub
Quelqu'un aurait une idée sur l'origine du problème?

Ps: je sais que normalement je n'ai pas a tester ce genre de chose car je devrais savoir ou commence et s'arrete mes boucles mais il y en a plein d'imbriquées et j'ai de petits problemes d'effets de bord.

merci

10/12/2007, 18h00
sash6
Hmmm je ne connais pas cette syntaxe. T'as essayé de caler un bon vieux .value?
Code:

1 2 If var1(4)(1, 1).Value = "" Then MsgBox "toto"
10/12/2007, 18h50
alsimbad
au lieu de

Code:

If var1(4)(1, 1) Is Empty then

essaye
Code:

1 2 if is empty var1(4)(1,1) then
10/12/2007, 19h41
Invité

Bonjour

Je te conseille de lire cet article de Silkyroad : http://silkyroad.developpez.com/vba/tableaux/

Tu verras que ta syntaxe comme celle-là :

Code:

MsgBox var1(i)(1, 1)

est fausse.
10/12/2007, 20h30
alsimbad

désolé de te contredire starec mais j'ai déja utilisé cette forme

Code:

tab_identifiant(i) = tableau_import(i)(1, dernierecolonne) ' je cale, je sais pas pourquoi c'est pas tableau_import(i)(dernierecolonne)

j'avais écris ça a l'éposque parce que je comprenais pas vraiment le pourquoi, d'ailleurs c'est encore un peu vrai
10/12/2007, 20h33
Invité

C'est possible, mais je ne l'ai jamais vu, ni utilisé. De plus je ne trouve pas cela logique.
10/12/2007, 20h36
alsimbad

j'avais creusé a l'époque, j'arrivais pas a trouver la deuxieme dimension du tableau

Alors voilà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Tableauxdetableaux()
Dim Montab, Tablo1, Tablo2(3, 3)
    Tablo1 = Array(0, 1, 2, 3)
    Tablo2(0, 0) = "un"
    Tablo2(0, 1) = "deux"
    Tablo2(0, 2) = "trois"
    Tablo2(0, 3) = "quatre"
    Tablo2(1, 0) = "cinq"
    Tablo2(1, 1) = "six"
    Tablo2(1, 2) = "sept"
    Tablo2(1, 3) = "huit"
    'etc... (3, 3) = "seize"
    Tablo3 = Array(Tablo1, Tablo2)
    MsgBox Tablo3(1)(1, 2)
End Sub

Si, dans ces conditions, c'est possible ;)
A+

mais revenons au probleme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
Dim var1() 'je ne connais pas le type
Dim i As Integer
 
'on dimensionne le tableau à 4
ReDim var1(4)
 
'les trois premieres cases du tableau prenne en valeur le contenu de la ligne
For i = 1 To 4
var1(i) = Sheets(1).Rows(i)
' j'affiche le contenu de la premiere cellule de la ligne
MsgBox var1(i)(1, 1)
Next i
 
' j'essaye de tester les cases vides du tableau
If IsEmpty(var1(4)(1, 1)) Then MsgBox "toto" 'probleme erreur d'execution 424 ; objet requis
End Sub

avec ce code ça marche, mais tu dois remplir le 4 parce que vide et pas remplie c'est pas pareil

10/12/2007, 22h02
Qwazerty

SAlut
Et tout simplement

Code:

If var1(4)(1, 1) = "" Then

J'ai fait le teste ca semble fonctionner tres bien

Pour la syntaxe, je l'avait deja vu mais ne l'avais pas comprise, mais en faite en vu des infos fournies, si, elle est correct et logique, Var1 contenant un objet range qui se caracterise par un tableau (Row,Col)

A++
Qwaz
11/12/2007, 02h38
Invité

Bonjour

Si quelqu'un a un lien ou une doc sur cette syntaxe, cela m'intéresse.
Le lien que j'ai donné était une information générale sur les tableaux, car je croyais que la syntaxe était erronée.

Merci pour ceux qui me donneront des informations complémentaires.
11/12/2007, 06h17
alsimbad
moi, je peux pas t'en dire plus, je l'utilise exactement comme p12345 pour prendre des ranges en tableau et en ressortir la cellule qui m'interresse
Code:

1 2 3 4 5 6 for i = 1 to 2 tab(i) = Sheets(1).Rows(i) next i et tu ressort disons c1 par msgbox tab(1)(1,3)
11/12/2007, 09h27
p_12345

Bonjour à tous et merci d’avoir passé du temps sur mon « petit » problème ,

Qwazerty :de mon coté ce ne marche pas. Peut être t’es tu basé sur le code de alsimbad qui a modifié la borne supérieure de la boucle

D’ailleurs alsimbad, je confirme : si on prend 4, il n’y a plus de problème. ;)

Sash6 : désolé mais ca ne marche pas.

De mon coté j’ai creusé aussi. Je pense que le principal problème vient du fait que j’utilise des variants : c’est l’effet boomerang.

Tant que je n’ai pas affecté une « valeur » a ma case de tableau (ici var1(4)), il ne la type pas !
Le niveau 1 (la ligne) est un variant (ex : var1(i) est un variant/variant (1 to 1, 1 to 256)
Le niveau 2 (la cellule) est aussi un variant (ex :var1(i)(1) est variant(1 to 256))
Le niveau 3 est lui dépendant du contenu de la cellule (ex :var1(i)(1,1) peut être un variant/string)

Donc si je test au niveau 3 alors que pour la quatrième case du tableau je ne suis qu’au niveau 1, il ne reconnaît pas le type.

D’ou la solution :

Code:

If IsEmpty(var1(4)) Then MsgBox "tito"
11/12/2007, 09h52
ouskel'n'or

C'est normal, si ton niveau 4 n'est pas renseigné, tu n'as pas de tableau à l'intérieur, et tu ne peux donc pas lui demander de lire un élément d'un tableau qui n'existe pas.
Désolé d'arriver si tard mais j'étais resté sur l'affirmation que ta syntaxe était fausse. Et comme alsimbad avait donné une solution qui me paraissait bien...
Si ton pb est résolu, alors un petit clic sur :resolu: soldera la discussion ;)