1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Dim tablo() As Variant
'##########################################################################################################################
Sub saisieTableau()
Dim dimension As Variant, i As Integer
recom:
dimension = InputBox("Introduisez la dimension du tableau (de 1 à 10)", "Dimension Tableau")
If dimension = "" Then
Select Case MsgBox("Vous n'avez rien introduit" & vbLf & "Voulez-vous quitter la procédure ?", vbQuestion + vbYesNo)
Case vbYes: Exit Sub
Case Else: GoTo recom
End Select
End If
If dimension < 1 Or dimension > 10 Then
MsgBox "Veuillez introduire un nombre de 1 à 50", vbExclamation
GoTo recom
End If
ReDim tablo(2, dimension - 1)
For i = 0 To UBound(tablo, 2)
tablo(1, i) = InputBox("Veuillez saisir la valeur n° " & i + 1 & " de la 1ère colonne du tableau")
tablo(2, i) = InputBox("Veuillez saisir la valeur n° " & i + 1 & " de la 2ème colonne du tableau")
Next
afficheTableau
End Sub
'##########################################################################################################################
Sub afficheTableau()
Dim i As Integer, strTablo As String
For i = 0 To UBound(tablo, 2)
strTablo = strTablo & Chr(10) & tablo(1, i) & Space(7) & tablo(2, i)
Next
MsgBox strTablo
End Sub
'##########################################################################################################################
Sub test()
saisieTableau
End Sub |
Partager