Recherche Nb ligne/col. d'un variant

[mécano41]

Bonjour,

Quelqu'un connaîtrait-il quelque chose de plus court pour trouver le Nb. de lignes et colonnes d'un variant pouvant être un nombre ou un tableau?

Function NbLigCol(VarAtraiter As Variant) As Variant
Dim NbLignes As Variant
Dim NbColonnes As Variant
On Error Resume Next
NbLignes = UBound(VarAtraiter, 1) - LBound(VarAtraiter, 1) + 1
If IsEmpty(NbLignes) Then NbLignes = 1
NbColonnes = UBound(VarAtraiter, 2) - LBound(VarAtraiter, 2) + 1
If IsEmpty(NbColonnes) Then NbColonnes = 1
NbLigCol = Array(NbLignes, NbColonnes)
End Function

Merci d'avance.

Cordialement

 

[Pierrot93]

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

Bonjour,

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

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

bonne journée
@+

 

[mécano41]

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

 

[Pierrot93]

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 :

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

 

[mécano41]

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

C'est une autre solution.

Merci

Cordialement