[résolu 99,9 %] Contenu du textbox à droite dans la base, avec virgule
Le Forum Bonjour,
Bonjour JBB388 et merci,
Tu viens de me donner des idées vois les codes ci-dessous et le fichier ci-joint.
Problème restant :
Ta proposition figeait la saisie sur F16, je voulais une saisie progressive en dessous, en colonne F.
Mes corrections :
Tes codes, entre les lignes ‘//////// sont déplacés et adaptés à mes souhaits en zone ‘XXXXXXX
Résultat :
Tout est entré dans l’ordre.
C’est génial !
LA virgule, rangement à DROITE, évolution du TOTAL : tout y est, grâce à ta proposition.
Est-ce que l’un de vous, sur ce magnifique Forum que vous faites progresser, a une idée pour cette toute dernière question :
Pour VALIDER la saisie, on appuie bien sûr sur le CommandButton1 vert « VALIDER la saisie ».
Comment associer ce bouton avec l’appui du bouton « Entrée » ou du bouton « Entr » des deux parties Alpha et Numérique du clavier de l’ordi ? [ainsi la Validation pourrait se faire de trois manières]
JBP388, aujourd’hui je te vénère !
Voici la rectification du code (fichier ci-joint) :
Private Sub CommandButton1_Click() 'bouton Validation
With Sheets("Compte")
Dim Derli As Integer
AllerA_LigneVierge
Derli = Selection.Row
'XXXXXXXXXXXX
Cells(Derli, 6) = CDbl(TextBox4.Value)
Cells(Derli, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
'XXXXXXXXXXXX
TextBox4.Value = ""
'.../...
AllerA_LigneVierge
End With
End Sub
'////Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'////Range("f16") = CDbl(TextBox4.Value)
'////Range("f16").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
'////End Sub