Création de feuilles par groupe de doublons
p
Bonjour à Tous.
besoin d'aide sur une macro
pour ne pas être trop bavard, je vous présente ma macro qui me permet de classer les lignes d'une feuille par ordre de doublons en colonne "B", sans toute fois supprimer un doublon.
mon problème réside dans la complexité d'imprimer autant de feuille qu'il y a de groupes de doublons et chaque feuille bien-sur ne comprenant qu'une liste de doublons.
je ne sais pas trop, mais après mes recherche je penses qu'il faut faire intervenir une boucle Do While, que je ne maitrise pas vraiment
Sub Classement()
'
' Classement Macro
' Permet d'extraire une copie des données vers une nouvelle feuille de traitement sur laquelle seront classées les données suivant un ordre croissant
'
'
Rows("11:22").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A2").Select
ActiveSheet.Paste
Columns("B:B").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1:B14") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:I14")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Subje vous rémeci déjà du temps que vous m'accorderez
bonjour pbfonjouom le forum
tu joins un petit fichier et on va te faire cela
a+
Papou