Bonjour le forum et à ceux qui le font vivre!
J'ai grace à vous déjà beaucoup avancé mais je viens de voir un petit soucis dans ma validation de données.
Je vais essayer de faire simple!
Dans un USF, j'ai des textbox (pour la saisie de date) lorsque je valide celles ci sont envoyées dans des cellules d'une feuille (base de données) de mon classeur.
A l'ouverture de mon USF ("Base_de_données" pour la saisie) celui ci récupère les données et les "range" dans les textbox correspondantes.
Le problème que je rencontre c'est que lorsque je supprime une données dans une de ces textbox et que je valide la cellule de destination garde son ancienne valeur.
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)
'( il y en a tout un tas)
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
(etc...)
End Sub
Je pense que celà viens de :<>"" mais je ne trouve pas la solution!
J'espère que j'ai pu me faire comprendre.
Merci à vous
@+
Folls...
J'ai grace à vous déjà beaucoup avancé mais je viens de voir un petit soucis dans ma validation de données.
Je vais essayer de faire simple!
Dans un USF, j'ai des textbox (pour la saisie de date) lorsque je valide celles ci sont envoyées dans des cellules d'une feuille (base de données) de mon classeur.
A l'ouverture de mon USF ("Base_de_données" pour la saisie) celui ci récupère les données et les "range" dans les textbox correspondantes.
Le problème que je rencontre c'est que lorsque je supprime une données dans une de ces textbox et que je valide la cellule de destination garde son ancienne valeur.
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)
'( il y en a tout un tas)
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
(etc...)
End Sub
Je pense que celà viens de :<>"" mais je ne trouve pas la solution!
J'espère que j'ai pu me faire comprendre.
Merci à vous
@+
Folls...