Dim tablo(1 To 3, 1 To 3) As String tablo(1, 1) "K": tablo(1, 2) "cuivre": tablo(1, 3) = "alu" tablo(2, 1) "PR": tablo(2, 2) "143": tablo(2, 3) = "94" tablo(3, 1) "PVC": tablo(3, 2) "115": tablo(3, 3) = "76" Sheets("feuil1").Range("A1:C3").Value = tablo
affiche = "" For i = 1 To UBound(tablo, 1) For j = 1 To UBound(tablo, 2) montab IIf(j 3, "", vbTab) affiche = affiche & tablo(i, j) & montab Next affiche = affiche & vbCrLf Next MsgBox affiche
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question