Re
Cette exemple de la doc te sera sans doute utile
Private Sub ListBox1_Click()
If IsNull(ListBox1.Value) = False Then
CommandButton1.MousePointer = ListBox1.Value
If CommandButton1.MousePointer = fmMousePointerCustom Then
CommandButton1.MouseIcon = LoadPicture("c:\msvc20\cdk32\samples\circ1\bix.ico")
End If
End If
End Sub
Mais un programme aussi long est souvent du au temps des affichages durant les calculs.
As-tu pensé à l'instruction Application.ScrenUpDate = False au début de tes macros, sinon essaie.
A+ Roland je file au boulot à ce soir ................
Copyright (c) 1996 Microsoft Corporation