Changer la macro

[jacky49]

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.

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

 

[jacky49]

Re : Changer la macro

bonsoir,

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

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

 

[GCFRG]

Re : Changer la macro

Salut jacky, peux tu joindres ton fichier sans données personnelles, de façon à y voir plus clair?

Gilbert

 

[jacky49]

Re : Changer la macro

bonsoir le forum, GCFRG,

voici le fichier,
merci GCFRG de t'intérresser à mon problème.
jacky