Discussion: userform
Afficher un message
Vieux 22/03/2004, 21h49   #5 (permalink)
michel
Guest
 
Messages: n/a
Par défaut Re: userform

bonsoir Eric

sous excel 97 , les actions dans la feuille sont un peu limitées lors de l'affichage d'un USF non modal , mais normalement il n'y a pas de soucis pour acceder aux listes deroulantes
( voir l'exemple dans le classeur joint )

pour aller à la ligne dans un Label il faut utiliser Ctrl + Entrée

j'ai mis un exemple dans l'USF pour ne plus le réafficher , si le checkbox est coché

si ton USF s'affiche lors de l'ouverture du classeur tu peux utiliser

Dim Debut As Integer, Lignes As Integer
If CheckBox1 = True Then
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).codemodule
Debut = .ProcStartLine("Workbook_Open", 0)
Lignes = .ProcCountLines("Workbook_Open", 0)
.DeleteLines Debut, Lignes
End With
End If



bonne soiree
michel