Textbox incrimentè
Bonjour
Besoin d'aide
J ai un userform de saisie des bon d'entre service après vente dont textbox1 contient le num bon d'entrée EN0001
Je veux que a chaque saisie d'un bon d'entrée le num dans la textbox1 s'incrimente automatiquement par 1
'Ajouter nouveau enregistrement
'***********************************************
Private Sub CommandButton5_Click()
With Sheets("BDD")
.Unprotect Password:=93011661
Sheets("BDD").Activate
Range("A1").Select
Selection.End(xlDown).Select 'position derniere ligne non vide
Selection.Offset(1, 0).Select 'decale ligne vers le bas
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = Format(TextBox4.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = TextBox8
ActiveCell.Offset(0, 8).Value = Format(TextBox9.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 9).Value = TextBox10
ActiveCell.Offset(0, 10).Value = TextBox11
MsgBox ("Votre donnée à bien été ajouter"), vbYesNo + vbInformation, ("AJOUTER SAISIE")
.Protect Password:=93011661
Dim z As Control
For Each z In NOUVEAU_CLIENT.Controls
If TypeName(z) = "TextBox" Then
z.Value = ""
End If
Next z
End With
End Sub
Bonjour
Sujet en double :
https://forum.excel-pratique.com/viewtopic.php?f=2&t=116484
Pour que quelqu'un puisse t'apporter son aide, il faudrait joindre un fichier
Fred
Bonjour
Voila mon fichier
Je veux que textbox 1 sincremente automatique a chaque nouveau saisie EN180001 puis EN180002........
Ajouter nouveau enregistrement
'***********************************************
Private Sub CommandButton5_Click()
With Sheets("BDD")
.Unprotect Password:=93011661
Sheets("BDD").Activate
Range("A1").Select
Selection.End(xlDown).Select 'position derniere ligne non vide
Selection.Offset(1, 0).Select 'decale ligne vers le bas
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = Format(TextBox4.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = TextBox8
ActiveCell.Offset(0, 8).Value = Format(TextBox9.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 9).Value = TextBox10
ActiveCell.Offset(0, 10).Value = TextBox11
MsgBox ("Votre donnée à bien été ajouter"), vbYesNo + vbInformation, ("AJOUTER SAISIE")
.Protect Password:=93011661
Dim z As Control
For Each z In NOUVEAU_CLIENT.Controls
If TypeName(z) = "TextBox" Then
z.Value = ""
End If
Next z
End With
End Sub
Bonjour
Voila mon fichier
Merci de maider pour ce probleme
Je veux que textbox 1 sincremente automatique a chaque nouveau saisie EN180001 puis EN180002........
Ajouter nouveau enregistrement
'***********************************************
Private Sub CommandButton5_Click()
With Sheets("BDD")
.Unprotect Password:=93011661
Sheets("BDD").Activate
Range("A1").Select
Selection.End(xlDown).Select 'position derniere ligne non vide
Selection.Offset(1, 0).Select 'decale ligne vers le bas
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = Format(TextBox4.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = TextBox8
ActiveCell.Offset(0, 8).Value = Format(TextBox9.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 9).Value = TextBox10
ActiveCell.Offset(0, 10).Value = TextBox11
MsgBox ("Votre donnée à bien été ajouter"), vbYesNo + vbInformation, ("AJOUTER SAISIE")
.Protect Password:=93011661
Dim z As Control
For Each z In NOUVEAU_CLIENT.Controls
If TypeName(z) = "TextBox" Then
z.Value = ""
End If
Next z
End With
End Sub