Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) MsgBox "Hello line1" & vbNewLine & "Hello line2" & vbNewLine & "Hello line4" & vbNewLine & "Hello line4" End Sub
Private Sub ListBox1_Change() If ListBox1.ListIndex = -1 Then Exit Sub ListBox1.ControlTipText = ListBox1.List(ListBox1.ListIndex) End Sub Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 5 ListBox1.AddItem "Ligne" & i Next i End Sub
UserForm1.Listbox1.controlTipText= " c'est correct " & cells(i,1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
8 mars 2016 à 17:06
8 mars 2016 à 17:16
Prends soin d'y faire attention pour les prochains messages !