nombre aleatoire via macro

[drisou]

bonjour le forum, j ai tableau contenant 7 colonnes et une quarantaine de lignes , dans chaque colonne j ai 32 cellules vides dans lesquels je dois entrer des nombres de 1 a 32 sans qu il y est 2 fois le meme nombre dans la meme colonne , le reste des cellules sont deja rempli par des x. pour cela j ai une macro qui me rempli les cellules vides par les nombres, mais il me les rempli tj dans le meme ordre c est a dire de 1 a 32 et ce que je souhaiterais c est qu il me rempli les cellules par des nombres aleatoire compris entre 1 et 32.
voici ma macro.


Sub Verif()
'Déclaration des variables
Dim Cel As Range, Reponse As Integer, i As Integer
'ici on initialise un tableau (array) dans la mémoire de l'ordi
Dim MesSv(1 To 32)

'On scanne les 40 cellules dans la colonne où se trouve le curseur
'Exemple de B2 à B41, la ligne 1 est occupée avec les entêtes de notre tableau
For Each Cel In Range(Cells(7, Selection.Column), Cells(70, Selection.Column))
'ici on remplit notre array avec des true ou des false
For i = 1 To 32
'Si la cellule contient la valeur de i
If Cel = i Then
'on place à true
MesSv(i) = True
End If
Next
Next

'Après traitement mettre les Sv en place
For i = 1 To 32
If MesSv(i) = False Then
Reponse = MsgBox('Le Sv ' & i & ' n'est pas attribué, Voulez-vous le distribuer', vbYesNo, 'SERVICES SEMAINE')
'si la réponse est oui
If Reponse = 6 Then
'pour trouver la première cellule vide de la colonne
For Each Cel In Range(Cells(7, Selection.Column), Cells(70, Selection.Column))
Cel.Select 'pas nécessaire mais cela permet de visualiser où l'on se trouve
If Cel = '' Then
Cel = i
'ici si on vient de remplir la cellule on doit quitter la boucle for each
GoTo Poursuite
End If
Next
ElseIf Reponse = 7 Then
'idem si on repond non, on quitte la boucle
GoTo Poursuite
End If
End If
'point de repère pour le Goto
Poursuite:
Next
End Sub

merci pour votre aide.

 

[bebere]

bonsoir Drisou
ds la pièce jointe tu trouveras plusieurs exemples
à bientôt [file name=TirageLoto.zip size=3252]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TirageLoto.zip[/file]

 

[drisou]

merci bebere , les methodes sont superbes , mais le prob c est que moi je souhaite qu il me mette des nombres uniquement dans les cellules vides, or la il met des nombres meme dans les cellules ou j ai manuellement mis de valeurs et par consequent ce que j ai mis manuellemnt est effacé. merci

 

[bebere]

bonsoir

j'ai essayé le code suivant

Sub Aleatoire(NbTirés, Parmi, outArr())
'Denis Michon mpfe
Dim i As Integer, j As Integer
ReDim outArr(1 To NbTirés)
Do
i = Int(Rnd() * Parmi + 1)
If IsError(Application.Match(i, outArr, 0)) Then
j = j + 1
outArr(j) = i
End If
Loop Until j = NbTirés
End Sub

'exemple d'utilisation
Sub test()
dim l As Integer,cel as range
Dim Arr()
NbTirés = 32
Parmi = 32
Aleatoire NbTirés, Parmi, Arr
'Sheets.Add
'içi teste si cellule vide et met un item de arr
For Each Cel In Range('B2:B70')
If Cel = '' Then
l = l + 1
Cel.Value = Arr(l)
End If
Next Cel
End Sub
à bientôt

 

[drisou]

re bebere, la macro ne fonctionne pas elle me dit variable non defini ici:'
Dim l As Integer, cel As Range
Dim Arr()
NbTirés = 32

merci

 

[drisou]

re bonsoir, je vais etre un plus precis parce que c est vrai que je manque de precision; bebere la macro que tu ma donné marche ,si j enleve option explicite , donc je souhaite que la macro remplisse les cellules vides de la colonne b mais dans cette colonne il ya des cellules ou figure des valeurs numerique entré manuellement car ce sont des donnees precises . dans cette colonne doivent etre compris les valeurs entre 1 et 32 donc comme j entre certaines de ces valeurs manuellement lorsque je lance la macro il me met des nombres que j ai deja entré manuellement, ce que j aurais voulu c est que la macro me mette des nombres entre 1 et 32 mais en tenant compte des nombres qui sont deja dans les cellules de facon a ne pas avoir de doublons entre ceux mis par la macro et ceux entré manuellement.
merci

 

[Hervé]

Bonsoir drisou, bebere, le forum

Drisou, si j'ai bien compris, une proposition en pièce jointe.

salut
[file name=Classeur2_20050917001112.zip size=8739]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050917001112.zip[/file]

 

[drisou]

salut herve , merci c tt a fait ca j ai recopier ton code et je l ai collé dans un module , mais il ne veut pas se lancer il me met 'erreur d execution 6' depassement de capacité.
cette ligne est en jaune dans vb: tablo(i - 1) = Cells(i, 2)

merci.

 

[Hervé]

salut drisou, le forum

essaye de remplacer les byte par des integer.

Sinon, pourrais tu nous joindre ton fichier qui bug, ca serait plus simple.

salut

 

[drisou]

re herve voici le fichier planning regarde dans l onglet 'hor'. la colonne b. donc la plage ou doivent etre compris mes nombres est b7:b70.

 

[drisou]

re [file name=planing.zip size=30963]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planing.zip[/file]

 

[Hervé]

re tout le monde

Drisou, j'ai quelques difficultés à comprendre ton systeme.

Tu voudrais placer 32 chiffres àléatoires, mais tu n'a comme implacement de libre (entre les lignes 7 et 70 ) que 27 cellules dispo.

donc en pièce jointe, j'ai limité à 27 le nombre d'aléatoires.

salut

 

[drisou]

re herve c est vrai j ai oublié car ces nombres sont des services que j affecte a chaque chauffeurs , il y en a 27 la semaine et 32 le week end

 

[Hervé]

Bonjour drisou, bebere, le forum

Ben y'a pas ma pièce jointe dans mon post de cette nuit :S

Pourtant j'était sur de l'avoir mis (faut croire que non)

Bon alors je la remet ici.

salut

Message édité par: Hervé, à: 17/09/2005 14:28

 

[Hervé]

re

bon, nouvelle tentative planning.zip

salut

Edition : ouf
[file name=planning_20050917143440.zip size=33832]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planning_20050917143440.zip[/file]

Message édité par: Hervé, à: 17/09/2005 14:34