Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
fev 04 mars 04...
merci
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement
Dim i
Dim valCell
ComboBox1.Clear
For i = 1 To Range("A65536").End(xlUp).Row
valCell = Format(Cells(i, 1), "mmm yy")
ComboBox1.AddItem valCell
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
8CE963C3-237B-40EE-A5A0-0CD0523C97CF@microsoft.com...
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004
mars 2004
avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche
en format date
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
fev 04 mars 04...
merci
PHIL
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24 c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005... et quand sur mon combobox 1 je selection déc 2004, ca ce met directement en format texte(38500). comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
fev 04 mars 04...
merci
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24
c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005...
et quand sur mon combobox 1 je selection déc 2004, ca ce met directement en
format texte(38500).
comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement
Dim i
Dim valCell
ComboBox1.Clear
For i = 1 To Range("A65536").End(xlUp).Row
valCell = Format(Cells(i, 1), "mmm yy")
ComboBox1.AddItem valCell
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
8CE963C3-237B-40EE-A5A0-0CD0523C97CF@microsoft.com...
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004
mars 2004
avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche
en format date
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24 c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005... et quand sur mon combobox 1 je selection déc 2004, ca ce met directement en format texte(38500). comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
fev 04 mars 04...
merci
Jean-François Aubert
Salut Phil,
Est-ce que ceci fait l'affaire ?
Ne rien mettre dans la propriété LinkedCell
Private Sub ComboBox1_Click() Range("C1") = ComboBox1.Value Range("C1").NumberFormat = "mmm yy" ComboBox1.Value = Format(ComboBox1.Value, "mmm yy") End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24 c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005... et quand sur mon combobox 1 je selection déc 2004, ca ce met directement en format texte(38500). comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
fev 04 mars 04...
merci
Salut Phil,
Est-ce que ceci fait l'affaire ?
Ne rien mettre dans la propriété LinkedCell
Private Sub ComboBox1_Click()
Range("C1") = ComboBox1.Value
Range("C1").NumberFormat = "mmm yy"
ComboBox1.Value = Format(ComboBox1.Value, "mmm yy")
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
187F9449-285A-4A94-8C59-5A8C58B6C9DF@microsoft.com...
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24
c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005...
et quand sur mon combobox 1 je selection déc 2004, ca ce met directement
en
format texte(38500).
comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement
Dim i
Dim valCell
ComboBox1.Clear
For i = 1 To Range("A65536").End(xlUp).Row
valCell = Format(Cells(i, 1), "mmm yy")
ComboBox1.AddItem valCell
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
8CE963C3-237B-40EE-A5A0-0CD0523C97CF@microsoft.com...
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004
mars 2004
avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela
s'affiche
en format date
Private Sub ComboBox1_Click() Range("C1") = ComboBox1.Value Range("C1").NumberFormat = "mmm yy" ComboBox1.Value = Format(ComboBox1.Value, "mmm yy") End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
je pourrai pas l'ecrire directement dans le combobox1, directement.
car au fait j'ai une liste avec des dates de B1 à B24 c'est des dates, tels qu'elle: Déc 2004, fev2005,jan 2005... et quand sur mon combobox 1 je selection déc 2004, ca ce met directement en format texte(38500). comment contourner ce petit soucis.
Cordialement,
Salut Phil,
Private Sub Worksheet_Activate() ' ou un autre évènement Dim i Dim valCell ComboBox1.Clear For i = 1 To Range("A65536").End(xlUp).Row valCell = Format(Cells(i, 1), "mmm yy") ComboBox1.AddItem valCell Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"PHIL" a écrit dans le message de news:
Bonjour,
je voudrai mettre dans ma combobox des formats dates c'est a dire.
dans ma liste j'ai fev 2004 mars 2004 avril 2004
et quand je le selectionne dans ma combobox, je voudrai que cela s'affiche en format date
