Billard
XLDnaute Nouveau
Bonjour
Voici un petit code (mon premier userform), il fonction mais si j'ai des valeurs non saisie, erreur, d'après ce que je comprends c'est un problème sur textbox car je saisie des valeurs numériques.
Certainement mes déclarations.
Et si je mets userform1.Show 0 ,j'ai erreur type variablee
Si je pouvais être conseillé, merci par avance,
Voici un petit code (mon premier userform), il fonction mais si j'ai des valeurs non saisie, erreur, d'après ce que je comprends c'est un problème sur textbox car je saisie des valeurs numériques.
Certainement mes déclarations.
Et si je mets userform1.Show 0 ,j'ai erreur type variablee
Si je pouvais être conseillé, merci par avance,
Code:
'***************************************************************************************
Option Explicit 'Activation de la déclaration explicite des variables
Dim Ws As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm
Private Sub CommandButton2_Click()
'Correspond au programme du bouton QUITTER
Unload Me
'Unload => Permet de fermer l'Userform et de l'effacer de la mémoire, les valeurs de ses contrôles sont à alors perdues.
' Me => Référence à l'objet en cours
End Sub
Private Sub UserForm_Initialize()
Sheets("Tables").Select
Dim c As Variant
Dim c2 As Variant
Dim c3 As Variant
' Combobox avec liste des noms et prenoms des joueurs
For Each c In Range("G4:G" & [G200].End(xlUp).Row)
Me.ComboBox1.AddItem c
Next c
' combobox avec list mode paiement
For Each c2 In Range("L34:L" & [L35].End(xlUp).Row + 1)
Me.ComboBox2.AddItem c2
Next c2
' combobox avec list observation
For Each c3 In Range("J4:J" & [J20].End(xlUp).Row + 1)
Me.ComboBox3.AddItem c3
Next c3
Sheets("Caisse Journalière").Select
End Sub
Private Sub CommandButton1_Click()
' Initialise les variables
Dim Dligne As Integer
Dim NPiece As String
Dim NomPrenom As String
Dim Observation As String
Dim DateJ As Date
Dim NChq As Integer
Dim ModeP As String
Dim Mbillard As Integer
Dim MBar As Integer
Dim MCours As Integer
Dim MRepas As Integer
Dim MOffert As Integer
Dim MVerse As Integer
Dim RestePayer As Integer
' valeurs initiales
DateJ = Date
NPiece = ""
NomPrenom = ""
Observation = ""
MBar = 0
NChq = 0
ModeP = ""
Mbillard = 0
MCours = 0
MRepas = 0
MOffert = 0
MVerse = 0
' selectionne la feuille
Sheets("Caisse Journalière").Select
' range les valeurs dans cellules
DateJ = Me.TextBox2
NPiece = Me.TextBox1
NomPrenom = Me.ComboBox1
Observation = Me.ComboBox3
MBar = Me.TextBox4
NChq = Me.TextBox11
ModeP = Me.ComboBox2
Mbillard = Me.TextBox5
MCours = Me.TextBox7
MRepas = Me.TextBox6
MOffert = Me.TextBox8
MVerse = Me.TextBox9
RestePayer = ((MBar + Mbillard + MCours + MRepas) - MOffert) - MVerse
' Derniere vide du fichier
Dligne = Range("E9500").End(xlUp).Row + 1
Cells(Dligne, 5) = NPiece
Cells(Dligne, 6) = NomPrenom
Cells(Dligne, 7) = Observation
Cells(Dligne, 8) = DateJ
Cells(Dligne, 9) = NChq
Cells(Dligne, 10) = ModeP
Cells(Dligne, 11) = Mbillard
Cells(Dligne, 12) = MBar
Cells(Dligne, 13) = MCours
Cells(Dligne, 14) = MRepas
Cells(Dligne, 15) = MOffert
Cells(Dligne, 17) = MVerse
TextBox10 = RestePayer
If RestePayer > 0 Then
MsgBox "La somme restante à payer est de : " & RestePayer & " €", vbOKOnly + vbInformation, "Information"
End If
End Sub
Dernière édition: