Re : Lenteur sur rafraichissement Listbox
Re bonsoir !
Toutes mes excuses ! je n'ai pas vu du tout la dernière réponse !!
Du coup, Eriiiic, je dois la mettre ou cette fonction ??
Autres infos,
J'ai (en fouillant sur le forum) trouvé un alternative à l'evenemet "click"
il s'agit de "MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)"
du coup le contenu de mon evenement "click" je l'ai supprimer et deplacer dans le nouvel évenement :
Private Sub LCF_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 1: 'MsgBox "clic gauche"
If ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous Then
ActiveCell.Offset(1, 0) = LCF.List(LCF.ListIndex, 0)
ActiveCell.Offset(2, 0) = LCF.List(LCF.ListIndex, 2)
ActiveCell.Offset(4, 0) = LCF.List(LCF.ListIndex, 1)
End If
If ActiveCell.Borders(xlEdgeTop).LineStyle = xlContinuous Then
ActiveCell.Offset(-5, 0) = LCF.List(LCF.ListIndex, 0)
ActiveCell.Offset(-4, 0) = LCF.List(LCF.ListIndex, 2)
ActiveCell.Offset(-2, 0) = LCF.List(LCF.ListIndex, 1)
End If
'POSITION = ActiveCell.Offset(0, -1)
Unload Me
End Select
End Sub
et là ! aucun problème de lenteur ! (??), pourtant la formule matricielles est toujours d'actualité ... !
le contenu de mon evenement "click" étais identique.
A noter .. si je rajoute dans le "click" un "Unload me" j'ai un bug.
stop sur : ActiveCell.Offset(2, 0) = LCF.List(LCF.ListIndex, 2)
Pourquoi à la demande de fermeture, le code est relu ??
(pas de bug avec un unload Me dans l'evenement mouseUp)
Avez vous une explication du pourquoi du comment ?
Du coup l'even. MouseUp me convient mais .. je trouve pas normal de devoir l'utiliser au lieu de l'even. "CLick"