[VBA-E]Remplissage tableau aléatoire

Version imprimable

Bjr,

Code:

1
2
3
4
5
6
7
8
9
10
Sub RemplisAléatoire()
  Dim x(1 To 10, 1 To 2) As Integer
 
  For comp1 = LBound(x, 1) To UBound(x, 1)
   For comp2 = LBound(x, 2) To UBound(x, 2)
     x(comp1, comp2) = comp1 * comp1
     Next comp2
  Next comp1
  Range(Cells(1, 1), Cells(10, 2)).FormulaArray = x
End Sub

Où est mon erreur pour mettre des nombres différents dans les deux colonnes?

08/06/2006, 10h54
ouskel'n'or
Regarde Randomize et rnd, dans l'aide en ligne ;)

A+

J'ai ça
Code:

1 2 3 4 Sub Aléatoire() Randomize Valeur = Int((6 * Rnd) + 1) End Sub
ou 6 est le nombre max des valeurs que tu souhaites obtenir

Code:

1
2
3
4
5
6
7
8
9
10
Sub RemplisAléatoire()
  Dim x(1 To 10, 1 To 2) As Integer
 
  For comp1 = LBound(x, 1) To UBound(x, 1)
   For comp2 = LBound(x, 2) To UBound(x, 2)
     x(comp1, comp2) = comp1 * comp1 * Rnd(100)
     Next comp2
  Next comp1
  Range(Cells(1, 1), Cells(10, 2)).FormulaArray = x
End Sub

Je ne sais pas ce que tu veux faire...

08/06/2006, 11h01
bernard38

Je veux juste remplir mon tableau avec des chiffres aléatoires.
J'ai vu la fonction randomize mais mon problème c'est d'afficher des chiffres différents dans les colonnes ou dans chaque cellules du tableau.
08/06/2006, 11h02
jmfmarques

Après que tu auras bien voulu ajouter à ton titre le tag (voir règles de ce forum) VBA-E, on pourra discuter de cet aspect là :

Citation:

Où est mon erreur pour mettre des nombres différents dans les deux colonnes?

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub RemplisAléatoire()
  Dim x(1 To 10, 1 To 2) As Integer
  NbMax = 10
 
  For comp1 = LBound(x, 1) To UBound(x, 1)
   For comp2 = LBound(x, 2) To UBound(x, 2)
     x(comp1, comp2) = Int(NbMax * Rnd)+1
     Next comp2
  Next comp1
  Range(Cells(1, 1), Cells(10, 2)).FormulaArray = x
End Sub

Et fait ce que jmfmarques a dis hein... Sinon on répond plus :D

08/06/2006, 11h12
bernard38

VBA-E Remplissage tableau aléatoire

Désolé je ne trouve pas la signification de TAG dans les règles du Forum pour le titre
Que faut-il rajouter au juste ?
VBA-E ?
08/06/2006, 11h22
jmfmarques

Voilà !
Tu trouveras ton bonheur ici :
http://www.developpez.net/forums/sho...ight=aleatoire
08/06/2006, 11h25
AlainTech

Bon, d'accord, cette règle est un peu cachée...

Elle est là:

http://vb.developpez.com/regles/#LII-2

J'ai mis le tag pour toi. Penses-y à l'avenir.
[VBA-E] veut dire VBA Excel.
08/06/2006, 11h27
bernard38

Le "Voilà" c'est pour le titre ?
08/06/2006, 11h32
jmfmarques

Oui... Sinon je n'aurais plus répondu...;)
08/06/2006, 11h34
bernard38

OK
Je ne recommencerai plus ! Promis !
Merci à tous