karakoman1
XLDnaute Occasionnel
Bonjour le forum,
J'ai trouvé sur le net une petite macro qui répartit les données d'une colonne (dans l' exemple de 1000 lignes en 40 colonnes de 25 lignes) que je voudrais pouvoir personaliser selon mes besoins.
Un spécialiste des macros pourrait-il la commenter afin de pouvoir comprendre tout son fonctionnement.
Sub deplac()
Dim Col As Integer
Dim limit As Integer
Dim nbC As Integer limit = 25
nbC = 0
Col = 2 ' colonne B
lig = 0
'On boucle sur les 1000 cellules à partir de la 26eme
For i = limit + 1 To 1000
With ActiveSheet
nbC = nbC + 1
If nbC = limit + 1 Then
nbC = 1
Col = Col + 1
lig = 0
End If
lig = lig + 1
.Cells(lig, Col).Value = .Cells(i, 1).Value
.Cells(i, 1).Value = ""
End With
Next
End Sub
J'aimerais aussi savoir comment:
1 - Comment faire pour pouvoir choisir une autre colonne à scinder de la feuille ou une autre colonne sur une autre feuille.
2 - Est il possible et si oui, comment scinder la colonne suivant une valeur se trouvant dans une cellule plutot que la valeur 25 inscrite dans la macro
Merci d'avance à celui ou celle qui pourra éclairer ma lanterne
J'ai trouvé sur le net une petite macro qui répartit les données d'une colonne (dans l' exemple de 1000 lignes en 40 colonnes de 25 lignes) que je voudrais pouvoir personaliser selon mes besoins.
Un spécialiste des macros pourrait-il la commenter afin de pouvoir comprendre tout son fonctionnement.
Sub deplac()
Dim Col As Integer
Dim limit As Integer
Dim nbC As Integer limit = 25
nbC = 0
Col = 2 ' colonne B
lig = 0
'On boucle sur les 1000 cellules à partir de la 26eme
For i = limit + 1 To 1000
With ActiveSheet
nbC = nbC + 1
If nbC = limit + 1 Then
nbC = 1
Col = Col + 1
lig = 0
End If
lig = lig + 1
.Cells(lig, Col).Value = .Cells(i, 1).Value
.Cells(i, 1).Value = ""
End With
Next
End Sub
J'aimerais aussi savoir comment:
1 - Comment faire pour pouvoir choisir une autre colonne à scinder de la feuille ou une autre colonne sur une autre feuille.
2 - Est il possible et si oui, comment scinder la colonne suivant une valeur se trouvant dans une cellule plutot que la valeur 25 inscrite dans la macro
Merci d'avance à celui ou celle qui pourra éclairer ma lanterne