Private Sub ComboBox1_AfterUpdate()
' ton code ..........
End Sub
Private Sub ComboBox1_Change()
' ton code ..........
End Sub
Private Sub ComboBox1_Click()
' ton code ..........
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' ton code ..........
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' ton code ..........
End Sub
j'ai bien compris la demande mais sans voir le fichier et le code je ne peux apporter une réponseMerci pour ta réponse, mais ce n'est pas ce que j'attendais, je recommence plus précisement.
J'utilise un Combobox_Change() qui contient les 12 mois de l'année, j'ai un code quasi identique pour chacun des mois. Mais ce code est très long et lorsque je veux l'utiliser il y a un message qui dit dépassement des 64Ko autorisé. Donc je voudrais créer une macro ou autre chose qui reprendrais ce qui est en commun pour chacun des mois, que je placerais dans mes 12 if/end, ce qui diminuerais la taille du code de la Combo.
A+
Private Sub ComboBox1_Change()
Sheets((Sheets("Feuil1").ComboBox1.ListIndex) + 2).Visible = xlSheetVisible
Sheets((Sheets("Feuil1").ComboBox1.ListIndex) + 2).Select
End Sub
Private Sub ComboBox1_Click()
Dim WS As Worksheet
For Each WS In Sheets
If WS.Name = ComboBox1 Then
WS.Visible = xlSheetVisible
WS.Activate
Else
If WS.Name <> "Feuil1" Then WS.Visible = xlSheetHidden
End If
Next WS
End Sub
Private Sub ComboBox1_Change()
For i = 2 To 13
Sheets(i).Visible = xlSheetVeryHidden
Next i
Sheets(ComboBox1.ListIndex + 2).Visible = xlSheetVisible
Sheets((Sheets("Feuil1").ComboBox1.ListIndex) + 2).Select
End Sub