Discussion :

[jacfld49]

bonsoir le forum,

Voici une macro faite par Pierre Jean qui me va très bien pour un fichier (les poules sont faites dans un ordre données)mais que je voudrais modifier pour un autre fichier ou les poules seraient aléatoire mais par contre qui se place au même endroit.

Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub testSMF()
Sheets("Série").Range("B7:R12").ClearContents
'nbdossards = Range("A65536").End(xlUp).Row - 4
'If Int((nbdossards) / 6) <> ((nbdossards) / 6) Then
  'nombredepoules = Int((nbdossards) / 6) + 1
'Else
  'nombredepoules = (nbdossards) / 6
'End If
'Range("Q4") = nombredepoules
If Range("Q4") <> "" Then
  nombredepoules = Range("Q4")
Else
  MsgBox ("Donnez le nombre de poules")
  Exit Sub
End If
ligne = 7
col = 2
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
  Sheets("Série").Cells(ligne, col) = Range("A" & n)
  col = col + pas
  If col = 2 + 3 * nombredepoules Or col = -1 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
Sheets("Série").Select
End Sub

Quel endroit de la macro faut il changer SVP
merci d'avance
jacky

[jacfld49]

bonjour,
je remonte le fil pour savoir si quelqu'un peut m'aider à faire un tirage aléatoire en respectant le placement mis dans la macro.
merci
jacky

[drakkar_agfa]

Bonjour,

Je n'ai pas lu le code mais, que veux-tu dire par

mais que je voudrais modifier pour un autre fichier ou les poules seraient aléatoire mais par contre qui se place au même endroit.

Je ne comprends pas vraiment...

Merci

[jacfld49]

bonsoir,

voila en faite voici ce que je voudrais qui reste au code(c'est l'emplacement ou sont misent les poules).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub testSMF()
Sheets("Série").Range("B7:R12").ClearContents
If Range("Q4") <> "" Then
  nombredepoules = Range("Q4")
Else
  MsgBox ("Donnez le nombre de poules")
  Exit Sub
End If
ligne = 7
col = 2
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
  Sheets("Série").Cells(ligne, col) = Range("A" & n)
Next n
Sheets("Série").Select
End Sub

j'espere etre plus clair , dans la macro, il y a l'emplacement ou sont crées les poules(feuilles séries et cellules B7:R12)et le demarrage, ligne = 7,col = 2 et pas = 3)
merci
jacky