|
En activant la macro, les différentes lignes du tableau 
seront triées et distribuées dans différentes feuilles . 
Attention, il n'y a pas de contrôle d'erreurs dans la procédure...donc il y aura une erreur à l'exécution si on lance 2 fois de suite la macro (parce que les feuilles existeront déjà).
Option Explicit
Sub Distribution()
'Ti
Dim Plage As Range, Cel As Range, Ligne As Range
Dim Precedent
Application.ScreenUpdating = False
With Worksheets("Feuil1")
'A4 = première cellule de la colonne A
Set Plage = .Range("A4", .Range("A65536").End(xlUp))
End With
'détermination rapide de la plage à trier. Le tableau
'doit être bien délimité
Plage.CurrentRegion.Sort key1:=Plage.Cells(1, 1)
For Each Cel In Plage
If Cel <> Precedent Then
With ThisWorkbook
With .Worksheets.Add(After:=Worksheets(.Worksheets.Count))
Set Ligne = .[A1]
.Name = Cel
End With
End With
End If
Precedent = Cel
If Cel <> "" Then
Cel.EntireRow.Copy Ligne
Set Ligne = Ligne.Offset(1, 0)
End If
Next Cel
Application.ScreenUpdating = True
End Sub
Date de création : 24/05/2005 - 18:55
Dernière modification : 25/05/2005 - 22:58
Catégorie : Feuille
Page lue 336 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Bravo !
Quelle modification doit-on apporter au code pour voir enfin les lignes s'écrire au fur et à mesure de la création des pages ?
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 46
Haut 
