Quand userform ouvert

[Angelo]

voila je voulais savoir si il est possible de garder la main sur la feuille alors que un Userform est en cours

j'ai trouvé ce sujet Lien supprimé

mais moi je ne dispose que de Excel 97 et donc l'option mentionné n'existe pas comment pourais je faire ??

 

[Manu13]

Bonjour Angelo

regarde quelque post en dessous sujet qui vient juste d'être traité
auteur du sujet nevil
sujet active userform ou non

bonne soirée
@+Manu

 

[Mytå]

Salut le forum

Un macro de Stephen Bullen

Option Explicit ' (USERFORM NON-MONDAL sous XL97 De Stephen Bullen)

Private Declare Function FindWindowA Lib 'User32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib 'User32' _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long

Private Declare Function GetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()
EnableWindow FindWindowA('XLMAIN', Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

Mytå

 

[Angelo]

je dois pas être doué je n'ai pas trouvé le sujet en question


Myta je vais essayer mais d'avance je comprend pas trop ce que ca fait !

 

[CB60]

Bonjour à tous
devant ton probléme, je te transmet le fichier pour les USF non modal
Bruno [file name=USFnonModal97_20060222095239.zip size=11546]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFnonModal97_20060222095239.zip[/file]

 

[Angelo]

Bonjour Bruno et merci pour le fichier

je constate que j'ai la main sur la feuille même quand le userform est en cours mais je vois pas ce qui permet de le faire
c'est cette macro??

Option Explicit
Sub Lancer()
On Error GoTo fin 'juste au cas d'une clic , si USF deja affiché
UserForm1.Show

fin:
End Sub

 

[CB60]

Pour pouvoir l'utiliser, il te faut cliquer sur l'userform dans le Vba et récuperer le code qui se trouve dedans afin de l'adapter à ton fichier.
Si tu ni arrive pas, met ton USF sur le fil et je te l'adapterais.

Option Explicit
Sub Lancer() = lance USF
On Error GoTo fin 'juste au cas d'une clic , si USF deja affiché = gestion d'erreur
UserForm1.Show = ouverture USF

Bruno

 

[Eric C]

Bonjour le forum
Bonjour Angelo, bonjour CB60, bonjour Mytå

Non Angelo, le code dont tu parles est celui qui appelle le UserForm.
LE code que tu recherches est placé dans l'intialize & l'activate du UserForm (Double cliques sur le USF lorsque tu es sous VBE (Alt F11) et est celui donné par notre ami Mytå ci-dessus.

Bonne journée à toutes & à tous

Scuzi CB60, je ne t'avais point vu -

Message édité par: Eric C, à: 22/02/2006 11:00

 

[Angelo]

non non c'est bon j'y suis arriver B)

Merci ton aide
Bonne journée

Merci Mika aussi je me suis appercu que ce que tu me donnais était exactement la même chose

 

[Angelo]

encore une question :

Si je veux appliquer les fonction à plusieurs de mes userform je dois à chaque fois remettre le code des fonction private dans chaque useform??

 

[CB60]

d'après les essais que je viens de faire, il me semble que l'on doit mettre le code pour chaque USF.
Bruno