Discussion :

[michelj64]

bonjour

je suis en excel 2007

j'ai un formulaire avec une clé sur nom et prénom concaténé (combobox1)

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
' **************************************
'Correspond au programme de la LISTE DEROULANTE
' **************************************
Private Sub ComboBox1_Change()
Dim ligne As Long
Dim i As Integer
Dim chemin As String

  If Me.ComboBox1.ListIndex = -1 Then GoTo etiq_csp:
  ligne = Me.ComboBox1.ListIndex + 2
  
  
 
  Me.ComboBox1 = ws.Cells(ligne, "A")
  Me.TextBox1 = ws.Cells(ligne, "B")
  Me.TextBox8 = ws.Cells(ligne, "C")

et dans ce traitement j'ai un autre combobox2 sur un champ catégorie socio professionnelle (8 valeurs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
' **************************************
' LISTE DEROULANTE :CSP
' **************************************
etiq_csp:
 If Me.ComboBox2.ListIndex = -1 Then GoTo etiq_tri:
  ligne = Me.ComboBox2.ListIndex + 2
  
  With ComboBox2
 
  Me.TextBox13 = ws.Cells(ligne, "M") ' CSP
  End With
 
etiq_tri: Call TRIBEN

Mon problème vient de la non efficacité du test i

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.ComboBox2.ListIndex = -1 [/B]Then GoTo etiq_tri:

comme conséquence je n'affiche pas ma catégorie

par ailleurs j'ai déclaré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox2_Click()
If csp_invoked_init = "oui" Then Exit Sub
MsgBox ComboBox2.Value
TextBox13 = ComboBox2.Value
End Sub
 
Private Sub ComboBox2_Change()
MsgBox ComboBox2.Value
TextBox13 = ComboBox2.Value
End Sub

merci pour votre aide

michel

[Philippe Tulliez]

Bonjour,
Si tu expliquais ce que tu souhaites obtenir ce serait plus simple à comprendre et il faudrait que tu insères ton code entre les balises prévues à cet effet.
J'ajouterais que l'utilisation du GoTo est une très mauvaise habitude, il faut absolument le proscrire sauf pour la gestion des erreurs car on n'a pas le choix;

[michelj64]

bonjour

je suis dans le traitement des listes déroulantes pour mon bénévole (combobox1)

un des champs (CSP) catégorie socio professionnelles via combobox2 ne s'affiche pas

le programme shunte l'affichage considérant que la liste est vide ce qui est faux

je veux valoriser textbox13

Voici le code isolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
' **************************************
' LISTE DEROULANTE :CSP
' **************************************
etiq_csp:
 If Me.ComboBox2.ListIndex = -1 Then GoTo etiq_tri:
  ligne = Me.ComboBox2.ListIndex + 2

  With ComboBox2
 
  Me.TextBox13 = ws.Cells(ligne, "M") ' CSP
  End With
 
etiq_tri: Call TRIBEN

je mets aussi le code dans son environnement

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
' **************************************
'Correspond au programme de la LISTE DEROULANTE
' **************************************
Private Sub ComboBox1_Change()
Dim ligne As Long
Dim i As Integer
Dim chemin As String
 
  If Me.ComboBox1.ListIndex = -1 Then GoTo etiq_csp:
  ligne = Me.ComboBox1.ListIndex + 2
 
 
 
  Me.ComboBox1 = ws.Cells(ligne, "A")
  Me.TextBox1 = ws.Cells(ligne, "B")
  Me.TextBox8 = ws.Cells(ligne, "C")
  Me.TextBox3 = ws.Cells(ligne, "D")
  Me.TextBox4 = ws.Cells(ligne, "E")
  Me.TextBox5 = ws.Cells(ligne, "F")
  Me.TextBox6 = ws.Cells(ligne, "G")
  Me.TextBox7 = ws.Cells(ligne, "H")
  Me.TextBox9 = ws.Cells(ligne, "J")
'
  Me.TextBox11 = ws.Cells(ligne, "I")
  Me.TextBox12 = ws.Cells(ligne, "L")
 
 
 ' **************************************
' demi journee semaine
' **************************************
 Me.CheckBox26 = ws.Cells(ligne, "S")
 Me.CheckBox27 = ws.Cells(ligne, "T")
 Me.CheckBox28 = ws.Cells(ligne, "U")
 Me.CheckBox29 = ws.Cells(ligne, "V")
 Me.CheckBox30 = ws.Cells(ligne, "W")
 Me.CheckBox35 = ws.Cells(ligne, "X")
 Me.CheckBox31 = ws.Cells(ligne, "Y")
 Me.CheckBox32 = ws.Cells(ligne, "Z")
 Me.CheckBox33 = ws.Cells(ligne, "AA")
 Me.CheckBox34 = ws.Cells(ligne, "AB")
  ' **************************************
' situation retraité, actif
' **************************************
 Me.CheckBox16 = ws.Cells(ligne, "AC")
 Me.CheckBox17 = ws.Cells(ligne, "AD")
 Me.CheckBox18 = ws.Cells(ligne, "AE")
 Me.CheckBox19 = ws.Cells(ligne, "AF")
 Me.CheckBox20 = ws.Cells(ligne, "AG")
' **************************************
' LISTE DEROULANTE : domaine intervention
' **************************************
 Me.CheckBox21 = ws.Cells(ligne, "AH")
 Me.CheckBox22 = ws.Cells(ligne, "AI")
 Me.CheckBox23 = ws.Cells(ligne, "AJ")
 Me.CheckBox24 = ws.Cells(ligne, "AK")
 Me.CheckBox25 = ws.Cells(ligne, "AL")
 
  chemin = (TextBox1 & TextBox8)
  Call recphoto(chemin)  ' photos
 
 
 
' **************************************
' LISTE DEROULANTE :CSP
' **************************************
etiq_csp:
 If Me.ComboBox2.ListIndex = -1 Then GoTo etiq_tri:
  ligne = Me.ComboBox2.ListIndex + 2
 
  With ComboBox2
 
  Me.TextBox13 = ws.Cells(ligne, "M") ' CSP
  End With
 
etiq_tri: Call TRIBEN
 
 
 
End Sub