Hervé XLDnaute Barbatruc 23 Septembre 2005 #1 Bonsoir tout le monde Je n'arrive pas à retrouver le jour (de 1 à 31) d'une date choisie dans une combobox. Je vous est préparé un petit fichier exemple (pour vous éviter de vous taper un usf). Vous choisissez le mois dans la combobox1, puis une date (format : dddd dd) dans la combobox2. Et je voudrais avoir simplement le jour de cette date (1,2,3;4...) dans la textbox suivante. Je souhaiterai aussi que ce jour 'reste' un jour, donc si on pouvait eviter le listindex, ca serait le top. en vous remerciant par avance de votre aide. salut [file name=question_20050923213406.zip size=7882]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/question_20050923213406.zip[/file] Pièces jointes question_20050923213406.zip 7.7 KB · Affichages: 16
Bonsoir tout le monde Je n'arrive pas à retrouver le jour (de 1 à 31) d'une date choisie dans une combobox. Je vous est préparé un petit fichier exemple (pour vous éviter de vous taper un usf). Vous choisissez le mois dans la combobox1, puis une date (format : dddd dd) dans la combobox2. Et je voudrais avoir simplement le jour de cette date (1,2,3;4...) dans la textbox suivante. Je souhaiterai aussi que ce jour 'reste' un jour, donc si on pouvait eviter le listindex, ca serait le top. en vous remerciant par avance de votre aide. salut [file name=question_20050923213406.zip size=7882]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/question_20050923213406.zip[/file]
myDearFriend! XLDnaute Barbatruc 23 Septembre 2005 #2 Bonsoir Hervé, Je n'ai peut-être pas tout compris, mais... [ol][ul][li]Si tu veux récupérer uniquement le jour : Private Sub CommandButton1_Click() TextBox1.Value = Val(Right(ComboBox2.Text, 2)) End Sub Cliquez pour agrandir... [/li] [li]Si tu veux le récupérer, mais à partir d'une vrai date reconstituée : Private Sub CommandButton1_Click() TextBox1.Value = Format(DateValue(Right(ComboBox2.Text, 2) & _ ' ' & ComboBox1.Text & ' 2005'), 'd') End Sub Cliquez pour agrandir... [/li][/ul][/ol] Cordialement, Vote positif 0 Vote négatif
Bonsoir Hervé, Je n'ai peut-être pas tout compris, mais... [ol][ul][li]Si tu veux récupérer uniquement le jour : Private Sub CommandButton1_Click() TextBox1.Value = Val(Right(ComboBox2.Text, 2)) End Sub Cliquez pour agrandir... [/li] [li]Si tu veux le récupérer, mais à partir d'une vrai date reconstituée : Private Sub CommandButton1_Click() TextBox1.Value = Format(DateValue(Right(ComboBox2.Text, 2) & _ ' ' & ComboBox1.Text & ' 2005'), 'd') End Sub Cliquez pour agrandir... [/li][/ul][/ol] Cordialement,
Hervé XLDnaute Barbatruc 23 Septembre 2005 #3 Salut didier, re le forum Grand merci didier, j'ai gardé la deuxième possibilité, nickel !!!! salut Vote positif 0 Vote négatif