[VBA-E]Remplissage tableau aléatoire

**bernard38** · 08/06/2006, 10h52

Bjr,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**ouskel'n'or** · 08/06/2006, 10h54

Regarde Randomize et rnd, dans l'aide en ligne

A+

J'ai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vesta** · 08/06/2006, 10h56

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**bernard38** · 08/06/2006, 11h01

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.

**jmfmarques** · 08/06/2006, 11h02

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à :

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

**Vesta** · 08/06/2006, 11h04

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**bernard38** · 08/06/2006, 11h12

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 ?

**jmfmarques** · 08/06/2006, 11h22

Voilà !
Tu trouveras ton bonheur ici :
http://www.developpez.net/forums/sho...ight=aleatoire

**AlainTech** · 08/06/2006, 11h25

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.