tri iteratif d'après combo

[Francis]

Bonjour le forum
Avec l’application ci-dessous je trie des articles suivant des valeurs d’une combobox, le résultat (les lignes filtrées) je le copie dans une autre feuille.
Tout marche bien.
Je voudrais balayer toutes les valeurs de la combo afin que le tri et la création des feuilles se fassent automatiquement .
Je pense qu’il faut ajouter une phrase du genre ' For each ComboBox1.Value….. ' mais là je cale.
Si quelqu’un a une idée, je suis preneur
Merci d’avance
Francis

'trie les articles
For L = Derligne To 10 Step -1
MotCherche = Application.Find(ComboBox1.Value, Cells(L, 4))
If Not (IsError(MotCherche)) Then
Cells(L, 4).EntireRow.Hidden = False
End If
Next L
'initialise la plage à copier
Set MaPlage = Range(Cells(1, 2), Cells(Derligne, 10))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
'Crée une feuille s'il ya lieu
Worksheets(ComboBox1.Value).Activate
If Err <> 0 Then Worksheets.Add.Name = ComboBox1.Value
Cells.Select
Selection.Delete Shift:=xlUp
'copie les lignes (données filtrées)
Dim Destination As Range
Set Destination = Sheets(ComboBox1.Value).Range('b1')
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
MaPlage.Copy Destination

 

[niki42]

Bonjour

A mon avis Ch'Ti je crois que tu as zappé un peu trop vite sur 'soumettre'!!
Et le fichier joint?

@++

Niki

😛 😛 😛 😛 😛

 

[Francis]

Bonsoir ChTi160
Et le forum
Tu as été plus vite que moi et tu as deviné ma pensée en ajoutant les phrases pour effacer les pages. Tout est Ok c’est exactement ce que je voulais.
Merci pour ton travail et longue vie au forum.
Francis

 

[ChTi160]

Salut Francis
bonsoir le fil
bonsoir le forum
Eh bien je suis très content que celà te convienne
n'hésites pas à revenir nous voir
bonne Soirée

 

[Francis]

Bonjour ChTi160 et le forum
Je suis de retour pour de l'aide plus vite que prévu.
Je rajoute une feuille masquée à mon classeur et ta macro se déroule mais ne fait rien.
Il faut surement ajouter une phrase qu'il y a une feuille cachée et de pas en tenir compte.Mais o&ugrave;?
Je me remets encore à toi.
Merci Chti160
Francis

 

[ChTi160]

Salut Francis de retour
bonjour le Forum
moi je rentre de chez le Kiné
tu as rajouté une feuille que tu as masquée
cette feuille n'est pas à prendre en compte dans la macro
c'est çà
alors donnes moi le nom de cette Feuille
et je reposte une autre version
Merci

 

[ChTi160]

re Francis une version5 qui permet l'ajout de feuilles Masquées
Attention
la macro doit être lancée Feuilles masquées 'MASQUEES'
tiens mois au courant

 

[Francis]

Bonsoir ChTi160 et le forum
Moi aussi j'étais parti. Mais tu a été plus vite que moi. 🙂 .
la feuille ajoutée et il n'y en aura q'une, je l'ai baptisée 'info'.
Et merci encore
A+
Francis