changer des checkbox par une liste déroulante

Bonjour !

voila j'ai un formulaire userform avec des checkbox et je veux mettre a la place des checkbox une liste déroulante sans change le code vba

code vba

Code:

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
 
 
Private Sub CommandButton1_Click()
 
 Dim LastRow As Single
 With ThisWorkbook.Sheets("AliOuat KhaOla")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox1, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox1, TextBox2, "")
  End With
 With ThisWorkbook.Sheets("Chtaibi Lamiae")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox2, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox2, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Amir Marouane")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox11, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox11, TextBox2, "")
 End With
 With ThisWorkbook.Sheets("Bourasse Ghizlane ")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox10, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox10, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Bounira Nabil ")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox9, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox9, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Amir Adnane")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox8, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox8, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Raji Rachid")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox7, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox7, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Ayane Sami")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox3, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox3, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Saboui Ismail")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox5, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox5, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Koudri Morad")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox6, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox6, TextBox2, "")
 End With
  With ThisWorkbook.Sheets("Bachiri Reda")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox4, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox4, TextBox2, "")
 End With
   With ThisWorkbook.Sheets("Mes PrOjets")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = TextBox1
  .Range("d" & LastRow + 1) = TextBox2
 End With
 Unload Me ' Fermer la UserForm
 ActiveWorkbook.Save
 ActiveWorkbook.Close
 
 End Sub
 
Private Sub CommandButton2_Click()
Unload Me ' Fermer la UserForm
Application.Visible = True
End Sub

Bonjour

Il faudrait que tu détailles le pourquoi de ce changement voulu.

Les Chekbox et les zones de listes n'ont pas les mêmes méthodes et propriétés, de plus leur comportement est différent et sans changer le code c'est impossible.

Philippe

1 pièce(s) jointe(s)

dessole j'ai mal formulé
je veux dire par sans changer le code
sans changer la fonctionnalité du code

voila le classeur j'ai créer dans le UserForm 2 page la premier contiens les checkbox et la deuxième la liste déroulante maintenant je veux faire un code pour exécute la deuxième page mais qui a la même fonction de la premier

Problème résolu j'ai réussi a le débloquer moi même :D
Voici les code

Code pour les checkbox

Code:

1
2
3
4
5
6
7
8
9
 
 Dim LastRow As Single
 With ThisWorkbook.Sheets("AliOuat KhaOla")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(CheckBox1, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(CheckBox1, TextBox2, "")
  End With

et le code pour la liste déroulante

Code:

1
2
3
4
5
6
7
8
9
 
 Dim LastRow As Single
 With ThisWorkbook.Sheets("AliOuat KhaOla")
  LastRow = .Range("C" & Rows.Count).End(xlUp).Row
 
  ' Mise à jour des cellules
  .Range("c" & LastRow + 1) = IIf(ComboBox1.ListIndex = 0, TextBox1, "")
  .Range("d" & LastRow + 1) = IIf(ComboBox1.ListIndex = 0, TextBox1, "")
  End With