Discussion :

[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 (?).
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour eriiic,
Teste avec val("2")

[eriiic]

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

[Jean-Philippe André]

Salut,

commence par simplifier ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

@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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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... :-)

[patricktoulon]

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

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox TypeName(CLng("1"))

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

EDIT : enfin, quoi --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

[eriiic]

Patrick le pb se pose plutôt ici :


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

[Marc-L]

Bonjour !

ç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 !

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, …

[eriiic]

Bonjour Marc-L

ç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 !

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

[Marc-L]

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 …

[eriiic]

« 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

[patricktoulon]

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

[Marc-L]

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

[eriiic]

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

[patricktoulon]

speculation?????

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

[eriiic]

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 :

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é :-)

[pijaku]

Bonjour à tout ce beau monde,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...