Bonsoir à tous,
J'ai une petite question bête concernant le type de variable que je dois utilisé. J'utilise un tableau déclaré de type variant car je rentre des données de types dates, des chiffres et des lettres dedans. Ensuite je demande à la macro d'écrire une valeur du tableau dans la case B6 par exemple mais au moment de l'écrire "intelligence artificiel" considère que c'est une date et modifié le type de variant à date.
Voici un exemple qui devrait éclaircir mes propos :
la donnée qui pose problème dans le fichier source est : 3-13
je rentre les infos du fichier source qui m'intéresse dans un tableau :
' x étant le nombre de ligne
ReDim Tablo(x, 8)
i = 0
For i = 0 To x - 1
Tablo(i, 0) = Wsource.Sheets(1).Range("A" & i + 2).Value
etc....
Next i
ensuite j'écris la donnée d’intérêt dans une ligne bien précise :
' Peut importe i pour l'exemple
Wcible.Sheets(1).Range("B6").Value = Tablo ( i, 0)
exel me donne le résultat suivant : 13- mars
J'ai déjà eu ce problème avec des dates ( il les transformait à l'anglaise et inversait le mois et le jour) et pour résoudre ce problème je déclarais une nouvelle variable de type date :
Dim DateNaissance as date
DateNaissance = tablo(i,2)
Wcible.Sheets(1).Range("C42").Value = DateNaissance
J'ai essayé cette solution en déclarant une variable pour 3-13 de type string selon le même principe que précédemment mais ça ne marche pas.
Avez vous des idées ?
Merci à ceux qui prendrons le temps de lire mon problème.
Cordialement,
Nicolas
J'ai une petite question bête concernant le type de variable que je dois utilisé. J'utilise un tableau déclaré de type variant car je rentre des données de types dates, des chiffres et des lettres dedans. Ensuite je demande à la macro d'écrire une valeur du tableau dans la case B6 par exemple mais au moment de l'écrire "intelligence artificiel" considère que c'est une date et modifié le type de variant à date.
Voici un exemple qui devrait éclaircir mes propos :
la donnée qui pose problème dans le fichier source est : 3-13
je rentre les infos du fichier source qui m'intéresse dans un tableau :
' x étant le nombre de ligne
ReDim Tablo(x, 8)
i = 0
For i = 0 To x - 1
Tablo(i, 0) = Wsource.Sheets(1).Range("A" & i + 2).Value
etc....
Next i
ensuite j'écris la donnée d’intérêt dans une ligne bien précise :
' Peut importe i pour l'exemple
Wcible.Sheets(1).Range("B6").Value = Tablo ( i, 0)
exel me donne le résultat suivant : 13- mars
J'ai déjà eu ce problème avec des dates ( il les transformait à l'anglaise et inversait le mois et le jour) et pour résoudre ce problème je déclarais une nouvelle variable de type date :
Dim DateNaissance as date
DateNaissance = tablo(i,2)
Wcible.Sheets(1).Range("C42").Value = DateNaissance
J'ai essayé cette solution en déclarant une variable pour 3-13 de type string selon le même principe que précédemment mais ça ne marche pas.
Avez vous des idées ?
Merci à ceux qui prendrons le temps de lire mon problème.
Cordialement,
Nicolas