C
carlos
Guest
bonsoir
j'ai ecris ce code qui regroupe toutes les valeurs de 1 jusqu'a 7 ensemble sur la meme feuille, je ne sais pas comment faire pour regrouper la meme chose sur une autre feuille nommée regrouper .
j'aimerais que le resultat soit directement orienté vers la feuille regrouper.
Sub RP()
Range('e5:k10').ClearContents
For n = 1 To 7
For i = 0 To 35
If Cells(5 + i, 3) = n Then Cells(Cells(10, 4 + n).End(xlUp).Row + 1, 4 + n) = Cells(5 + i, 2)
Next i
Next n
End Sub
merci
j'ai ecris ce code qui regroupe toutes les valeurs de 1 jusqu'a 7 ensemble sur la meme feuille, je ne sais pas comment faire pour regrouper la meme chose sur une autre feuille nommée regrouper .
j'aimerais que le resultat soit directement orienté vers la feuille regrouper.
Sub RP()
Range('e5:k10').ClearContents
For n = 1 To 7
For i = 0 To 35
If Cells(5 + i, 3) = n Then Cells(Cells(10, 4 + n).End(xlUp).Row + 1, 4 + n) = Cells(5 + i, 2)
Next i
Next n
End Sub
merci