Discussion :

[Solown]

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

[Menhir]

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 ?

[Solown]

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 :

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

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 :

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

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

Merci

[Menhir]

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.

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

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 :

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

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

[Menhir]

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.

[Pierre Fauconnier]

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.

[Pierre Fauconnier]

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.

[Solown]

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())

[Solown]

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.