Recherche Nb ligne/col. d'un variant

Pierrot93

XLDnaute Barbatruc

• 6 Juillet 2011

• #2

Re : Recherche Nb ligne/col. d'un variant

Bonjour,

pas sûr d'avoir bien saisie le problème, peut être ainsi :

Code:

Dim t() As Variant
t = Range("A1:E10")
MsgBox " nb lignes : " & UBound(t, 1) & " nb colonnes : " & UBound(t, 2)

bonne journée
@+

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 6 Juillet 2011

• #3

Re : Recherche Nb ligne/col. d'un variant

Bonjour Pierrot93,

Le problème est que si le Variant est seulement un nombre, il y a une erreur ... par ex si dans ton code tu mets Range("A1") au lieu de Range("A1:E10") le UBOUND() ne fonctionne plus puisque le variant n'est plus défini comme tableau mais comme Integer, Single ....

Le fonction que j'ai indiquée fonctionne parfaitement mais je voudrais savoir s'il n'y a pas plus simple...

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Juillet 2011

• #4

Re : Recherche Nb ligne/col. d'un variant

Re,

comme je le disais pas tout compris.... voir peut être au moment de l'initialisation... je crains de ne pas avoir tous les éléments.... peut être aussi un test comme ceci, après initialisation :

Code:

If TypeName(t) Like "*()" Then MsgBox "ok tableau"

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 6 Juillet 2011

• #5

Re : Recherche Nb ligne/col. d'un variant

C'est une autre solution.

Merci

Cordialement

 

Vote positif 0 Vote négatif