Re : Pb de validation de données de textbox vide vers cellule
Bonjour et merci à vous de me répondre aussi vite.
Le problème de mes textbox que je n'ai pas tout cité c'est qu'il y en a 18 qui sont formaté ainsi que les cellules pour des dates, 5 pour des valeurs hh:mm:ss et 4 autres pour des textes.
Si toutefois il y a une solution pour simplifier les voici dans l'ensemble:+
Private Sub Valider_dates_heures_Click()
With Sheets("Base de données")
'date de jours fériés
If TextBox1.Value <> "" Then .Range("a3").Value = CDate(Me.TextBox1.Text)
If TextBox2.Value <> "" Then .Range("a4").Value = CDate(Me.TextBox2.Text)
If TextBox3.Value <> "" Then .Range("a5").Value = CDate(Me.TextBox3.Text)
If TextBox4.Value <> "" Then .Range("a6").Value = CDate(Me.TextBox4.Text)
If TextBox5.Value <> "" Then .Range("a7").Value = CDate(Me.TextBox5.Text)
If TextBox6.Value <> "" Then .Range("a8").Value = CDate(Me.TextBox6.Text)
If TextBox7.Value <> "" Then .Range("a9").Value = CDate(Me.TextBox7.Text)
If TextBox8.Value <> "" Then .Range("a10").Value = CDate(Me.TextBox8.Text)
If TextBox9.Value <> "" Then .Range("a11").Value = CDate(Me.TextBox9.Text)
If TextBox10.Value <> "" Then .Range("a12").Value = CDate(Me.TextBox10.Text)
If TextBox11.Value <> "" Then .Range("a13").Value = CDate(Me.TextBox11.Text)
If TextBox12.Value <> "" Then .Range("a14").Value = CDate(Me.TextBox12.Text)
If TextBox13.Value <> "" Then .Range("a15").Value = CDate(Me.TextBox13.Text)
If TextBox14.Value <> "" Then .Range("a16").Value = CDate(Me.TextBox14.Text)
If TextBox15.Value <> "" Then .Range("a17").Value = CDate(Me.TextBox15.Text)
If TextBox16.Value <> "" Then .Range("a18").Value = CDate(Me.TextBox16.Text)
If TextBox17.Value <> "" Then .Range("a19").Value = CDate(Me.TextBox17.Text)
If TextBox18.Value <> "" Then .Range("a20").Value = CDate(Me.TextBox18.Text)
'heures des différentes données
.Range("b2").Value = Format(Me.TextBox19.Text, "hh:mm")
.Range("c3").Value = Format(Me.TextBox20.Text, "hh:mm")
.Range("c4").Value = Format(Me.TextBox21.Text, "hh:mm")
.Range("c5").Value = Format(Me.TextBox22.Text, "hh:mm")
.Range("c6").Value = Format(Me.TextBox23.Text, "hh:mm")
'visa des différentes autorités
.Range("a22").Value = Me.TextBox24.Text
.Range("a23").Value = Me.TextBox25.Text
.Range("a24").Value = Me.TextBox26.Text
.Range("a25").Value = Me.TextBox27.Text
End With
'Cacher userform
Base_de_données.Hide
End Sub
Private Sub UserForm_initialize()
Base_de_données.Show
Me.TextBox1.Text = Sheets("base de données").Range("a3").Value
TextBox2.Text = Sheets("base de données").Range("a4").Value
TextBox3.Text = Sheets("base de données").Range("a5").Value
TextBox4.Text = Sheets("base de données").Range("a6").Value
TextBox5.Text = Sheets("base de données").Range("a7").Value
TextBox6.Text = Sheets("base de données").Range("a8").Value
TextBox7.Text = Sheets("base de données").Range("a9").Value
TextBox8.Text = Sheets("base de données").Range("a10").Value
TextBox9.Text = Sheets("base de données").Range("a11").Value
TextBox10.Text = Sheets("base de données").Range("a12").Value
TextBox11.Text = Sheets("base de données").Range("a13").Value
TextBox12.Text = Sheets("base de données").Range("a14").Value
TextBox13.Text = Sheets("base de données").Range("a15").Value
TextBox14.Text = Sheets("base de données").Range("a16").Value
TextBox15.Text = Sheets("base de données").Range("a17").Value
TextBox16.Text = Sheets("base de données").Range("a18").Value
TextBox17.Text = Sheets("base de données").Range("a19").Value
TextBox18.Text = Sheets("base de données").Range("a20").Value
TextBox19.Text = Format(Sheets("base de données").Range("b2"), "hh:mm:ss")
TextBox20.Text = Format(Sheets("base de données").Range("c3"), "hh:mm:ss")
TextBox21.Text = Format(Sheets("base de données").Range("c4"), "hh:mm:ss")
TextBox22.Text = Format(Sheets("base de données").Range("c5"), "hh:mm:ss")
TextBox23.Text = Format(Sheets("base de données").Range("c6"), "hh:mm:ss")
TextBox24.Text = Sheets("base de données").Range("a22").Value
TextBox25.Text = Sheets("base de données").Range("a23").Value
TextBox26.Text = Sheets("base de données").Range("a24").Value
TextBox27.Text = Sheets("base de données").Range("a25").Value
End Sub
Merci encore de votre temps qui m'en apprend beaucoup (novice en la matière!)
@+
Folls...