Problème de passage d'une textbox à une autre dans un Userform
Bonjour à toutes et tous,
J'ai un petit soucis avec mon Userform "FondTLK"
Dans une textbox "Box_Date" je renseigne une date, cette information va s'inscrire dans la cellule D18 de la feuille "Base".
Mais avec le soucis de la conversion américaine des dates j'ai fait une petit gymnastique avec la concaténation pour avoir la date en jour/mois/année quelque soit la date renseignée. Jusqu’à là tout va bien (enfin je le pense), j'affiche ensuite un label et une autre Textbox, ça va encore bien. Je fais réapparaitre l'Userforn pour voir les 2 objet demandés et la date. C'est encore pas mal, MAIS ...
Quand je veux aller sur la nouvelle Textbox "Choix" il m'est impossible de choisir dans la liste avec la souris. J'ai essayé de rentrer la valeur manuellement ça fonctionne mais après plus aucune action n'est possible, et il faut arrêter le PC à la hussarde (C'est pas bien, mais pas d'autre choix).
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Private Sub Box_Date_AfterUpdate()
FondTLK.Hide
Sheets("Base").Cells(18, 4).Value = FondTLK.Box_Date.Value
If IsError(Sheets("Base").Cells(19, 4).Value) Then
MsgBox "Veuillez renseigner au format demandé"
Exit Sub
End If
If Not IsDate(Sheets("Base").Cells(18, 4).Value) Then
MsgBox "Veuillez renseigner au format demandé"
Exit Sub
End If
FondTLK.Box_Date.Value = ""
Sheets("Base").Cells(7, 4).FormulaR1C1 = "=CONCATENATE(R[13]C,""/"",R[12]C,""/"",R[14]C)"
Sheets("Bilan Site").Cells(4, 6).Value = Sheets("Base").Cells(7, 4).Value
Sheets("PA Vide").Cells(2, 6).Value = Sheets("Base").Cells(7, 4).Value
FondTLK.Box_Date.Value = Sheets("Base").Cells(7, 4).Value
FondTLK.Label146.Visible = True
FondTLK.Choix.Visible = True
FondTLK.Show
End Sub |
J'ai regardé pour inclure un calendrier mais je ne l'ai pas trouvé dans les contrôles supplémentaire de la boite à outils.
Selon vous ou est mon erreur ?
Merci d'avance