/VBA/Label de tableau dans des label.text en VBA

Label de tableau dans des label.text en VBA

Sub tableaux()
 Dim tableauLabel As Label(,) = {{Label1, Label2, Label3}, {Label4, Label5, Label6}, {Label7, Label8, Label9}}
 ' il y avait une virgule en trop entre les deux dernières accolades
 Dim TA(,) As String = New String(2, 2) {{"A", "B", "C"}, {"a", "b", "c"}, {"c", "d", "e"}}
 Dim i As Long
 Dim j As Long
 For i = 0 To 2
  For j = 0 To 2
  tableauLabel(i, j).Text = TA(i, j)
  Next j
 Next i
End Sub

Source: social.msdn.microsoft.com

Similar codes

2 votes154 views1 answer
Vba round number
VBA
5 votes174 views1 answer
Excel vba last byte from INTEGER
VBA
2 votes148 views1 answer
Excel vba check if string entirely numeric
VBA
4 votes142 views1 answer
Excel formula for last non-empty cell in a column
VBA
18 votes312 views2 answers
Vba make word from bytes
VBA
0 vote148 views1 answer
Vba extract filename from path
VBA
0 vote153 views1 answer
Rotate image by any angle vb.net
VBA
0 vote145 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote152 views1 answer
Show unix time in vba
VBA
0 vote152 views1 answer
Vba get application version
VBA