Userform

Re : Userform

Bonsoir,

sans fichier, avec question plus précise, tu n'auras aucune réponse !

Re : Userform

Bonsoir.
Ou alors juste des généralités :
La propriété ShowModal mise à False permet d'accéder aux fonctionnalités Excel pendant que l'Userform est affiché.
Un Dim WithEvents Excel As Application, déclaré en tête de l'Userform, et initialisé par Set Excel = Application dans l'Userform_Initialize permet de réagir à tous les évènements Excel.

Re : Userform

Merci à vous 2,
Voici mes 2 fichiers :

Sub Afficher()
UserForm1.Show modal
End Sub
et
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox10_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub


Private Sub TextBox4_Change()

End Sub


Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub TextBox9_Change()

End Sub

Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0 'Annule la position centrée
.Top = 300 'Règle la position vers le Haut
.Left = 1000 'Règle la position vers la Gauche
End With


TextBox1.Value = Date

TextBox9.Value = Cells(1, 12)

TextBox2.Value = Cells(1, 13)
TextBox3.Value = Cells(1, 14)
TextBox4.Value = Cells(1, 15)
TextBox5.Value = Cells(1, 17)
TextBox10.Value = Cells(1, 16)

TextBox6.Value = Cells(1, 18)
TextBox7.Value = Cells(1, 19)
TextBox8.Value = Cells(1, 20)

TextBox2.Value = FormatNumber(TextBox2.Value, 2)
TextBox3.Value = FormatNumber(TextBox3.Value, 2)
TextBox4.Value = FormatNumber(TextBox4.Value, 2)
TextBox5.Value = FormatNumber(TextBox5.Value, 2)
TextBox6.Value = FormatNumber(TextBox6.Value, 2)
TextBox7.Value = FormatNumber(TextBox7.Value, 2)
TextBox8.Value = FormatNumber(TextBox8.Value, 2)
TextBox9.Value = FormatNumber(TextBox9.Value, 2)
TextBox10.Value = FormatNumber(TextBox10.Value, 2)

End Sub

Cdt.
Mythotem.

Re : Userform

Bonjour.

Ce n'est pas un fichier, ça, et ça ne change rien à ce que j'ai dit.

Re : Userform

je ne peux joindre mon fichier car c'est mon décompte bancaire...

Re : Userform

On n'a jamais dit que c'était ce fichier qu'il fallait joindre mais un modèle de quelque lignes bidons, respectant toutefois la vraie structure, avec la programmation déjà en cours.