XL 2013 connaitre le type de variable tableau un ou 2 dim et le sens

[patricktoulon]

Bonjour a tous
je cherche un moyen efficace de savoir quelle est le type de variable tableau une ou deux dim et est une ligne ou une colonne sans avoir a gérer des erreurs dans un sens ou dans l'autre
@Yeahou a donné un début de piste interessant mais c'est pas full right

Sub testy7()
a = [A1:H1].Value
MsgBox oneDim(a)
End Sub

Sub testy8()
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
MsgBox oneDim(a)
End Sub

Sub testy9()
Dim a(0 To 5, 1)
  a(5, 0) = "toto "
MsgBox oneDim(a) & " " & UBound(a, 2)
End Sub

'***********************************************************
'ERREUR!!!!
Sub testy10() ' erreur donne vrai quand base 0
Dim a(0 To 5, 0)
  a(5, 0) = "toto "
 'a(5) = "titi"    'erreur " nombre de dimensions incorect"
Msgbox  oneDim(a) & " " & UBound(a, 2)
End Sub
'***********************************************************

Sub testy11() '
Dim a(0 To 5)
MsgBox oneDim(a)
End Sub

Function oneDim(a)
  oneDim = UBound(a) + 1 - LBound(a) = Application.CountA(a)
End Function

il faudrait le moyen de compter le base 0 et ce sera bon

 

[Bernard_XLD]

re,

j'utilise typename par ce que je fait la même chose avec evaluate

je préfère quand même IsErr qui renvoie direct un boolean mais c'est toujours intéressant de connaître plusieurs façons de faire.

Bien cordialement, @+

 

[patricktoulon]

re
oui après perso je généralise (1 seule façon de coder)
on reconnais mes codes a ces petits détails

 

[mapomme]

Et ceci sera mon dernier post dans ce fil.

Je ne suis pas d'accord avec vous. Pourquoi aller chercher un programme tiers dans un langage de type visual basic? On veut la même chose en Access? On va donc chercher Access avec une syntaxe différente qu'avec la fonction pour Excel VBA. Deux visal basic, deux fonctions pour la même finalité ? Allez! à la revoyure sur un autre fil.

 

[patricktoulon]

re
ça y est @mapomme c'est Obfusqué

 

[patricktoulon]

re
maintenant je vais pourvoir coder un quicksort générique pour les 4 formes de tableaux

 

[patricktoulon]

@Yeahou je voudrais porter a ton attention un truc bien intéressant qui me titille depuis toute a l'heure avec ton écriture
c'est juste un detail mais quand meme
dans mes versions précédente je variablisait des le départ le ubound
et dans les if ou case ou switch je testais x2 et toi le ubound

fait ce test qui en fait le meme
sauf que un n'est pas variabilisé
c'est carrément du simple au double

Sub testw()
    Dim t(1000000, 1)
    tim = Timer
    For i = 1 To 1000000
        x2 = UBound(t)
    Next
    MsgBox Timer - tim
End Sub

Sub testw2()
    Dim t(1000000, 1), x&
    x = UBound(t)
    tim = Timer
    For i = 1 To 1000000
        x2 = x
    Next
    MsgBox Timer - tim
End Sub

c'est quoi le résultat chez toi ?

 

[Bernard_XLD]

c'est carrément du simple au double

même constat mais plutôt 1.5 fois

 

[patricktoulon]

ah..!! donc on a bien une perte de temps

 

[Bernard_XLD]

re,
en fait, ça oscille entre 1.5 et 2

 

[Bernard_XLD]

ah..!! donc on a bien une perte de temps

pas illogique, le premier code implique une évaluation pendant toute la boucle

 

[patricktoulon]

re
attention quand tu fait tes tests tu dois toujours réinitialiser VBA sinon comme c'est en mémoire et le calcul est faussé

pas illogique, le premier code implique une évaluation pendant toute la boucle

je change ça dans ta version

 

[ChTi160]

Bonjour les Artistes
chez moi :

testw() =0.015625
testw2() = 0.0078125

Bonne journée
jean marie

 

[patricktoulon]

re
Bonjour ChTi160
oui des fois c'est tellement rapide( selon le Pc) qu'il est difficile d’évaluer la différence
cela dit on voit bien que sans variabolisation c'est plus lent
merci pour le retour

 

[mapomme]

ça y est @mapomme c'est Obfusqué

Il m'en faut bien plus. Mais loin de généraliser, vos "solutions" sont limitées au couple VBA + Excel.

et ceci sera mon dernier post dans ce fil.

Et voila, Patrick m'a encore pris en flagrant délit de mensonge

 

[patricktoulon]

ouais !!! on ne peut se passer de moi
c'est plus fort que la force qui est a l’intérieur de toi