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 : 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
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