Msgbox

[edjo123]

Bonjour j'aimerais pouvoir afficher dans une msgbox un tableau de deux lignes et 5 colonnes contenant sur la première ligne des "noms " et sur la seconde des chiffres. Voila le code que j'ai écrit :

Dim Tableau(1 To 4, 1 To 4) As Variant
Dim strMessage As Variant, i As Integer
Dim frag As Variant


Tableau(1, 1) = "Mean"
Tableau(1, 2) = "Minimum"
Tableau(1, 3) = "Maximum"
Tableau(1, 4) = "Standard deviation"
Tableau(2, 1) = Cells(6, 32).Value
Tableau(2, 2) = Cells(8, 32).Value
Tableau(2, 3) = Cells(9, 32).Value
Tableau(2, 4) = Cells(7, 32).Value

strMessage = ""
For i = 1 To 4
frag = ""
For j = 1 To 4

frag = frag & Tableau(i, j)
Next j
strMessage = strMessage & frag & vbLf
Next i

MsgBox strMessage

End Sub

il me fait une erreur a la ligne que j'ai marqué en orange et me dit kil y a incompatibilité de type

Puis je avoir de l'aide pour corriger ?

Merci d'avance

 

[mutzik]

Re : Msgbox

bonjour,

essaie le code en pas à pas (touche F8) et regarde à quel indice il provoque l'erreur

sinon tu peux tout passer en string avec cstring(mavaleur) ...

 

[edjo123]

Re : Msgbox

Quand je passe tout en string, l'erreur se produit ià partir d'ici

Tableau(2, 1) = Cells(6, 32).Value
Tableau(2, 2) = Cells(8, 32).Value
Tableau(2, 3) = Cells(9, 32).Value
Tableau(2, 4) = Cells(7, 32).Value

Normal puisque les valeurs de ces cellules sont des nombres

 

[mutzik]

Re : Msgbox

re,
je comprends bien, fais :
Tableau(2, 1) = cstring(Cells(6, 32).Value)

 

[edjo123]

Re : Msgbox

ci ca marche

 

[edjo123]

Re : Msgbox

Mais maintenant ce que j'aimerais c'est afire une presentation dans ma msgbox parceque ca me donne tout serré et c'est pas très joli à voir. Ya til un moyen de faire des espaces entreles éléments du tableau?