Bonjour Forum,
Pour effectuer le traitement pour toutes les autres familles existantes un tableau constitué de plusieurs variables du même type est crée. Il est composé de 4 éléments : Bois, Jardin, Décoration et Bricolage.
Ma question : dans le cas où le nombre de familles d'article dépasse 50 ou plus, comment éviter la saisie des noms en forçant une recherche dans une liste prédfinie. Il se peut que je soit dans l'erreur.

Merci par avance.

Cordialement


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
Sub PrcVentilation()
    Dim ZCpt As Long
    Dim ZFamille As String
 
    Dim ZListeFam(4) As String
    ZListeFam(1) = "Bois"
    ZListeFam(2) = "Jardin"
    ZListeFam(3) = "Décoration"
    ZListeFam(4) = "Bricolage"
 
    Range("A4").Select
    Selection.AutoFilter
 
    If Dir("C:\Articles", vbDirectory) = "" Then MkDir ("C:\Articles")
 
    For ZCpt = 1 To UBound(ZListeFam)
 
        Z_Famille = UCase(ZListeFam(ZCpt))
        Selection.AutoFilter Field:=1, Criteria1:=ZFamille