userform + feuille active

Bonjour le Forum

J'ai cherché un peu partout un code qui me permette d'avoir à l'écran un userform et ma feuille disponible.
Si vous connaissez un post qui traite de ce sujet, il sera le bien venu.
Merçi d'avance.

Bon appétit.
A+emmanuel

Hello Emmanuel et le forum,

Voilà le code qui te permettera de mettre ton USF en non modal et donc de travailler sur ta feuille excel pendant que ton USF est actif.
Je ne sais pas te dire où j'ai récupérer ce code(m'en souvient plus), mais il fonctionne très bien.

Goodparts


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

Salut Goodparts

Cool .......,merci pour ce codeça marche très bien,
(à garder précieusement de côté)

bonne fin de week end
@+emmanuel

Bonsoir GoodParts, Emmanuel et le Forum

Petite Précision Importante

Oui cette procédure basée sur des API est indispensable pour les utilsateurs de Excel 97.......

Par Contre, elle est totalement superflue pour les Utilisateurs d'Excel 2000 et + !!!

Pour ces heureux derniers, avoir un UserForm en mode Non-Modal s'effectue de la manière la plus simple qui soit, puisque totalement gérée par ces versions d'Excel :

Sub LancerUSF ()
UserForm1.Show False
End Sub

Ou encore

UserForm1.Show 0

C'est tout ! et il n'y a pas besoin de surcharger avec des appels API.

Voilà, je ne sais si Emmanuel est en XL 97, mais à toutes fins utiles pour ne pas induire en erreur les gens qui liront ce fil de discussion.

Bonne Soirée
@+Thierry

Re hello,

Merci @+Thierry pour cet oubli de précision de ma part. J'ai l'habitude de XL2002, c'est la raison pour laquelle j'ai omis de préciser la version pour laquelle le code était nécessaire et que j'ai re-sorti ce code de derrière les fagots.

Bonne fin de week-end à tous, et vive le 21 juillet, car demain il ne faut pas aller bosser...

Goodparts

BOnjour Thierry, Goodparts et le forum

Effectivement je suis sous la version 2000
ja vais le remplacer.(plus simple a retenir!!!!)
merci à vous deux.

bonne journée
@+emmanuel