Date dans un userforme

Question

Voici j'ai un userforme avec plusieurs TextBox et un bouton (cal) pour afficher le calendrier et je souhaite pourvoir choisir une date différente pour chaque Textbox Textbox de 11 a 19 Voici le vba ainsi qu'une capture d'écran de l'userforme Merci de votre aide d'avance. Private Sub CmbValide_Click() If Not ChoixDate = 0 Then UserForm1.TextBox11 = Format(ChoixDate, "dd-mm-yyyy") 'USF.Controls("Textbox" & Txt_dt) = Format(ChoixDate, "dd/mm/yy") ChoixDate = 0 'Date_calendar = "" End If Unload Calendrier End Sub Cordialement Yann...

galopin01 · Accepted Answer

N'hésite pas à demander des explications si nécessaire... A+...

Invité · Answer

8 Texbox avec date, le mieux est d'utiliser un module de classe Tu ne peux pas mettre ton fichier !...

galopin01 · Answer

Cette ébauche est suffisament merdique pour justifier un retour aux sources... J'ai été obligé de supprimer les Frame (Ce ne sont pas des intruments de décorations !) J'ai été obligés de renuméroter tous les contrôles parce que cette numérotation était complètement foutrac : Il fallait jouer aux 4 coins pour attribuer un textbox au calendrier alors le mieux était de repartir à zéro. Attention : dans la reconstruction, il est probable que j'ai foutu le b... dans tes numéro de Tag ! Comme cette construction est assez inhabituelle je n'ai pas fait attention ! (en particulier pour les 4 TextBox de droite) A+...