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).
J'ai regardé pour inclure un calendrier mais je ne l'ai pas trouvé dans les contrôles supplémentaire de la boite à outils.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Selon vous ou est mon erreur ?
Merci d'avance
Partager