faire un tableau en VBA

[micheline]

bonjour,

J' aurai besoin d'un petit coup de pousse car j'essyae de faire ce programme mais je n'y arrive pas .

"Remplir avec 10 nombre entiers, tirés aléatoirement ( entre 0 et 99 , les deux compris) , un tableau ( à une dimension) puis faire afficher ce tableau à raison d'une valeur par ligne."

merci d'avance

bon apre'm

 

[Celeda]

Bonjour,


en attendant les réponses vba :


pour une bonne approche sur les tableaux une adresse sûre!!!

le Kiki de Zon!!!!!!!!

suivre le Kiki ......oui mais le Kiki de qui ??

celui de Zon!!!(et pour actualiser la page F5)

et où on trouve le Kiki de Zon ?

et bhé .......... sur le moteur du

WIKI de XLD!!!!

n'oubliez pas le Kiki de Zon !!!!!!

y'en a qu'un de Kiki et en plus il est en bonne compagnie avec toutes les autres pages des XLDiens !!!

Celeda

 

[Lord Nelson]

Salut Micheline,

Voici une petite macro qui répond à ton problème :

Sub Tirage_10_Numéros()
Dim I As Byte, Num As Byte
Randomize Timer
For I = 0 To 9
Num = Int(100 * Rnd)
Cells(ActiveCell.Row + I, ActiveCell.Column) = Num
Next
End Sub

La série de numéros s'affiche à partir de la cellule active.

A+
Horatio

 

[myDearFriend]

Bonjour Micheline, Celeda, le Forum.


Sub Aleatoire()
Dim Tableau(1 To 10, 1 To 1) As Variant
Dim L As Byte
   'Initialiser le générateur de nombres aléatoires
   Randomize
   'Trouver 10 valeurs aléatoire entre 0 et 99
   For L = 1 To 10
      Tableau(L, 1) = Int(100 * Rnd)
   Next L
   'Mettre à jour la plage de cellule
   ActiveSheet.Range("A1:A10").Value = Tableau
End Sub


Pour trouver le nombre entier aléatoire on applique :

   Int((BorneSupérieure - BorneInférieure + 1) * Rnd + BorneInférieure)

Par ailleurs, pour forcer l'aléatoire, il convient de faire précéder cette fonction par l'instruction Randomize. En effet, sans cette instruction, la série de nombres "aléatoires" sera toujours la même...


Cordialement,
Didier_mDF

 

[myDearFriend]

Oups, désolé Lord Nelson... on a échappé de peu à l'accident !

Didier_mDF

 

[Lord Nelson]

Pas de Pb Didier, nous disons à peu près la même chose.
A+

 

[@+Thierry]

Bonjour Celeda, Micheline, l'Equipe de Choc : Didier/Horatio

Je n'ai pas vu le kiki de Zon (ouf lol), mais par contre je suis content de te croiser Celeda depuis tout ce temps et je te fais une grosse bise.

Et bien sûr je suis aussi content de te croiser Didier, mais on a déjà eu l'occasion de se croiser dans le Tchat, quant à mon Amiral, c'est toujours un plaisir

Sinon voici aussi une variante au cas où on ne veut absolument pas de doublons dans les dix retournés.

Option Explicit

Sub TabAleatoire()
Dim TheCol As Collection
Dim TheColItem As Variant
Dim TheTab(10) As Byte
Dim TheNum As Integer
Dim TheNumber As String
Dim i As Byte
Dim X As Byte

Set TheCol = New Collection

  On Error Resume Next
     For i = 0 To 99
       Randomize (i)
       TheNum = Int((100 * Rnd))
       TheCol.Add TheNum, CStr(TheNum)
     Next
  On Error GoTo 0

    For Each TheColItem In TheCol
       TheTab(X) = TheColItem
       X = X + 1
        If X = 10 Then Exit For
    Next

'ICI c'est juste pour vider le tableau vers un MsgBox et la feuille active...
    For i = 0 To 9
       TheNumber = TheNumber & vbTab & TheTab(i) & vbCrLf
       Range("A" & Range("A5000").End(xlUp).Row + 1) = TheTab(i)
    Next

MsgBox "Voici vos dix numéros tirés au sort aléatoirement sans doublon" & vbCrLf & TheNumber

End Sub

Pour la petite histoire, curieusement j'avais fait ceci logiquement :
   On Error Resume Next
     For i = 1 To 10
       Randomize
      TheNum = Int((100 * Rnd))
      TheCol.Add TheNum, CStr(TheNum)
     Next
On Error GoTo 0

Et sur beaucoup de tests, je me suis retrouvé avec deux retours de zéro... Enfin bon, je ne sais pas, ce doit être le resume next qui me fait un tour, en tout cas ça n'a pas l'air de le faire avec la boucle plus haut...

Mais peut-être ce n'est pas le besoin de Micheline.

Bon Dimanche à tous et toutes
@+Thierry

 

[Lord Nelson]

Bonsoir à tous les exceldiens du dimanche,
et particulièrement à Celeda, Micheline (bien que tu aies cassé le fil !), Didier, Thierry que j'ai toujours grand plaisir à croiser.
Bon vent à tous !
Horatio

 

[Celeda]

Bonjour,


Moi zossi un gros poutoune à vous messieurs les excellents vébéhasites !!!!

J'adore vos macros!!!


à propos du Kiki de Zon, tu l'as pas trouvé @+THierry ???
cela ne m'étonne pas, il se fait tellement discret le Kiki
si tu as le temps, tu passeras me prendre
et on fera le tour du forum bras dessous bras dessus
en pensant un peu à se détendre
et aussi je te parlerai de ces tableaux là qui sont pour moi de vrais rébus!!

Zibous Thierry

Celeda