Valeur numérique à partir de l'userform
Le_Troll_Du_27Membre fidèle
- Messages
- 156
- Excel
- 2019 FR 64 Bits
- Inscrit
- 14/07/2015
- Emploi
- Ex-Conducteur Routier de convoi exceptionnel
Bonjour le forum
Après plusieurs essais je n'arrive pas à retranscrire sur la feuille en numérique à partir de l'userform.
Les valeurs dans les textboxs sont des valeurs numériques.
Après validation je les retrouve sous forme de texte.
Private Sub BtnInserer_Click()
Dim L As Integer
Sheets("SUIVI FACTURES").Activate
If MsgBox("Etes-vous certain de vouloir d'enregistrer ces données ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("SUIVI FACTURES").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
Range("A" & L).Value = TxtNom
Range("B" & L).Value = TxtBFacture
Range("C" & L).Value = DateDuJour '=SI([@[Date facture]]="";"";FIN.MOIS([@[Date facture]]+30;0))
Range("E" & L).Value = TxtTotalTTC
Range("J" & L).Value = DateReglement
Range("Q" & L).Value = TxtTVA5
Range("R" & L).Value = TxtTVA7
Range("S" & L).Value = TxtTVA10
Range("T" & L).Value = TxtTVA20
Range("AK" & L).Value = TxtReglee
End If
MsgBox ("Référence facture insérée dans SUIVI FACTURES") 'Vous informe que le présent contact est insérer dans votre tableau Excel.
Unload Me 'Ferme le formulaire
End Sub
et les textboxs
Private Sub TxtTVA5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim strpass As String
strpass = TxtTVA5.Value
If ChainePasOK(strpass) = True Then Cancel = True: TxtTVA5.Value = "": Beep: MsgBox "Saisie non valide !"
End Sub
Private Sub TxtTVA5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or TxtTVA5.SelStart > 0 And Chr(KeyAscii) = "-" _
Or InStr(TxtTVA5.Value, ",") <> 0 And Chr(KeyAscii) = "," Then
KeyAscii = 0: Beep
End If
End Sub
Merci
Amicalement
Laurent
f
Bonjour,
Dans une Textbox, la valeur est toujours de type Texte. Pour obtenir un nombre, tu dois effectuer conversion.
Exemple de fonctions de conversion :
CDbl (Double)
CInt (Integer)
CLng (Long)
Etc.
A+
Le_Troll_Du_27Membre fidèle
- Messages
- 156
- Excel
- 2019 FR 64 Bits
- Inscrit
- 14/07/2015
- Emploi
- Ex-Conducteur Routier de convoi exceptionnel
Bonjour le forum, Bonjour Frangy
Je viens d'essayer ceci et çà à l'aire de fonctionner
Private Sub BtnInserer_Click()
Dim L As Integer
Sheets("SUIVI FACTURES").Activate
If MsgBox("Etes-vous certain de vouloir d'enregistrer ces données ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("SUIVI FACTURES").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
Cells(L, 1) = (C_RECAP_SUIVI_FACTURES.TxtNom) ' ------------------- Nom
Cells(L, 2) = (C_RECAP_SUIVI_FACTURES.TxtBFacture) ' -------------- Facture
Cells(L, 3) = (C_RECAP_SUIVI_FACTURES.DateDuJour) ' --------------- Date de la facture
Cells(L, 5) = CDbl(C_RECAP_SUIVI_FACTURES.TxtTotalTTC) ' ---------- Prix TTC
Cells(L, 10) = (C_RECAP_SUIVI_FACTURES.DateReglement) ' ----------- Date Reglement
Cells(L, 17) = CDbl(C_RECAP_SUIVI_FACTURES.TxtTVA5) ' ------------- TVA 5.5%
Cells(L, 18) = CDbl(C_RECAP_SUIVI_FACTURES.TxtTVA7) ' ------------- TVA 7%
Cells(L, 19) = CDbl(C_RECAP_SUIVI_FACTURES.TxtTVA10) ' ------------ TVA 10%
Cells(L, 20) = CDbl(C_RECAP_SUIVI_FACTURES.TxtTVA20) ' ------------ TVA 20%
Cells(L, 37) = (C_RECAP_SUIVI_FACTURES.TxtReglee) ' --------------- Reglee
End If
MsgBox ("Référence facture insérée dans SUIVI FACTURES") 'Vous informe que le présent contact est insérer dans votre tableau Excel.
Unload Me 'Ferme le formulaire
End Sub
Cordialement
Laurent