Création d'un jeu de simulation boursière = PROBLEME !!!

bonsoir, antoine et le forum

pour enlever la croix en haut à droite.
A placer au début du module de code de ton UserForm :

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 Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

@+ Rudy

salut Antoine

Masquer les changements de pages lorsque les macros font des copier/coller entre les différentes feuilles (éviter le rapide défilement de toutes les pages du classeur !!! pas bon pour les yeux !)

Application.ScreenUpdating = False en debut de procedure
et
Application.ScreenUpdating = true à la fin


'Mettre hors fonction la croix (X) de fermeture du UserForm.
'Exemple proposé par Laurent Longre
'http://longre.free.fr/

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture."
Cancel = True
End If
End Sub

'Empêcher le déplacement d'un Userform
'Exemple proposé par Laurent Longre
'http://longre.free.fr/

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) 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()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub

Bon je vais en laisser un peu pour les autres ))

Mytå

salut à toutes et à tous,
bonjour le forum !

je tiens à remercier Rudy, Myta, Montoutrud, Albert ainsi que Celeda et les autres pour leur aide au sujet de mes ptits soucis concernant mon prog sous excel, désormais j'avance à grand pas et les problèmes s'estompent.

merci encore.
antoine