Selectionner des lignes identique

[Mickael]

Bonjour a tous.

Voila, j'ai un tableau XLS, et je voudrai copier automatiquement les lignes qui contienne la meme valeur sur la colonne B.

Je ramme depuis un petit bout de temps alors voila .....HELP.

Merci a tous.

 

[mara58]

Salut
Je t'ai fait un petit exemple de recherche de douiblons sans macros
basé sur 1 tableau croisé dynamique.
Il existait aussi la solution de avec la fonction nb.si(plage;critère)
Je suis parti sur ma première idée ....
Cordialement

 

[RENATO]

bonjour Mickael et Mara,

Voici autre chose en VB, les lignes dont la valeur est identique en colonne B sont reportées sur un autre onglet.

Sub ReporteLignesMValeurs()

Columns("A:A").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.End(xlDown).Select
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "CRITERE"
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("c2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With [A1].CurrentRegion
.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(1, 0).Formula = "=IF(OR(RC[2]=R[-1]C[2],RC[2]=R[1]C[2]),TRUE,FALSE)"
.AutoFilter 1, True
Worksheets.Add
.CurrentRegion.Copy [A1]
End With
End Sub

A bientôt

Rénato

 

[Mickael]

Merci beaucoup pour vos reponces.

Je viens de passer du temps à essayer de les faire marcher mais sans reultat.
en fait dans ma colonne B il y a des doublons. J'arrive a les trier sans probleme.....(trop dure!!!). Non mon probleme c'est que je voudrai pouvoir les triers pour couper ceux qui sont identique et les mettres sur une autre feuille. mais une feuille par reference identique.

Enfin voila, pour l'instant je le fait à main mais j'ai 15 000 lignes alors c'est un peu long.

Si vous avez une idée je suis preneur.

Mickaël

 

[RENATO]

Bonjour Mickael,

Peux-tu déposer en piece jointe un extrait de ton fichier afin que je teste le code ?

A bientôt

Rénato