D
David
Guest
Bonjour le forum
Voici un extrait de code qui me permet de parcourir des éléments situés en colonne 1 d'une feuille pour ensuite les dispatcher dans d'autres feuilles.
Le problème(eh oui, il y en a un), c'est que la procédure me parcours l'ensemble des cellules 1 fois et donc, comme vous vous en doutez certainement, si j'ai 50 lignes, 15 titi et 35 toto, je n'aurai qu'un titi dans la feuille titi et, pas un de plus ni dans une autre feuille car la boucle ne se fait pas avec next cellule
Je ne sais donc pas quoi utiliser pour qu'il me parcours l'ensemble des cellules de ma colonne
Je vous remercie
Sub compte()
Dim cpt As Integer
Dim plage As Range
Dim ligne As Range
Sheets("LISTE ").Select
Set ligne = Range("a2:c2")
Set plage = Range("a2", [a2].End(xlDown))
nbcellule = plage.Count
For Each cellule In plage
If ActiveCell.Value = "titi" Then
ligne.Rows(ligne.Row).Copy
Sheets("titi").Select
ActiveSheet.Paste
selection.Offset(1, 0).Select
End If
Sheets("liste ").Select
Application.CutCopyMode = False
selection.Offset(1, 0).Select
If ActiveCell.Value = "toto" Then
selection.entirerow.copy
Sheets("toto").Select
ActiveSheet.Paste
selection.Offset(1, 0).Select
Sheets("liste ").Select
Application.CutCopyMode = False
selection.Offset(1, 0).Select
End If
Next cellule
End Sub
Voici un extrait de code qui me permet de parcourir des éléments situés en colonne 1 d'une feuille pour ensuite les dispatcher dans d'autres feuilles.
Le problème(eh oui, il y en a un), c'est que la procédure me parcours l'ensemble des cellules 1 fois et donc, comme vous vous en doutez certainement, si j'ai 50 lignes, 15 titi et 35 toto, je n'aurai qu'un titi dans la feuille titi et, pas un de plus ni dans une autre feuille car la boucle ne se fait pas avec next cellule
Je ne sais donc pas quoi utiliser pour qu'il me parcours l'ensemble des cellules de ma colonne
Je vous remercie
Sub compte()
Dim cpt As Integer
Dim plage As Range
Dim ligne As Range
Sheets("LISTE ").Select
Set ligne = Range("a2:c2")
Set plage = Range("a2", [a2].End(xlDown))
nbcellule = plage.Count
For Each cellule In plage
If ActiveCell.Value = "titi" Then
ligne.Rows(ligne.Row).Copy
Sheets("titi").Select
ActiveSheet.Paste
selection.Offset(1, 0).Select
End If
Sheets("liste ").Select
Application.CutCopyMode = False
selection.Offset(1, 0).Select
If ActiveCell.Value = "toto" Then
selection.entirerow.copy
Sheets("toto").Select
ActiveSheet.Paste
selection.Offset(1, 0).Select
Sheets("liste ").Select
Application.CutCopyMode = False
selection.Offset(1, 0).Select
End If
Next cellule
End Sub