VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

[dionys0s]

Bonjour le forum

Bon, j'ai l'impression que c'est légèrement tordu, mais j'aurais souhaité savoir s'il était possible de récupérer dans une variable la Base par défaut d'un tableau déclaré (Dim TABLO() as Variant par exemple) mais non ReDimensionné (et encore moins Preservé), qui en gros ne contient rien.

D'avance merci pour votre aide

 

[Compte Supprimé 979]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

Bonjour
Tu es vraiment dingue ou quoi

Bon, j'ai l'impression que c'est légèrement tordu

Noooooonnn pas du tout, Mdr

mais j'aurais souhaité savoir s'il était possible de récupérer dans une variable la Base par défaut d'un tableau déclaré (Dim TABLO() as Variant par exemple) mais non ReDimensionné (et encore moins Preservé), qui en gros ne contient rien.

Heuuuu oui, là c'est certain, tu es dingue

Comment veux-tu récupérer quelque chose qui n'existe pas ???

Bon, j'appelle le SAMU

 

[dionys0s]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

M'enfin...

 

[job75]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

Bonjour dionys0s,

Sur Excel 2010 ceci fonctionne bien :

Sub Traitement_Base()
Dim TABLO() As Variant
ReDim TABLO(1)
MsgBox "Base " & IIf(Application.CountA(TABLO) = 1, 1, 0)
End Sub

A+

 

[dionys0s]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

Re,
bonjour Job

Alors effectivement ça marche, mais je suis obligé d'avoir cette sub dans chaque module de code.
Finalement, j'ai trouvé autre chose. Cf. Pièce jointe.

 

[job75]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

Re,

Excellent dionys0s, et cela me permet de saluer Bruno que j'avais zappé

A+

 

[dionys0s]

Re : VBA : Base par défaut d'un TABLO() déclaré non ReDimensionné

Re,

Merci Job
Du coup, je me mets à rêver de rendre des modules de codes transportables quelle que soit la base précisée en tête de module...