Discussion :

[Novice72]

Bonjour,

J'ai une feuille intitulée "liste alphabétique" dans laquelle il y a plusieurs colonnes ( Nom / Adresses / etc... et la colonne "Race" )

rem : cette colonne "Race" correspond aux différentes sortes de races de vaches pour les concours.....


Dans cette colonne "race" existe les
38-38M
38-38F
41-41M
41-41F
et bien d'autres.........

Mon objectif est de reprendre cette colonne et de créer une feuille par race ( Tri vers feuille )

Pour le moment, j'ai réussi à créer des feuilles en fonction des races et, j'ai recopié la liste principale sur chacune des feuilles.

Mon problème est donc le suivant :

Si je reprends la feuille 38-38M par exemple, je souhaiterais supprimer toutes les lignes ayant autre chose que "38-38M" comme race. Il faut donc comparer chaque cellule de la colle H avec le nom de la feuille et supprimer ou non cette ligne. Là est mon problème. Est-ce que quelqu'un peut m'aider ???

Merci d'avance.


Novice72

[Invité]

Bonjour,

Une solution possible sans VBA en créant un TCD basé sur vos races. Un double clic sur chaque ligne du TCD va générer une nouvelle feuille ne contenant que les enregistrements relatifs à la race choisie.

[Theze]

Bonjour,

Une piste.
Tout d'abord, tu copie autant de fois ta feuille que tu as de races, tu les renommes avec le nom de chaque race et ensuite, tu colles le code ci-dessous dans un module standard et tu l'exécutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim I As Long
 
    For Each Fe In Worksheets
 
        With Fe: Set Plage = .Range(.Cells(2, 8), .Cells(.Rows.Count, 8).End(xlUp)): End With
 
        For I = Plage.Count To 1 Step -1
 
            If Plage(I).Value <> Fe.Name Then Plage(I).EntireRow.Delete
 
        Next I
 
    Next Fe
 
End Sub

[Novice72]

Bonjour et merci à vous deux.

En effet, grâce à vous, mon tri fonctionne ( création feuille + suppression ligne inutile )


Cordialement.


Novice72.

[Marc-L]

Bonjour,

en plus efficace sans boucler sur les cellules ni supprimer des lignes :  un filtre ou encore un filtre avancé  …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …