Déclarer un tableau non-typé vba

Bonjour,

Dans le cadre de mon travail, je dois stocké différentes variables dans un tableau pour pouvoir les copier dans des cellules de mon classeur. Néanmoins ces variables ne sont pas du même type(String, Single, Integer).

Existe t-il un objet VBA ou un moyen pour manipuler des variables de type différents dans un tableau ?


Merci d'avance,
Solown

Il y a toujours le type générique Variant.
https://msdn.microsoft.com/fr-fr/VBA...iant-data-type
Mais pourquoi ne pas faire un transfert de cellule à cellule ?

Pour t'expliquer au mieux mon problème, j'ai dans un fichier une chaine de caractère stocké dans une cellule, je dois découper cette chaine de caractère puis ranger chacune des parties découpés dans une colonne d'un autre classeur.

J'ai donc codé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim tmp As Variant tmp = Replace(wbImport.Sheets(1).Cells(i + 1, 1), """", "")   Dim tabSplit As Variant tabSplit = Split(tmp, ",") If tabSplit(3) = "0" Then GoTo nextI End If For j = 4 To UBound(tabSplit) - 1 If tabSplit(j) = "0" Or tabSplit(j) = "1" Then tabSplit(j) = CInt(tabSplit(j)) Else tabSplit(j) = CCur(tabSplit(j)) End If Next j

---

Néanmoins, même en déclarant mon tableau en variant, cette ligne génère une erreur "Incompatibilité de type":

Code:

---

tabSplit(j) = CCur(tabSplit(j))

---

Merci

Il serait plus simple de copier l'ensemble des données sur ta destination puis de leur appliquer un TextToColumns pour séparer les données.
https://msdn.microsoft.com/fr-fr/lib.../ff193593.aspx
Comme ça, plus besoin de variables.

Effectivement c'est une solution mais je dois manipuler et changer les données avant, j'ai besoin de pouvoir modifier les variables à tous moments et simplement.

J'ai trouvé une solution(très moche...) en utilisant comme tu m'avais indiqué Variant et deux tableaux.

Néanmoins je suis confronté à un autre problème, la ligne

Code:

---

tabSplit(j) = CSng(tmp(j))

---

renvoie comme erreur Incompatibilité de type, pourtant la trace d’exécution suivante montre bien que l'index du tableau auxquels je veux accéder n'est pas typé.

Pièce jointe 364855

Salut.

C'est étonnant que ton tabsplit, s'il est bien le résultat du split, possède des valeurs vides. Normalement, il devrait contenir des chaines vides si présence de deux séparateurs qui se suivent. Et ce serait alors normal que CCUR() renvoie une incompatibilité de type puisque tu ne peux pas passer une chaine de caractères (même vide, c-à-d égale à "") à la fonction CCUR() qui attend un nombre ou quelque chose qui peut être transtypé en nombre.

Citation:

---

Envoyé par Solown

Effectivement c'est une solution mais je dois manipuler et changer les données avant, j'ai besoin de pouvoir modifier les variables à tous moments et simplement.

---

Je vais sans doute paraitre insistant mais je ne vois toujours pas la nécessité de passer par des variables.
Même si les données que tu places dans les cellules destination ne sont pas celles que tu souhaites, rien ne t'empêches ensuite de leur appliquer un traitement, exactement comme tu le fais sur ta variable tableau tabSplit.

Je suis assez d'accord avec Menhir. Surtout que tu pourrais alors utiliser les formules Excel pour traiter tes données. Il est pile poil l'outil pour réaliser cela, et il le réalisera en général plus vite et mieux que du code VBA. Qui plus est, tu transféreras ta logique métier dans les formules plutôt que l'avoir dans tes lignes de code.

Je dois rendre ce programme pour ce soir, voilà tout simplement pourquoi j'essaye de le faire rapidement avec des "techno" que je connais.

Néanmoins si cela est la meilleur solution, je ne vois pas comment cela peut s'appliquer sur une chaine de caractère du type :

"Prenom NOM,"surnom","lieu","0","0","0","0","0","0""

J'avoue ne pas encore trop saisir le fonctionnement de cette fonction...

Concernant ta première intervention Pierre Fauconnier, je split la chaine dans le tableau tmp puis je convertie ses valeurs dans le tableau tabSplit() . Pas de soucis pour les 4 premiers indices (les 3 premiers ne sont pas converties, le 4éme est convertie en Int avec CInt())

J'ai finalement trouvé une solution barbare à mon problème en transformant chacune de mes valeurs en une variable de type Variant, ce qui ne me lève plus l'erreur.

Je me pencherais sur la fonction TextToColumn une fois la recette passé pour optimiser le programme et apprendre à l'utiliser.

Merci pour votre aide à tous les deux.