[VBA-E]Remplissage tableau aléatoire

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

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, 11h54

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, 11h56

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, 12h01

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, 12h02

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, 12h04

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, 12h12

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, 12h22

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

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

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.