Passer un tableau Variant/String en Variant/Long

Bonjour à tous,

J'ai une chaine de nombres que je splitte.
Pour des raison de performance je voudrais passer le résultat en Long, mais malgré la boucle il reste obstinément en String (?).
Au final je pense que je créerai un autre tableau() as Long pour un meilleur gain mais j'aimerai bien comprendre.
Quelqu'un a une idée du pourquoi et si une autre écriture permettrai de réaliser ça ?

Code:

---

1 2 3 4 5 6 7 8

Sub test2() Dim ref1 As Variant, i As Long ref1 = "1:2:3:4" ref1 = Split(ref1, ":") For i = 0 To 3 ref1(i) = CLng(ref1(i)) Next i End Sub

---

A tout hasard j'ai tenté ref1(i) = ref1(i) + 0 mais même punition
eric

Bonjour eriiic,
Teste avec val("2")

Bonne idée, mais non... C'est pareil :-)

Salut,

commence par simplifier ton code :

Code:

---

1 2	ref1 = "1:2:3:4" ref1 = Split(ref1, ":")

---

devient

Code:

---

ref1 = Split("1:2:3:4", ":")

---

Bonjour eriiic,
Il n'est jamais bon de jouer avec le typage des variables en VBA
la fonction Split induit pour VBA un typage en String, typage qu'il garde en mémoire et te "resert"
Typer en Variant ne permet que de laisser à VBA le soin de décider du type. Une fois le type décidé, VBA n'en permet pas la modification (question de la gestion "idoine" d'occupation en mémoire)
Je ne vois pas de solution vraiment totalement "saine" autre que du genre :

Code:

---

1 2 3 4 5 6 7 8

Dim ref1 As Variant, ref2() As Long, i As Long ref1 = "1:2:3:4" ref1 = Split(ref1, ":") ReDim ref2(UBound(ref1)) For i = 0 To 3 ref2(i) = CLng(ref1(i)) Next i MsgBox TypeName(ref1(0)) & vbCrLf & TypeName(ref2(0))

---

Amitiés

@Jean-Philippe
j'ai simplifié pour le forum, en fait ref1 est le résultat de plusieurs opérations de chaines.

@unparia
C'est ce que je me suis 'résolu' à faire, sans trop me forcer vu qu'un tableau Long sera le plus performant.
Mais je m'étonne de ne pas avoir remarqué ça plus tôt.

Citation:

---

Une fois le type décidé, VBA n'en permet pas la modification

---

ça n'a l'air qu'être que dans le cas d'un tableau résultant d'un Split.

Si je dimensionne moi-même mon tableau :

Code:

---

1 2 3

Dim ref1(0 To 3) As Variant, i As Long ref1(0) = "1" ref1(0) = 1

---

ou même un variant transformé 'automatiquement' en tableau pour se rapprocher du cas du Split

Code:

---

1 2 3

Dim v v = [A1:A4].Value 'chaines v(1, 1) = 1

---

mes Variant/String se transforment bien en Variant/Integer
Je dis bizarre ce tableau issu de Split... :-)

re
a vrai dire je ne vois pas ou est ton probleme dans ta convertion a moins que tu le réinjecte dans le tableau
Pièce jointe 369652

Euh ...
Et le cheval blanc d'Henri IV est blanc ...
Allons allons !
Et ce serait un miracle si :

Code:

---

MsgBox TypeName(CLng("1"))

---

affichait "Long" ? :coucou:
Cela ne ferait toujours pas que "1" ne serait pas de type string. Seul Clng("1") le serait.

EDIT : enfin, quoi --->>

Code:

---

1 2 3

Dim a As Variant a = "1" MsgBox TypeName(CLng(a)) & vbCrLf & TypeName(a) & vbCrLf & TypeName(CDate(a))

---

En fait le cheval d'Henri IV était baie blanc c'était son nom.

Patrick le pb se pose plutôt ici :
Pièce jointe 369688

Après passage dans la boucle on devrait avoir des Integer


Mais ton intervention n'aura pas été inutile puisque c'est en faisant la capture que je me suis aperçu de la différence fondamentale qui explique ce comportement.

Si on regarde la variable elle-même (Ref1 ici dans la capture) elle est de type Variant/String !
Dans un tableau 'normal' où les valeurs peuvent passer de Variant/String <--> Variant/Long, la variable elle-même est de type Variant/Variant.

Avec Split() on se retrouve donc avec une variable Variant ne pouvant pas varier :-s
Drôle de concept qui me dépasse. Obélix dirait "Ils sont fous ces ricains" :-)
Je pense qu'il faut se faire une raison.
Merci à tous :-)
eric

Bonjour !

Citation:

---

Envoyé par eriiic

ça n'a l'air qu'être que dans le cas d'un tableau résultant d'un Split.

---

Oui comme clairement indiqué dans l'aide VBA de Split !

Citation:

---

Envoyé par eriiic

Après passage dans la boucle on devrait avoir des Integer

---

Et non comme déjà évoqué juste au dessus et déjà précédemment par unparia (Salut !),
la variable tableau résultant de Split étant déclarée soit en String soit en Variant/String par défaut
comme du reste c'est clairement visible dans ta capture des fenêtres Espions & Variables locales …

Ce n'est donc pas une simple variable Variant mais une variable Variant/String.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc-L

Citation:

---

ça n'a l'air qu'être que dans le cas d'un tableau résultant d'un Split.

---

Citation:

---

Oui comme clairement indiqué dans l'aide VBA de Split !

---

rien vu sur le type de tableau retourné dans l'aide 2010.
Qu'as-tu vu de si clair ?
eric

Dans mon aide, il est indiqué plusieurs fois « sous-chaînes » et du reste comme sur MSDN,
en lisant l'explication de chacun de ses arguments.

Si l'aide apporte un doute, en cours d'exécution la consultation de la fenêtre Variables locales l'ôte …

« sous-chaînes » ne veut pas dire type Variant/String chez moi mais bon.
Oui, c'est bien dans la fenêtre espion que je l'ai vu.
Merci
eric

re
salut eriic

Split, fonction

Voir aussi Exemple Particularités
Description
Renvoie un tableau de base
zéro à une dimension contenant le nombre spécifié de sous-chaînes.
Syntaxe
Split(expression[,
delimiter[, limit[,
compare]]])
La syntaxe de la fonction Split comprend les arguments nommés suivants :

souschaines!!!!!! donc string sinon ils auraient ecris nombres
split est une fonction texte du debut a la fin

Oui comme Join & Filter, avec Split le triptyque référencé dans le tutoriel Manipuler les chaînes de caractères …

Je ne vois pas en quoi on peut en déduire que c'est obligatoirement un tableau Variant/String et non un tableau Variant/Variant avec des données Variant/String comme il aurait très bien pu l'être s'ils avaient fait ce choix.
Là on aurait pu changer le type des données.
Vous faites des spéculations et affirmations à partir de la réponse, pas très rigoureux ça ;-)
eric

speculation?????

essaie msgbox ubound(split(2,1)) tu verrabien peut etre que tu a plus de chance que tout les autres ;)

Il faut rester dans le contexte du post, là tu pars sur autre chose.
Spéculation (déductions si tu préfères) sur le type de donnée retournée à la seule lecture de l'aide.

cf :

Citation:

---

Je ne vois pas en quoi on peut en déduire que c'est obligatoirement un tableau Variant/String et non un tableau Variant/Variant avec des données Variant/String comme il aurait très bien pu l'être s'ils avaient fait ce choix.

---

Mais bon, pas la peine d'épiloguer trop longtemps. Le sujet n'avancera plus puisque expliqué :-)

Bonjour à tout ce beau monde,

Voici une autre façon de faire (contournement de création d'une seconde variable) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Demo() Dim ref As Variant, i&   ref = Array(Split("1:2:3:4", ":")) ReDim Preserve ref(0 To UBound(ref(LBound(ref)))) As Variant For i = LBound(ref) + 1 To UBound(ref) ref(i) = CLng(ref(LBound(ref))(i)) Next i ref(LBound(ref)) = CLng(ref(LBound(ref))(0)) End Sub

---

Au final, ref est de type Variant/Variant avec des données de type Variant/Long.
Je ne sais pas si c'est ce qu'y est recherché ici...

Bien vu, Franck
Car un redim re-alloue l'espace en mémoire.

Oui Jacques.

Mais dommage que l'on ne puisse pas modifier le typage avec le mot-clé Preserve.

Ce genre de code aurait été ultra simple :

Code:

---

1 2 3 4 5 6

Sub Test() Dim ref As Variant   ref = Split("1:2:3:4", ":") ReDim Preserve ref(LBound(ref) To UBound(ref)) As Long End Sub

---

a oui bien vu franck :plusser:
bien que je ne comprenne pas la ligne

Code:

---

ReDim Preserve ref(0 To UBound(ref(LBound(ref)))) As Variant

---

ca fonctionne

Bonjour Patrick,

Regarde, en pas à pas, la fenêtre des variables locales, tu comprendras aisément.

Bonjour pijaku,

Intéressant et astucieux pour le challenge. C'est vrai que c'est faisable :-)
Mais, tu t'en doutes, quitte à faire une boucle et n'étant pas à court de noms pour les variables je préfère la faire pour mettre dans un tableau Long ;-)
eric

Patrick,

cela revient à transformer un Array d'un Array en simple Array
et comme le premier indice d'un Array est le zéro par défaut
mais peut aussi être le un si Option Base 1 en tête de module
Franck a alors préféré éviter cette "simple" démonstration :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Demo() Dim ref, i& ref = Array(Split("0 1 2 3")) ReDim Preserve ref(0 To UBound(ref(0))) For i = 1 To UBound(ref) ref(i) = CLng(ref(0)(i)) Next i ref(0) = CLng(ref(0)(0)) End Sub

---

Bonjour Marc,

Citation:

---

Envoyé par Marc-L

[INDENT=2]mais peut aussi être le un si Option Base 1

---

Sauf pour le Split qui lui reste à 0.

D'où le 0 en "dur" :

Code:

---

ReDim Preserve ref(0 To

---

Et pour l'adaptation en Option Base 0 ou 1 :

Code:

---

To UBound(ref(LBound(ref)))

---

Salut Eric,

Citation:

---

Mais, tu t'en doutes, quitte à faire une boucle et n'étant pas à court de noms pour les variables je préfère la faire pour mettre dans un tableau Long ;-)

---

Bien entendu.
Tu y gagneras certainement en vitesse d'exécution.

Citation:

---

Envoyé par pijaku

Sauf pour le Split qui lui reste à 0.

---

Salut Franck !     J'évoquais bien Array et non Split …

Citation:

---

Envoyé par eriiic

Quelqu'un a une idée si une autre écriture permettrai de réaliser ça ?

---

On va pouvoir enfin entrer dans le vif du sujet : oui bien sûr, élémentaire mon cher Watson
via le B-A-BA d'Excel comme déjà démontré sur ce forum (hein Patrick !) : Evaluate …

MarcL ne te moque pas hein :rouleau:

bon je donne quand meme le lien de cette discution

un petit exemple

Code:

---

1 2 3 4 5

Sub test5() chaine = "1,2,3,4,5,6,7,8,9" tablo = Evaluate("{" & chaine & "}") MsgBox "tablo(3)= " & tablo(3) & " est de type " & TypeName(tablo(3)) End Sub

---

parfois la destination c'est le chemin
A+

Bah oui, mais Evaluate quoi ?
J'étais allé sur une feuille avec la chaine dans une cellule et l'inspiration n'a pas été plus loin que "=" :-)

Edit : ah oui, c'est plus concret là. Merci patrick. C'est court et simple, ça pourra resservir.
J'étais resté avec mes ":", je ne risquais pas d'arriver à grand chose...

re ben oui
ca n'enleve rien a la discussion
comme je l'ai dis "parfois la destination c'est le chemin"

re
les ":"c'est pas bon c'est ";" et c'est les lignes ;)

Code:

---

1 2 3 4 5

Sub test6() chaine = "1,2,3,4;7,8,9,10" tablo2 = Evaluate("{" & chaine & "}") MsgBox tablo2(2, 3) End Sub

---

ps: aurais je oublié de mentionner qu'avec cette methode les tableaux etaient en base 1 et non 0

je le dis ca peut servir;)

Bonjour

Citation:

---

Envoyé par eriiic

Bonjour à tous,

J'ai une chaine de nombres que je splitte.
Pour des raison de performance je voudrais passer le résultat en Long, mais malgré la boucle il reste obstinément en String (?).
eric

---

Par curiosité, J'ai un peu changé ton code original.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test2() Dim ref1 As Variant Dim i As Long Dim a As Long ref1 = "1:2:3:4" ref1 = Split(ref1, ":") For i = 0 To 3 a = CLng(ref1(i)) ref1(i) = CLng(ref1(i)) Next i End Sub

---

a est vraiment converti en Long. J'ai comme l'impression que c'est juste impossible de mettre dans un tableau en Variant, un élément individuel qui n'est pas du même type que le tableau.

Et c'est aussi impossible de mettre un élément en string dans un tableau Integer

Code:

---

1 2 3 4 5 6 7 8 9

Sub test3() Dim a(2) As Integer a(0) = 0 a(1) = 1 a(2) = 2 For i = 0 To 2 a(i) = CStr(a(i)) Next End Sub

---

testé au pas-à-pas Excel 2016. a(1) reste Integer.

re
Bonjour clement marcotte

Code:

---

1 2 3

J'ai comme l'impression que c'est juste impossible de mettre dans un tableau en Variant, un élément individuel qui n'est pas du même type que le tableau.   Et c'est aussi impossible de mettre un élément en string dans un tableau Integer

---

j'ai l'impression que tu confond le tableau et ses items

Code:

---

dim tablo(2) as string

---

c'est pas tablo qui est en string mais ses item !




ici c'est tablo qui a la propriété car ce n'est pas un tablo au depart c'est un variant et ses item seront des string puisque issus d' un split

Code:

---

1 2	dim tablo as variant tablo=split("toto,titi",",")

---

ici c'est pour les items la propriété variant et ca me me permet de lui injecter ce que je veux

Code:

---

1 2 3 4 5 6 7 8 9

Sub test3() Dim tablo(2) As Variant tablo(0) = "toto" tablo(1) = 2 Debug.Print TypeName(tablo) Debug.Print TypeName(tablo(0)) Debug.Print TypeName(tablo(1)) End Sub

---

autrement dit avec un tablo prédimentionné(dim tablo(x,y) as variant ) je peut mettre absolument tout ce que je veux ou presque

il est evident que si tu declare un tablo dimentionné entres ses parentheses avec une propriété pour ses items tu ne poura pas mettre un autre type que celui declaré

tout du moins tout ce qui est numerique sera considéré comme string si "as string" par exemple

Bonjour,

voilà.
Lorsqu'on crée un tableau variant, la variable (et non ses éléments) est Variant/Variant.
Chaque valeur peut être de n'importe quel type, il dépend de ce qu'on y met et peut donc changer.

Lorsqu'un tableau variant est créé par Split il est Variant/String (voir capture au #10).
Toutes ses valeurs sont toujours String. On peut y mettre n'importe quel numérique sans erreur de type mais il sera d'office converti en String.
eric

Bonjour,

Dans le cas présent quel est l'intérêt d'utiliser Evaluate?
Si ce n'est pour gagner 3 lignes de code?

La demande initiale est relative à un gain de temps d'exécution.
Or Evaluate est, il me semble (en tout cas à la maison c'est le cas), plus lente qu'une boucle non?

Excusez la relance, mais j'aime bien comprendre...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Option Explicit   Private Const Max As Long = 100000   Sub test5() Dim chaine As String, tablo As Variant, i As Long, t# t = Timer chaine = "1,2,3,4,5,6,7,8,9" For i = 1 To Max tablo = Evaluate("{" & chaine & "}") Next Debug.Print Timer - t '3,3203125 sec End Sub   Sub Demo() Dim ref As Variant, i As Long, j As Long, t# t = Timer For j = 1 To Max ref = Array(Split("1:2:3:4:5:6:7:8:9", ":")) ReDim Preserve ref(0 To UBound(ref(LBound(ref)))) As Variant For i = LBound(ref) + 1 To UBound(ref) ref(i) = CLng(ref(LBound(ref))(i)) Next i ref(LBound(ref)) = CLng(ref(LBound(ref))(0)) Next Debug.Print Timer - t ' 1,20703125 sec End Sub   Sub tansfert() Dim ref As Variant, t#, i As Long, l() As Long, j As Long t = Timer For j = 1 To Max ref = Split("1:2:3:4:5:6:7:8:9", ":") ReDim Preserve l(UBound(ref)) For i = LBound(ref) To UBound(ref) l(i) = CLng(ref(i)) Next i Next Debug.Print Timer - t ' 0,67578125 sec End Sub

---

EDIT : après réflexion, Evaluate est plus rapide sur des chaînes plus longues.
Gros inconvénient, Evaluate plante lorsque la taille de la chaîne atteint la limite de l'Integer (Len(chaine) = 32 767)

Bonjour Franck
Ta remarque est on ne saurait plus pertinente.
La performance d'un code ne se mesure pas aux nombres de caractères qu'il utilise, mais à sa vitesse d'exécution et à la moindre occupation de l'espace mémoire. S'écarter de cet aspect fondamental est s'égarer.

re
je ne comprend pas bien ton test franck

avec ta methode je comprends que tu boucle mais evaluate n'en a pas besoins ??
ce que tu fait avec split et ta boucle de conversion :evaluate le fait tout court

tester les 3
Pièce jointe 370041

La boucle sur le Evaluate est juste là pour obtenir un temps d'exécution notable...

par contre ce que je pige toujours pas c'est ta ligne

Code:

---

ReDim Preserve ref(0 To UBound(ref(LBound(ref)))) As Variant

---

si je dois la traduire
ref est donc issu du split (ref = Array(Split("1:2:3:4:5:6:7:8:9", ":")))


ReDim Preserve ref(0 To UBound(ref(LBound(ref)))) As Variant
la traduction donne

ReDim Preserve ref(0 To UBound(ref(0))) As Variant
ce qui donne

ReDim Preserve ref(0 To Ubound(1)) As Variant

non je pige pas du tout :koi: