Liste choix pas pris en content par une macro

Bonjour,
Pas possible de tester ta macro comme ça, sans d'autre renseignement.
Toutefois, tu met ton code dans l'événement Change du Combo, mais cet événement n'est généré que si l'on écrit dans la fenêtre du combo et en voyant ta macro dés qu'ont tape quelque chose tu le bloque.
Ton code devrait se trouver dans l'événement Click...

    Private Sub ComboBox1_Click() 

Je pense que ça irait déja mieux.
A+
L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Bonjour Lermite222,

Mon problème n'est pas le faite que le code marche pas c'est juste qu'il ne prends pas en compte des noms de liste que j'ai crée comme ça: Insertion>Nom>Définir et qui se situe sur la Feuil6!
Je pense qu'il faudrait rajouter une ligne disant qu'il faut activer les "nom" de la feuil6 comme ça à la ligne suivante:

zone = Choose(choix, "CVC", "plomberie", "courantft", "courantf", "SI", "levage", "PBA", "SO", "facade", "toiture", "VRD", "H", "D")

il sélectionne bien la liste "CVC3 et non le mots "CVC"

je poste mon code au complet:

Private Sub UserForm_Initialize()
Dim nbre As Byte, cptr As Byte
Me.ComboBox2.Enabled = False
nbre = Application.CountA(Range("element")) - 1
For cptr = 0 To nbre
Me.ComboBox1.AddItem Sheets("feuil6").Cells(7, cptr + 14)
Next
End Sub
Private Sub ComboBox1_Change()
Dim nbre As Byte, cptr As Byte, choix As Byte, col As Byte
Dim zone As String

Me.ComboBox1.Enabled = False
Me.ComboBox2.Enabled = True

choix = Me.ComboBox1.ListIndex + 1
zone = Choose(choix, "CVC", "plomberie", "courantft", "courantf", "SI", "levage", "PBA", "SO", "facade", "toiture", "VRD", "H", "D")
nbre = Application.CountA(Range(zone)) - 1
col = Choose(choix, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23)

For cptr = 0 To nbre
Me.ComboBox2.AddItem Cells(cptr + 13, col)
Next
End Sub


Merci d'avance Lermitte222

nbre = Application.CountA(Range("element")) - 1 

je parvient pas à tester parce que je ne sais pas ce qu'il y a dans element ? L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Bon, j'ai tester mais tout me semble fonctionner parfaitement !
Quand je clic sur CVC c'est bien CVC que j'ai et le nombre de cellules correspond aussi.
idem pour la colonne..
Eventuellement mettre ton classeur sur Cjoint.com ?
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

par E-mail ? mais alors tu doit te faire membre et me communiquer ton adresse par MP.
Mais je ne comprend pas ta remarque ... il sélectionne bien la liste "CVC3 et non le mots "CVC"
c'est quoi CVC3 ?
L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Bon j'ai bon retourner le problème dans tous les sens rien à faire, tenez moi au courant si vous avez trouvé quelque chose.

Re,
Je pensais bien que c'était une erreur de ce genre, mais peut-être une autre façon de faire !

Dim NoAction As Boolean

Private Sub ComboBox2_Change()
    If NoAction Then Exit Sub
End Sub

Private Sub UserForm_Initialize()
Dim cptr As Byte
    cptr = 14
    With Sheets("feuil6")
        While .Cells(7, cptr) <> ""
            ComboBox1.AddItem .Cells(7, cptr)
            cptr = cptr + 1
        Wend
    End With
    ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Dim cptr As Byte, col As Byte
    ComboBox2.Clear
    col = ComboBox1.ListIndex + 14
    cptr = 8
    With Sheets("feuil6")
        While .Cells(cptr, col) <> ""
            ComboBox2.AddItem .Cells(cptr, col)
            cptr = cptr + 1
        Wend
    End With
    NoAction = True
    ComboBox2.ListIndex = 0
    NoAction = False
End Sub

A + L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)