Rapport de message :*
 

Re: Cherche à mettre un coef sous la note.

Titre du sujet : Re: Cherche à mettre un coef sous la note.
par JCGL le 03/01/2008 15:53:11

Re,

Un essai avec ce que j'ai compris
J'ai réduit le code : il me semble que tu emploies les Select à tout va, cela ralenti l'exécution.

A+

Edition : tu peux remplacer :
Private Sub Workbook_Open()
Application.OnKey "{TAB}", "usf"
End Sub

par
Private Sub Workbook_Open()
UserForm1.Show
End Sub

et supprimer la macro usf