Discussion :

[crissud]

Bonsoir,

J'ai besoin d'un coup de votre aide.

Je voudrais avoir le choix dans une liste déroulante en fonction d'une autre.

- Un plan comptable dans la première liste déroulante
- Un code de coût dans la seconde liste déroulante

Je voudrais remplir le choix de la 2sd liste déroulante lorsque dans la première il est sélectionné le 1er caractère du numéro de compte compris entre 6 et 7.

j'ai trouvé un petit code, mais qui ne fonctionne pas

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
21
22
23
24
25
26
27
28
'        Numéro compte comptable
'
CboCompte.RowSource = ("code!Compte")  ' CboCompte = liste déroulante des n° de compte
CboCompte.ListIndex = -1


'        Numéro centre de coût 
'  
' fonctionne mais rempli la zone déroulante CCout pour tous les comptes
'
'CboCCout.RowSource = ("code!CCout")    ' CCout est un nom donné à une zone
'CboCCout.ListIndex = -1


'
'  Je pensais remplacer par ceci
'
Private Sub CboCCout_Change()
Dim I As Integer, Col As Long, Lig As Long

If Left(CboCompte.Value, 1) = "6" Then
CboCCout.RowSource = ("code!CCout")
CboCCout.ListIndex = -1
Else
End If

End Sub

Merci d'avance e votre coup de main pour corriger mon code
Christian

J'ai repris mon code
Je suis presque arrivé à partir d'un fichier modèle.

Mais j'ai une erreur


merci d'avance de votre aide

Christian

[crissud]

j'ai trouvé

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
21
22
23
24
25
Option Explicit
 
Dim Ws As Worksheet
 
Private Sub combobox3_change()
 If Left(Me.ComboBox3, 1) = 6 Then
 
 
 ComboBox4.RowSource = ("Feuil5!CC")
ComboBox4.ListIndex = -1
 Else
 
 End If
End Sub
 
 
 
Private Sub UserForm_Initialize()
Dim I As Integer
 
 
ComboBox3.RowSource = ("Feuil5!Compte")
ComboBox3.ListIndex = -1
 
End Sub