Bonsoir
Pour ne pas avoir a dupliquer le traitement, il faut passer par un Sub ou une Fonction a part, puis l'appeler dans les differents evenements.
Ex :
Citation :
Sub toto() 'ton traitement externe
' debut traitement
'
'
' fin traitement
MsgBox "toto"
End Sub
Private Sub CommandButton1_Click()
Call toto 'la tu appelles le sub toto pour faire le traitement
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.ControlTipText = "Ton message d'infobulle"
End Sub
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEnter Then
Call toto 'ici idem, si la touche est ENTREE, tu appelles le sub toto pour faire le traitement
End If
End Sub
|
En rouge le sub Toto ('externe') qui fait le traitement, ici ca n'affiche qu'une boite de dialoge contenant "toto"
En bleu Qd on click sur le bouton ca appelle le sub Toto
En vert quand on passe la souris sur le bouton ca affiche une infobulle
En noir, si la touche entree est relachée ca appelle le sub Toto
Cordialement
Message édité par SuppotDeSaTante le 02-02-2009 à 20:36:06
---------------
Soyez malin, louez entre voisins !