Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JFrancois QC
Bonjour Xavier, voici un peu de code à placer dans le userform
Option Explicit Option Compare Text ' pour le like
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.Hide If Me.ListBox1.Value Like "Janvier" Then ' aux États ça ne marchera pas.... MsgBox " macro1" Else MsgBox " macro2" End If
End Sub
Private Sub UserForm_Initialize() Dim i As Integer me.listbox1.clear For i = 1 To 12 Me.ListBox1.AddItem Format(DateSerial(2006, i, 1), "MMMM") Next i End Sub
Bonne journée
Bonjour à tous,
Comment écrire mon code qui dirait :
If (la première valeur du ListBox = "Janvier") Then Macro1 Else Macro2 End If
et sans devoir activer la LisbBox en cliquant dessus
Merci pour votre réponse. Xavier
Bonjour Xavier,
voici un peu de code à placer dans le userform
Option Explicit
Option Compare Text ' pour le like
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Hide
If Me.ListBox1.Value Like "Janvier" Then ' aux États ça ne marchera pas....
MsgBox " macro1"
Else
MsgBox " macro2"
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
me.listbox1.clear
For i = 1 To 12
Me.ListBox1.AddItem Format(DateSerial(2006, i, 1), "MMMM")
Next i
End Sub
Bonne journée
Bonjour à tous,
Comment écrire mon code qui dirait :
If (la première valeur du ListBox = "Janvier") Then
Macro1
Else
Macro2
End If
et sans devoir activer la LisbBox en cliquant dessus
Bonjour Xavier, voici un peu de code à placer dans le userform
Option Explicit Option Compare Text ' pour le like
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.Hide If Me.ListBox1.Value Like "Janvier" Then ' aux États ça ne marchera pas.... MsgBox " macro1" Else MsgBox " macro2" End If
End Sub
Private Sub UserForm_Initialize() Dim i As Integer me.listbox1.clear For i = 1 To 12 Me.ListBox1.AddItem Format(DateSerial(2006, i, 1), "MMMM") Next i End Sub
Bonne journée
Bonjour à tous,
Comment écrire mon code qui dirait :
If (la première valeur du ListBox = "Janvier") Then Macro1 Else Macro2 End If
et sans devoir activer la LisbBox en cliquant dessus
