jimmy1120112
XLDnaute Nouveau
Bonjour,
Je ne sait pas comment chercher ce que je veut, sa peut paraitre bête mais...
En faite je veut verrouiller des Textbox dans une userform, plus de détails :
codes du bouton "Valider" de la userform :
Private Sub Valider_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("Liste des clients").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Liste des clients").Cells(Lg, "A").Value = Nouveauxclients.TextBox1.Value
Sheets("Liste des clients").Cells(Lg, "B").Value = Nouveauxclients.TextBox2.Value
Sheets("Liste des clients").Cells(Lg, "C").Value = Nouveauxclients.TextBox3.Value
Sheets("Liste des clients").Cells(Lg, "D").Value = Nouveauxclients.TextBox4.Value
Sheets("Liste des clients").Cells(Lg, "E").Value = Nouveauxclients.TextBox5.Value
Sheets("Liste des clients").Cells(Lg, "F").Value = Nouveauxclients.TextBox6.Value
Sheets("Liste des clients").Cells(Lg, "G").Value = Nouveauxclients.TextBox7.Value
Sheets("Liste des clients").Cells(Lg, "H").Value = Nouveauxclients.TextBox8.Value
Sheets("Liste des clients").Cells(Lg, "I").Value = Nouveauxclients.TextBox9.Value
Sheets("Liste des clients").Cells(Lg, "J").Value = Nouveauxclients.TextBox10.Value
Sheets("Liste des clients").Cells(Lg, "K").Value = Nouveauxclients.TextBox11.Value
Sheets("Liste des clients").Cells(Lg, "L").Value = Nouveauxclients.TextBox12.Value
Sheets("Liste des clients").Cells(Lg, "M").Value = Nouveauxclients.TextBox13.Value
Sheets("Liste des clients").Cells(Lg, "N").Value = Nouveauxclients.TextBox14.Value
Sheets("Liste des clients").Cells(Lg, "O").Value = Nouveauxclients.TextBox15.Value
Sheets("Liste des clients").Cells(Lg, "P").Value = Nouveauxclients.TextBox16.Value
Unload Me
End Sub
Je veut que tan que les textbox de 1 a 15 ne sont pas remplie le bouton "Valider" n'exécute pas la copie vert la feuil excel et ouvre une fenêtre avertissant que tous les champs ne son pas remplie. Mais une fois remplie elle fait sont travaille normale.
Ses un peut comme une condition, ou je ses pas quoi.
si vous avez pas compris hésiter pas a me le dire
Merci
Je ne sait pas comment chercher ce que je veut, sa peut paraitre bête mais...
En faite je veut verrouiller des Textbox dans une userform, plus de détails :
codes du bouton "Valider" de la userform :
Private Sub Valider_Click()
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
Dim Lg As String
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("Liste des clients").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("Liste des clients").Cells(Lg, "A").Value = Nouveauxclients.TextBox1.Value
Sheets("Liste des clients").Cells(Lg, "B").Value = Nouveauxclients.TextBox2.Value
Sheets("Liste des clients").Cells(Lg, "C").Value = Nouveauxclients.TextBox3.Value
Sheets("Liste des clients").Cells(Lg, "D").Value = Nouveauxclients.TextBox4.Value
Sheets("Liste des clients").Cells(Lg, "E").Value = Nouveauxclients.TextBox5.Value
Sheets("Liste des clients").Cells(Lg, "F").Value = Nouveauxclients.TextBox6.Value
Sheets("Liste des clients").Cells(Lg, "G").Value = Nouveauxclients.TextBox7.Value
Sheets("Liste des clients").Cells(Lg, "H").Value = Nouveauxclients.TextBox8.Value
Sheets("Liste des clients").Cells(Lg, "I").Value = Nouveauxclients.TextBox9.Value
Sheets("Liste des clients").Cells(Lg, "J").Value = Nouveauxclients.TextBox10.Value
Sheets("Liste des clients").Cells(Lg, "K").Value = Nouveauxclients.TextBox11.Value
Sheets("Liste des clients").Cells(Lg, "L").Value = Nouveauxclients.TextBox12.Value
Sheets("Liste des clients").Cells(Lg, "M").Value = Nouveauxclients.TextBox13.Value
Sheets("Liste des clients").Cells(Lg, "N").Value = Nouveauxclients.TextBox14.Value
Sheets("Liste des clients").Cells(Lg, "O").Value = Nouveauxclients.TextBox15.Value
Sheets("Liste des clients").Cells(Lg, "P").Value = Nouveauxclients.TextBox16.Value
Unload Me
End Sub
Je veut que tan que les textbox de 1 a 15 ne sont pas remplie le bouton "Valider" n'exécute pas la copie vert la feuil excel et ouvre une fenêtre avertissant que tous les champs ne son pas remplie. Mais une fois remplie elle fait sont travaille normale.
Ses un peut comme une condition, ou je ses pas quoi.
si vous avez pas compris hésiter pas a me le dire
Merci
Dernière édition: