Boucle vba pour classer des critères

Bonjour,
Je bloque sur un problème (assez simple je pense...) de tri de critères :
Une colonne Type, avec 4 critères sélectionnables. L'utilisateur peut choisir d'afficher un ou plusieurs de ces critères.
J'utilise un filtre élaboré pour la suite de ma macro et par conséquent je ne dois pas avoir de cases vides entre 2 critères, sauf que je n'arrive pas à coder cette partie.
Le fichier excel en pj sera plus clair.

Merci

Bonjour,
Pourquoi n'affiche-tu pas une image de ta feuille contenant tes critères en expliquant ce que tu souhaites obtenir ?
Un forum a pour but de partager des questions et réponses que chacun peut lire depuis ce site. Proposer d'emblée un classeur à télécharger coupe tout partage et est assimilé pour moi à un aparté.
De plus tu te coupes de réponses potentiellement intéressantes des personnes qui ne télécharge jamais les classeurs proposés dès l'ouverture d'une discussion.

Le programme que j'utilise est utilisé en interne et est contient pas mal de données confidentielles, raison pour laquelle je ne peux pas me permettre de le diffuser librement sur un forum...Sinon effectivement cela aurait été plus simple pour moi et pour vous.

Bonjour,
Mais place l'image de la feuille que tu proposes en téléchargement.

De ce style ?

Plutôt comme ça je pense ;)

Pièce jointe 154100

Bonjour,
Nicolas a très bien compris

Bon merci à toi Nicolas, autant pour moi.
Mais je ne vois pas l'interêt de l'image, ça me semble plus facile à travailler sur excel, bref.
Du coup vous auriez une idée de code pour résoudre le pb ?

Bonjour,
Tu dis utiliser le filtre élaboré. Dans un filtre élaboré, il y a au moins deux zones, la zone des critères et la zone des données.
L'image correspond je suppose à la zone des données ?
Que faut-il dans la zone des critères et qu'attends-tu exactement puisque tu parles de boucles dans cette demande ?

Citation:

---

Une colonne Type, avec 4 critères sélectionnables. L'utilisateur peut choisir d'afficher un ou plusieurs de ces critères.

---

Comment vois-tu le choix de l'utilisateur ?

Alors je vais déjà essayer de deviner ce que tu attends.
Comme expliqué plus haut, le filtre avancé ou élaboré d'excel est basé sur au moins deux zones, la zone des données et la zone des critères.
Dans le cas qui nous occupe je vois deux possibilités pour gérer cette zone des critères que nous appellerons areaCriteria qui aurait plusieurs choix portés sur les types (1, 2, 3, 4, etc.)
Si le nombre de cas possibles est limité, je créerais des plages nommées par exemple Cas_1, Cas_2, etc. Avec une portabilité limitée à la feuille (pour l'exemple [ParamFiltre])
Avec ce code

Code:

---

1 2 3 4

Sub CreateAreaCriteria_1() Dim areaCriteria As Range Set areaCriteria = ThisWorkbook.Worksheets("ParamFiltre").Range("cas_1") End Sub

---

Une autre possibilité est de nommer une plage de deux colonnes avec en colonne 1 les critères et en colonne 2, la valeur booléenne VRAI ou FAUX où une procédure remplira la liste de la plage areaCriteria si la valeur est VRAI
Avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CreateAreaCriteria_2() Dim rngCriteriaList As Range, areaCriteria As Range, r As Long, Count As Integer With ThisWorkbook.Worksheets("ParamFiltre") Set rngCriteriaList = .Range("CriteriaList") Set areaCriteria = .Range("A1") End With With rngCriteriaList For r = 1 To .Rows.Count If .Cells(r, 2) Then Count = Count + 1: areaCriteria.Offset(Count) = .Cells(r, 1) Next End With Set areaCriteria = areaCriteria.Resize(Count + 1) Debug.Print areaCriteria.Address End Sub

---

D'autres possibilités existent comme par exemple les critères calculés

Citation:

---

Envoyé par RomBon

Mais je ne vois pas l'interêt de l'image, ça me semble plus facile à travailler sur excel, bref.

---

Citation:

---

Envoyé par Philippe Tulliez

Un forum a pour but de partager des questions et réponses que chacun peut lire depuis ce site. Proposer d'emblée un classeur à télécharger coupe tout partage et est assimilé pour moi à un aparté.
De plus tu te coupes de réponses potentiellement intéressantes des personnes qui ne télécharge jamais les classeurs proposés dès l'ouverture d'une discussion.

---

Je suis désolé, je ne suis pas aussi devin que Philippe Tulliez, sur quelle colonne ne doit tu pas avoir de case vide ? La colonne ou se trouve les types (Colonne A sur l'image) ?
Si case vide il y a, que veux tu faire ? Supprimer la ligne ? La remplir avec un type par défaut ?

Je crée ma plage de critères après avoirfait le tri, merci je pense essayer la 1ere solution qui parait effectivement plus appropriée.

Bonjour,
En utilisant le principe des plages nommées Cas_1, Cas_2, tu peux aussi utiliser un questionnaire destiné à l'utilisateur et qui serait basé sur la fonction native d'Excel INDIRECT.
Un exemple se trouve dans le classeur téléchargeable qui accompagne le tutoriel Les filtres avancés ou élaborés dans Excel et expliqué dans le chapitre XIII. Sky is the limit