affichage du classeur étrange

**DonKnacki** · 25/08/2006, 16h03

bonjour à tous

alors voila je vais une macro et le résultat me surprend pas mal !

je vous explique je vais un formulaire et comme je souhaite garder la main sur le classeur meme si le userform est actif j'ai mis la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'fonction permettant de garder la main sur la feuille alors que le userform est en cours
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 A
 
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
 
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

celle ci marche tres bien et d'ailleur je les mis pour plusieur de mes fichiers et la je comprend pas pour l'un d'entre eux ca marche mais quand je reprend la main sur mon classeur et que je bouge le curseur ca se "brouille"
(voir sur le fichier joint )

alors si quelqu'un a une explication ...

**SilkyRoad** · 25/08/2006, 18h24

bonjour

quelle version d'Excel utilises tu ?

bonne soiree
michel

**SfJ5Rpw8** · 25/08/2006, 21h23

l'affichage d'un userform avec le paramétre modal à false ne te suffit pas ..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 UserForm1.Show False

**DonKnacki** · 27/08/2006, 12h36

silkyRoad j'utilise exel 2003 chez moi et au travail euh j'avou que je ne sais plus trop .. mais vu qu'on a windows xp sp1 je suppose que c'est un excel assez récent

bbil je vais essayer et je vous dis