Que faut il ajouté ?

[jacky49]

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 :
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
jacky

 

[mfb]

Re : Que faut il ajouté ?

Bonjour à tous.
Pierre jean excuse moi si je triture ta macro.

Jacky es ce que cela te conviens ?
Cela semble marcher.

Sub testSMF()
Range("feuil2!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

ligne = 7
col = 31
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
Sheets("Feuil2").Activate
Cells(ligne, col) = Range("feuil1!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

Sheets("Feuil2").Activate
Range("AF2") = nombredepoules

End Sub

A+
Daniel

 

[jacky49]

Re : Que faut il ajouté ?

bonsoir le forum,mfb,

merci beaucoup, cela fonctionne.
a+
jacky