USF en showmodal et excel97 ??

[papapaul]

🙂 Bonjour XLD

J’ai trouvé il y a quelques temps un ancien post
Ou un de nos amis barbatruc (je sais plus qui) confirme qu’il n’est
pas possible d’utiliser la propriété Showmodal avec excel 97.
Il a forcément raison.
Donc, quand je veux descendre dans ma feuille pour utiliser
mon usf ou il y a des cases à cocher en fonction
justement de ce que je vois sur ma feuille, je suis
d’abord Obligé de fermer l’usf (avec un bouton quitter),
descendre ou je le souhaite puis de le réafficher avec
une macro (userform1.show).😡

Je suis sûrement pas le 1er à poser cette question
Mais depuis, quelqu’un aurait-il trouvé une astuce pour
contourner ce problème ?

Merci et Amitiés à tous.🙄

 

[CB60]

Re : USF en showmodal et excel97 ??

Bonjour
regarde ce post, j'avais mis un USF pour excel 97 ( je ne me rappelle pas de l'origine

Lien suppriméLien supprimé

 

[papapaul]

Re : USF en showmodal et excel97 ??

🙂 Merci beaucoup Bruno

Chez moi c'est bon mais j'ai 2000 😀
Je teste demain au boulot(excel97)
et te tiens au courant.
Je sais pas ou t'as trouvé ca, j'ai jeté un oeil.
Pas possible a inventé des codes pareils.
Celui qu'a réussi : Chapeau.

Bonne journée et @+ 😉

 

[pascal21]

Re : USF en showmodal et excel97 ??

UserForm1.Show (vbModeless)

bonjour
voilà une autre façon d'appeler un userform et qui laisse accès aux cellules
après,est-ce que ça fonctionne sur 97 je ne le sais pas

 

[CB60]

Re : USF en showmodal et excel97 ??

re bonjour
non la proposition de Pascal21 ne fonctionne pas avec excel 97
bruno

 

[papapaul]

Re : USF en showmodal et excel97 ??

🙁 J'ai testé le lien que tu m'a indiqué avec excel97
Ca marche, on peut se déplacer.
Je me suis dis, super, génial Bruno, mon sauveur.
Et bien pas tout à fait, je n'arrive pas à appliquer les codes
à mon fichier joint. Meme avec option explicit,
ou en créant un module, je continue à chercher
mais vraiment je suis perdu, Au Secours.
Ce serait tellement formidable si ca fonctionnait.
Je fait appel aux Cracks du forum.

Code du USF
Option Explicit
'stephen Bullen Excel97
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


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

fin:
End Sub

Quoi faire avec tout ca ??😕

 

[CB60]

Re : USF en showmodal et excel97 ??

Bonsoir
J'ai excel 2003 à la maison, je ne peux donc pas voir si cela fonctionne.
Je transmet tout de même ton fichier avec les modifs ( je ferai un essai demain au bureau car j'ai un vieux PC avec excel97)

 

[papapaul]

Re : USF en showmodal et excel97 ??

🙂 Je viens de voir, merci beaucoup.
A la maison, j'ai 2000.
Mais moi je bosse pas le week-end😉
Bon courage à toi et à lundi
Merci encore 🙄

 

[CB60]

Re : USF en showmodal et excel97 ??

Bonjour

Comme promis j'ai fais l'essai L'usf fonctionne bien, mais a l'ouverture du fichier il m'indique dans une fenetre Visual basic " Des erreurs se sont produites au cours du chargement", je fais OK et aprés je peux utiliser ton USF et cliquer sur les cellules.
Le fait de l'utiliser avec excel 97 il faut peut être mettre un " error résume next" quelque part?
Bruno

 

[CB60]

Re : USF en showmodal et excel97 ??

Re bonjour,

Il me semble que l'erreur était dans cette macro
Private Sub ListBox4_Change()

j'ai enlevé cette instruction
'Application.ScreenUpdating = False
et depuis je n'ai plus d'anomalie

 

[Emg]

Re : USF en showmodal et excel97 ??

Bonjour le Forum et une Bonne année 2007

pour que le USF soit Modal ou non essai les codes ce sont les codes que j'utilise souvent voila c'est tout

Met dans ThisWorkbook

Public Sub Workbook_Open()
Call VersionXL
End Sub

Met dans un Module

Public Sub VersionXL()
'// Xl97 Xl2000 2002 2003 + ou <
#If VBA6 Then
UserForm1.Show False
#Else
UserForm1.Show
#End If
End Sub

@+ Emg

 

[papapaul]

Re : USF en showmodal et excel97 ??

🙂 Bonjour Bruno, t'est vraiment chic.
Mais 6 h 24 ? Déja au boulot ? Bon courage

Pour ce qui est du message :
"Des erreurs se sont produites au cours du chargement",
ca me fait ca aussi à chaque fois que j'ouvre un truc avec
un USF fait maison (excel 2000) sur mon poste boulot(97).
Je pense que ca vient du fait que les propriétés des usf
sont différentes, alors excel se pose la question. Je pense ca
parceque quand j'ai seulement des macros, ca le fait pas.

Je regarde tout de suite tes modifs, merci encore.
Des lundi je te dis si ca colle.😉

Je suis pas tres doué mais dans le même esprit,
j'ai plein d'exemples pour les repérages de doublons.

Si tu as des projets en cours, certains peuvent
peut-être te rendre service, n'hésite pas.

Bonne journée à toi @+🙄

 

[papapaul]

Re : USF en showmodal et excel97 ??

🙂 Oups Emg, on s'est croisé, pas vu.
Merci du tuyau, je vais essayé.
Vive xld et les matinaux😉