Modifier une combobox

**apdf1** · 26/07/2019, 15h18

Bonjour

Comment je peut faire pour avoir un code un peut pluss esthétique je voulais savoir si on pouvait le raccourcir.. oui je suis sur que l'on peux ?

Mon code:

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
Private Sub ComboBox1_Change()
TBx_1.Value = ComboBox1.Column(1)
TBx_2.Value = ComboBox1.Column(2)
TBx_3.Value = ComboBox1.Column(3)
TBx_4.Value = ComboBox1.Column(4)
TBx_5.Value = ComboBox1.Column(5)
TBx_6.Value = ComboBox1.Column(6)
TBx_7.Value = ComboBox1.Column(7)
TBx_8.Value = ComboBox1.Column(8)
TBx_9.Value = ComboBox1.Column(9)
TBx_10.Value = ComboBox1.Column(10)
TBx_11.Value = ComboBox1.Column(11)
TBx_12.Value = ComboBox1.Column(12)
TBx_13.Value = ComboBox1.Column(13)
TBx_14.Value = ComboBox1.Column(14)
TBx_15.Value = ComboBox1.Column(15)
TBx_16.Value = ComboBox1.Column(16)
TBx_17.Value = ComboBox1.Column(17)
TBx_18.Value = ComboBox1.Column(18)
TBx_19.Value = ComboBox1.Column(19)
TBx_20.Value = ComboBox1.Column(20)
 
End Sub

Merci d'avance

Max

**BENNASR** · 26/07/2019, 15h24

bonsoir
essayer avec :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
for i = 1 to 20
TBx_(i).Value = ComboBox1.Column(i)
next i
 
End Sub

**apdf1** · 26/07/2019, 15h29

Bonjour Bennasr

Je te remercie mais j'ai message d'erreur :

Erreur de compilation Sub ou Function non définie

Max

**Philippe Tulliez** · 26/07/2019, 16h12

Bonjour,
A adapter à ta situation
Voir cette discussion Boucle sur textbox dans userform

**Zekraoui_Jakani** · 26/07/2019, 16h19

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
 
'je suppose que "TBx_" est l'adresse d'une cellule et qu'il existe une zone nommée TBx_i
'sinon il faudra définir ce que représente TBx: cellue, zone texte, liste, combo, ...
For i = 1 To 20
    ActiveSheet.Range("TBx_" & i) = ComboBox1.Column(i)
Next i
 
End Sub

**apdf1** · 26/07/2019, 16h37

Bonjour à tous

Non j'ai toujours le même message d'erreur

Mon code au complet:

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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Private Sub UserForm_Initialize()
For i = 1 To 4
    Me.Controls("Label" & i).Visible = False
Next i
For i = 1 To 20
    Me.Controls("TBx_" & i).Visible = False
Next i
Me.Width = 372
Me.Height = 83
End Sub
 
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
    ComboBox1.List = Feuil2.Range("B9:O" & Feuil2.Range("B" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 1, 4, 7, 10, 13, 16, 20, 23, 26, 29, 32, 35, 38, 41 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 2, 3, 5, 6, 7, 8, 11, 12, 14, 15, 17, 18, 19, 21, 22, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 52, 55, 58, 61 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 13
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 14 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 390
 
End Sub
 
Private Sub OptionButton2_Click()
If OptionButton2 = True Then
    ComboBox1.List = Feuil2.Range("P9:AG" & Feuil2.Range("P" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 2, 5, 8, 11, 14, 17, 21, 24, 27, 30, 33, 36, 39, 42, 44, 45, 47, 48 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 1, 3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 46, 47, 49, 52, 55, 58, 61 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 17
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 18 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 446
 
End Sub
 
Private Sub OptionButton3_Click()
If OptionButton3 = True Then
    ComboBox1.List = Feuil2.Range("AH9:BB" & Feuil2.Range("AH" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 3, 6, 9, 12, 15, 18, 19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 58, 61 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 1, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 20
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 18 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 510
 
End Sub
 
Private Sub CommandButton1_Click()
   Unload Me
End Sub
 
'Private Sub ComboBox1_Change()
'For i = 1 To 20
'Me.Controls("TBx_" & i).Value = ComboBox1.Column(i)
'Next i
 
'End Sub

Je vous remercie

Max

**Philippe Tulliez** · 26/07/2019, 19h00

Bonjour,
D'après ta demande initiale
Exemple avec trois TextBox nommés respectivement TextBox1, TextBox2 et TextBox3 et un contrôle ListBox nommé lstVille
Sans boucle

Code :

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

1
2
3
4
5
6
7
Private Sub lstVille_Click()
  With Me
  .TextBox1.Value = .lstVille.Column(1)
  .TextBox2.Value = .lstVille.Column(2)
  .TextBox3.Value = .lstVille.Column(3)
  End With
End Sub

Avec boucle

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstVille_Click()
  Dim elem As Byte
  For elem = 1 To 3
   With Me
   .Controls("TextBox" & elem).Value = .lstVille.Column(elem)
   End With
  Next
End Sub

Pour l'affichage de données après sélection dans un contrôle ListBox ou ComboBox, il est préférable d'utiliser la procédure événementielle Click au lieu de Change

Le code que tu as donné ensuite n'a plus rien avec ta demande initiale et sans connaître le n° et le message d'erreur reçu ainsi que le n° de la ligne où a lieu l'erreur il est difficle d'apporter une aide quelconque.

**Pierre Fauconnier** · 04/08/2019, 07h32

Salut.

Ne pas oublier que les index des colonnes d'un combobox commencent à 0. La boucle 1 to 20 impose donc qu'il y ait 21 colonnes. De plus, je ne suis pas fan d'un nommage pareil des contrôles ni de la correspondance obligée entre textbox et colonnes de combobox à coup d'index et je me pose la question de la pertinence et de la maintenance de ce code

Je serais curieux de connaître les tenants et aboutissants de ce projet.

Modifier une combobox

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager