programmation

[jéjé]

bonjour a toutes et a tous,
je voudrais savoir comment faire pour réaliser une procédure qui remplisse la zone A1:A8 de nombre aléatoires compris entre 0 et 100.

Et faire une 2eme fonction du même genre mais cette fois ci remplissant le zone A1:E12.

Tout ceci réalisé a partir de fonction sub() ; cells( , )

merci par avance

 

[Charly2]

Bonsoir Jéjé,

Encore un DM ???

Voici le code :

Sub Remplit_A1_A8()
'
Dim Ligne As Integer
'
  For Ligne = 1 To 8
    Cells(Ligne, 1) = Int(101 * Rnd)
  Next Ligne
End Sub


Sub Remplit_A1_E12()
'
Dim Ligne As Integer
Dim Colonne As Integer
'
  For Ligne = 1 To 12
    For Colonne = 1 To 5
      Cells(Ligne, Colonne) = Int(101 * Rnd)
    Next Colonne
  Next Ligne
End Sub

En espérant que cela te convienne

Amicalement
Charly

PS : Tu nous diras quelle note tu as eue