ca plante ou ca ne fait pas ce que tu veux? parce que si j'appuie plusieurs fois sur le bouton.. et bah.. le code fait bien ce pour quoi il est écrit (écrire en ligne 12)Pour le moment ça plante. Pti coup de pouce??
If Txtdate <> "" And Txtdate <> " " And Txtdate <> " " And Txtdate <> " " Then
If isdate(Txtdate) Then
Txtboite1.Enabled = True
Txtboite2.Enabled = True
Txtboite3.Enabled = True
Txtboite4.Enabled = True
Txtboite5.Enabled = True
Txtboite6.Enabled = True
Txtboite7.Enabled = True
Txtboite8.Enabled = True
Txtboite9.Enabled = True
Txtboite10.Enabled = True
Txtboite11.Enabled = True
For i = 1 To 11
Me.Controls("TextBox" & i).Enabled = True
Next
Sheets("packing").Range("J1").Value = Me.Txtdate.Value
Sheets("packing").Range("J1").Value = CDate(Me.Txtdate.Value)
Merci pour cette réponsere
j'ajoute que
vu le tableau de réception (la feuille)donc plusieurs ligne de commandes
etc..etc...
- il me semble qu'un bouton ajouter manque qui ajouterait et ferait un clear des controls apres l'ajout dans la feuille
- le bouton enregistrer oui ok mais ou quoi et comment
- la présentation du formulaire on pourrait la soigner et éviter de faire des userform géants pour 5/6 textbox
- les textbox doivent il être tous remplis impérativement ????parce que dans ce cas, faire un control des vides avant d'enregistrer dans la feuille
les tableaux dans les feuilles caché ils servent a quoi ???
allez au boulot !
la réponse et oui mais pas 2 fois la meme bien sur car a chaque ajout les textbox se vident sauf l’entêtece que je voudrais savoir dans votre code,c'est es ce qu'au niveau de l'ajout,je peux ajouter plusieurs fois a la suite le contenu des txtbox?
Je comprends, mais je pensais pouvoir ajouter plusieurs lignes (ex :7lignes)identiques avec la même saisie dans le Usf.en cliquant 7 fois donc sur ajout.re
la réponse et oui mais pas 2 fois la meme bien sur car a chaque ajout les textbox se vident sauf l’entête
Bonsoir vgendon,euh.. as tu au moins regardé / testé ma proposition au post 16?