USF.hide Sous excel 97

Seb · 1 Février 2009

Bonsoir à tous.

J'ai un petit problème de compabilité entre Excel 2003 avec lequel je travaille chez moi et le 97 que j'ai au travail.

J'ai un USF (Donnees2) de saisie qui marche bien sauf que qd on clique sur le bouton Valider, un autre petit USF que j'ai nommé wait doit s'afficher avec un message d'attente. Et c la que ça buggue sous excel 97.

Voila comment j'ai procédé:

Private Sub Validerdonnees_Click()
Donnees2.Hide (mon userform de donnée)
wait2.Show 0 (mon userform d'attente avec un petit message d'attente)
wait2.Repaint

.........ma macro

Unload Donnees2
Unload wait2
End Sub

j'ai essayé pas mal de chose sans grands résultats... c pour ça que je me tourne vers vous...

Si quelqu'un sais pourquoi .....

Merci encore.. seb..

roro69 · 1 Février 2009

Re : USF.hide Sous excel 97

Bonsoir
Ne pas mettre :
wait.show 0
car excel 97 ne prend pas en charge le modal
A++
Enfin pour passer outre voici un lien:
https://www.excel-downloads.com/threads/userform.17206/

job75 · 1 Février 2009

Re : USF.hide Sous excel 97

Bonsoir Seb,

...un autre petit USF que j'ai nommé wait...

wait2.Show 0 (mon userform d'attente avec un petit message d'attente)
wait2.Repaint

Il faut choisir, wait (déconseillé car nom réservé par Excel) ou wait2.

Il me semblait pourtant que ce problème d'USF d'attente avait été résolu sur un fil précédent...

A+

Edit : salut roro69, je ne pensais plus à Excel 97...

Seb · 1 Février 2009

Re : USF.hide Sous excel 97

Bonsoir roro69 et job75,

Merci pour votre réponse. J'ai bien renommé wait et wait2 en Att et att1, j'ai oublié de le changer quand j'ai écrit sur le forum..

Je suis pas un expert malereusement en macro... Si j'ai bien compris au lieu de :

Private Sub Validerdonnees_Click()
Donnees2.Hide (mon userform de donnée)
Att1.Show 0 (mon userform d'attente avec un petit message d'attente)
Att1.Repaint

.........ma macro

Unload Donnees2
Unload att1
End Sub

il faut que je mette:
Private Sub Validerdonnees_Click()
Donnees2.Hide (mon userform de donnée)
Att1.Show ([False]) (mon userform d'attente avec un petit message d'attente)
Att1.Repaint

.........ma macro

Unload Donnees2
Unload att1
End Sub

L'ennuis c que je dispose pas d'excel 97 chez moi mais qu'au boulot donc je peux pas tester si ça marche c'est pour ça que je voudrais connaitre votre avis avant de tout modifier demain...

merci encore...

alex67800 · 1 Février 2009

Re : USF.hide Sous excel 97

Bonsoir Seb, job75, le forum,
un simple Att1.show devrait suffir!
J'ai vu sur un autre forum
Att1.show vbmodeless
Ne me demandez pas ce que cela change, mais comme toi j'ai un usf qui affiche un message puis ce ferme.
Il s'ouvre comme ceci:

Code:

UserForm2.Show vbModeless
UserForm2.Repaint

Puis se ferme comme ceci:

Code:

Private Sub UserForm_Activate()
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 3
Wend
' Fermeture de la BdD
Application.ScreenUpdating = False
Unload Me
Sheets("Pointage").Activate
UserForm1.Show
End Sub

Je l'ai codé ce week et comme toi je v le tester demain sur excel97 au boulot.
Si cela peu servir!

Ce qui est certain c'est que Att1.show fonctionne

job75 · 1 Février 2009

Re : USF.hide Sous excel 97

Re,

Seb à dit:
J'ai bien renommé wait et wait2 en Att et att1

Il me semblait pourtant avoir été clair... Je dois vieillir

A=

USF.hide Sous excel 97

Seb

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Seb

XLDnaute Occasionnel

alex67800

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires