Discussion :

[jacfld49]

Bonsoir le forum,

J'ai une macro( faite par Pierre Jean) avec lequel je récupère des donnée de la colonne A et que je replace dans les cellules de AE7 à AU12 sur la même feuille(SMF). Ce que je voudrais faire, c'est mettre c'est données sur une autre feuille .
Je voulais savoir ce qu'il faut ajouté à mon code:
le voici:

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
Sub testSMF()
Range("AE7:AU13").ClearContents
ecartparpoule = 0
nbdossards = Range("A65536").End(xlUp).Row - 5
If Int((nbdossards) / 6) <> ((nbdossards) / 6) Then
  nombredepoules = Int((nbdossards) / 6) + 1
Else
  nombredepoules = (nbdossards) / 6
End If
Range("AF2") = nombredepoules
ligne = 7
col = 31
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
  Cells(ligne, col) = Range("A" & n)
  col = col + pas
  If col = 31 + 3 * nombredepoules Or col = 28 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
End Sub

merci beaucoup de votre aide
jack

[fred65200]

bonjour,
en vert les ajouts.

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
Sub testSMF()
SHEETS("TAFEUILLE").Range("AE7:AU13").ClearContents
ecartparpoule = 0
nbdossards = Range("A65536").End(xlUp).Row - 5
If Int((nbdossards) / 6) <> ((nbdossards) / 6) Then
  nombredepoules = Int((nbdossards) / 6) + 1
Else
  nombredepoules = (nbdossards) / 6
End If
SHEETS("TAFEUILLE").Range("AF2") = nombredepoules
ligne = 7
col = 31
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
  SHEETS("TAFEUILLE").Cells(ligne, col) = Range("A" & n)
  col = col + pas
  If col = 31 + 3 * nombredepoules Or col = 28 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
End Sub

As-tu compris le code?
@+

[jacfld49]

BONSOIR LE FORUM, fred65200,

merci beaucoup , cela fonctionne impeccable.
à la prochaine fois .
jacky