A voir également:
- [VBA Excel] tableau à dimension paramétrée
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Code ascii tableau - Guide
- Aller à la ligne excel - Guide
- Tableau word - Guide
3 réponses
Utilisateur anonyme
30 oct. 2007 à 13:22
30 oct. 2007 à 13:22
Bonjour,
exemple type :
Lupin
exemple type :
Sub Tableau() Dim MonTableau() As Currency Dim Boucle As Integer, Compt As Integer Dim strMessage As String For Boucle = 1 To 100 ReDim Preserve MonTableau(Boucle) MonTableau(Boucle - 1) = 5 * Boucle Next Boucle For Boucle = 1 To 10 For Compt = 1 To 10 strMessage = strMessage & MonTableau((Boucle * Compt) - 1) & " - " Next Compt strMessage = strMessage & vbLf Next Boucle MsgBox strMessage End Sub '
Lupin
irem
Messages postés
164
Date d'inscription
mardi 22 mai 2007
Statut
Membre
Dernière intervention
9 octobre 2012
99
7 juin 2007 à 14:11
7 juin 2007 à 14:11
fait plutot
dim MyTableau
Redim MyTableau(m)
ca devrait marcher, attention le tableau va se vider, autrement utiliser Redim Preserve
Irem
dim MyTableau
Redim MyTableau(m)
ca devrait marcher, attention le tableau va se vider, autrement utiliser Redim Preserve
Irem