Bonjour,
comme tous les ans, je me lance dans un nouveau projet Excel et je bloque toujours sur un truc (le fait est que je cherche toujours à en faire plus)...
Cette année, j'ai testé le userform avec optionbutton et une liste alimentée d'après ce bouton.
Voici le code (que j'ai fait de mes mains, d'avance je sais qu'il est super lourd ) :
Mon problème est le suivant :
lorsque je clique sur "X" vers C. Centrale, même lorsque je souhaite changer C. Centrale par autre chose, le bouton reste "cliqué" et donc cela plante le résultat dans mon onglet "ventilation".
Avez vous la solution? Mon code est il mauvais?
Merci d'avance pour votre aide, j'ai beau chercher, je ne trouve rien
Bonne journée !
comme tous les ans, je me lance dans un nouveau projet Excel et je bloque toujours sur un truc (le fait est que je cherche toujours à en faire plus)...
Cette année, j'ai testé le userform avec optionbutton et une liste alimentée d'après ce bouton.
Voici le code (que j'ai fait de mes mains, d'avance je sais qu'il est super lourd ) :
Code:
Private Sub UserForm_Initialize()
TextBox1 = "0"
TextBox2 = "00"
End Sub
Private Sub OptionButton10_Change()
If OptionButton10 Then alimentelist Range("zone1")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton11_Change()
If OptionButton11 Then alimentelist Range("zone2")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton12_Change()
If OptionButton12 Then alimentelist Range("zone3")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton13_Change()
If OptionButton13 Then alimentelist Range("zone4")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton14_Change()
If OptionButton14 Then alimentelist Range("zone5")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton15_Change()
If OptionButton15 Then alimentelist Range("zone6")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton16_Change()
If OptionButton16 Then alimentelist Range("zone7")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton17_Change()
If OptionButton17 Then alimentelist Range("zone8")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton19_Change()
If OptionButton19 Then alimentelist Range("zone9")
ListBox1.ListIndex = 0
End Sub
Private Sub OptionButton21_Change()
If OptionButton21 Then alimentelist Range("zone10")
ListBox1.ListIndex = 0
End Sub
Sub alimentelist(zone As Range)
With ListBox1
.Clear
.List = zone.Value
End With
End Sub
Private Sub CommandButton1_Click()
FeuillePrecedente = ActiveSheet.Name
Sheets("Ventilation").Activate
Range("K1").Select
Selection.Copy
Range("ah65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Ventilation").Activate
Range("ad65536").End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox1
Sheets("Ventilation").Activate
Range("ae65536").End(xlUp).Offset(1, 0).Select
ActiveCell = TextBox2
If OptionButton2 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "KS"
End If
If OptionButton3 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "SM"
End If
If OptionButton4 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "ACC"
End If
If OptionButton5 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "SAV"
End If
If OptionButton6 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "KDI"
End If
If OptionButton7 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "VTE"
End If
If OptionButton8 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "COM/AM"
End If
If OptionButton9 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "FOOD"
End If
If OptionButton18 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "RH"
End If
If OptionButton20 = True Then
Sheets("ventilation").Range("af65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "CC"
End If
Hide
If OptionButton10 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "KS"
End If
If OptionButton11 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "SM"
End If
If OptionButton12 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "ACC"
End If
If OptionButton13 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "SAV"
End If
If OptionButton14 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "KDI"
End If
If OptionButton15 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "VTE"
End If
If OptionButton16 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "COM/AM"
End If
If OptionButton17 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "FOOD"
End If
If OptionButton19 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "RH"
End If
If OptionButton21 = True Then
Sheets("ventilation").Range("ag65536").End(xlUp).Offset(1, 0).Select
ActiveCell = "CC"
End If
Hide
Sheets("Ventilation").Activate
Range("ai65536").End(xlUp).Offset(1, 0).Select
ActiveCell = ListBox1
Sheets(FeuillePrecedente).Select
Unload UserForm4
End Sub
Private Sub CommandButton2_Click()
Unload UserForm4
End Sub
Mon problème est le suivant :
lorsque je clique sur "X" vers C. Centrale, même lorsque je souhaite changer C. Centrale par autre chose, le bouton reste "cliqué" et donc cela plante le résultat dans mon onglet "ventilation".
Avez vous la solution? Mon code est il mauvais?
Merci d'avance pour votre aide, j'ai beau chercher, je ne trouve rien
Bonne journée !