Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la plage source, utiliser ceci :
Dim Tblo as variant Tblo = Range("A1:"A10") Me.combobox1.List = Tblo
Salutations!
"CBR" a écrit dans le message de news: 43cfd280$0$5141$
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa" dans un ComboBox?
Merci d'avance
CBR
CBR
Bonsoir michdenis désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la date apparait sous forme de décimale A savoir: ma combobox se trouve dans un userform la plage source de mes dates se trouve sur une feuille caché du classeur (version 2000 d'excel)
tu me suggéres de les copier où ces données ? dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations CBR
"michdenis" a écrit dans le message de news:
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la plage source, utiliser ceci :
Dim Tblo as variant Tblo = Range("A1:"A10") Me.combobox1.List = Tblo
Salutations!
"CBR" a écrit dans le message de news: 43cfd280$0$5141$
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa" dans un ComboBox?
Merci d'avance
CBR
Bonsoir michdenis
désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la
date apparait sous forme de décimale
A savoir:
ma combobox se trouve dans un userform
la plage source de mes dates se trouve sur une feuille caché du classeur
(version 2000 d'excel)
tu me suggéres de les copier où ces données ?
dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
utEMGtSHGHA.1192@TK2MSFTNGP11.phx.gbl...
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la
plage source, utiliser ceci :
Dim Tblo as variant
Tblo = Range("A1:"A10")
Me.combobox1.List = Tblo
Salutations!
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news:
43cfd280$0$5141$626a54ce@news.free.fr...
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa"
dans un ComboBox?
Bonsoir michdenis désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la date apparait sous forme de décimale A savoir: ma combobox se trouve dans un userform la plage source de mes dates se trouve sur une feuille caché du classeur (version 2000 d'excel)
tu me suggéres de les copier où ces données ? dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations CBR
"michdenis" a écrit dans le message de news:
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la plage source, utiliser ceci :
Dim Tblo as variant Tblo = Range("A1:"A10") Me.combobox1.List = Tblo
Salutations!
"CBR" a écrit dans le message de news: 43cfd280$0$5141$
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa" dans un ComboBox?
Merci d'avance
CBR
michdenis
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
"CBR" a écrit dans le message de news: 43d000be$0$18196$ Bonsoir michdenis désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la date apparait sous forme de décimale A savoir: ma combobox se trouve dans un userform la plage source de mes dates se trouve sur une feuille caché du classeur (version 2000 d'excel)
tu me suggéres de les copier où ces données ? dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations CBR
"michdenis" a écrit dans le message de news:
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la plage source, utiliser ceci :
Dim Tblo as variant Tblo = Range("A1:"A10") Me.combobox1.List = Tblo
Salutations!
"CBR" a écrit dans le message de news: 43cfd280$0$5141$
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa" dans un ComboBox?
Merci d'avance
CBR
Essaie ceci :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille")
Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub
'---------------------
Salutations!
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news: 43d000be$0$18196$636a55ce@news.free.fr...
Bonsoir michdenis
désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la
date apparait sous forme de décimale
A savoir:
ma combobox se trouve dans un userform
la plage source de mes dates se trouve sur une feuille caché du classeur
(version 2000 d'excel)
tu me suggéres de les copier où ces données ?
dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
utEMGtSHGHA.1192@TK2MSFTNGP11.phx.gbl...
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la
plage source, utiliser ceci :
Dim Tblo as variant
Tblo = Range("A1:"A10")
Me.combobox1.List = Tblo
Salutations!
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news:
43cfd280$0$5141$626a54ce@news.free.fr...
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa"
dans un ComboBox?
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
"CBR" a écrit dans le message de news: 43d000be$0$18196$ Bonsoir michdenis désolé mais je n'arrive pas à faire fonctionner tes solutions, au mieux la date apparait sous forme de décimale A savoir: ma combobox se trouve dans un userform la plage source de mes dates se trouve sur une feuille caché du classeur (version 2000 d'excel)
tu me suggéres de les copier où ces données ? dans "Private Sub ComboBox1_Change()" cela ne fonctionne pas.
Salutations CBR
"michdenis" a écrit dans le message de news:
Bonjour CBR,
Si tu utilises la méthode ADDITEM du combobox,
Me.Combobox1.additem format(date,"dd/mmm/yyyy")
Si tu veux récupérer une date telle qu'afficher dans une cellule :
Me.ComboBox1.AddItem Range("A1").Text
Et tu peux aussi si c'est une colonne remplie de date qui est la plage source, utiliser ceci :
Dim Tblo as variant Tblo = Range("A1:"A10") Me.combobox1.List = Tblo
Salutations!
"CBR" a écrit dans le message de news: 43cfd280$0$5141$
Bonsoir à tous
Qui peut me dire comment mettre une date au format "jj/mm/aa" dans un ComboBox?
Merci d'avance
CBR
CBR
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
Slut michdenis
cela me donne effectivement une date, mais pas la bonne.
Expl., si je choisie comme date "20/01/2006" dans la liste
J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uKShhCUHGHA.376@TK2MSFTNGP12.phx.gbl...
Essaie ceci :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille")
Me.ComboBox1.List = .Range("A1:A" &
.Range("A65536").End(xlUp).Row).Value
End With
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
CBR
Oupssss!!! erreur J'avais laissé une de tes formules précédentes dans "Private sub .......change" En fait c'est toujours un nbre décimal qui en résulte. ci joint mon classeur, si çà peut aider. http://cjoint.com/?bukbWVidB7
Bonne journée CBR
"CBR" a écrit dans le message de news: 43d0a35a$0$10658$
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
Oupssss!!! erreur
J'avais laissé une de tes formules précédentes dans "Private sub
.......change"
En fait c'est toujours un nbre décimal qui en résulte.
ci joint mon classeur, si çà peut aider.
http://cjoint.com/?bukbWVidB7
Bonne journée
CBR
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news:
43d0a35a$0$10658$626a54ce@news.free.fr...
Slut michdenis
cela me donne effectivement une date, mais pas la bonne.
Expl., si je choisie comme date "20/01/2006" dans la liste
J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uKShhCUHGHA.376@TK2MSFTNGP12.phx.gbl...
Essaie ceci :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille")
Me.ComboBox1.List = .Range("A1:A" &
.Range("A65536").End(xlUp).Row).Value
End With
Oupssss!!! erreur J'avais laissé une de tes formules précédentes dans "Private sub .......change" En fait c'est toujours un nbre décimal qui en résulte. ci joint mon classeur, si çà peut aider. http://cjoint.com/?bukbWVidB7
Bonne journée CBR
"CBR" a écrit dans le message de news: 43d0a35a$0$10658$
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
michdenis
Bonjour CBR,
Dans la procédure "Activate" de ton formulaire, on y retrouve ceci :
ComboBox5.RowSource = "data!F1:F4"
Si tu inhibes cette ligne de code, cela solutionnera ton problème !
Salutations!
"CBR" a écrit dans le message de news: 43d0a7c3$0$31576$ Oupssss!!! erreur J'avais laissé une de tes formules précédentes dans "Private sub .......change" En fait c'est toujours un nbre décimal qui en résulte. ci joint mon classeur, si çà peut aider. http://cjoint.com/?bukbWVidB7
Bonne journée CBR
"CBR" a écrit dans le message de news: 43d0a35a$0$10658$
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
Bonjour CBR,
Dans la procédure "Activate" de ton formulaire, on y retrouve ceci :
ComboBox5.RowSource = "data!F1:F4"
Si tu inhibes cette ligne de code, cela solutionnera ton problème !
Salutations!
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news: 43d0a7c3$0$31576$636a55ce@news.free.fr...
Oupssss!!! erreur
J'avais laissé une de tes formules précédentes dans "Private sub
.......change"
En fait c'est toujours un nbre décimal qui en résulte.
ci joint mon classeur, si çà peut aider.
http://cjoint.com/?bukbWVidB7
Bonne journée
CBR
"CBR" <nospam_cbr@free.fr> a écrit dans le message de news:
43d0a35a$0$10658$626a54ce@news.free.fr...
Slut michdenis
cela me donne effectivement une date, mais pas la bonne.
Expl., si je choisie comme date "20/01/2006" dans la liste
J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uKShhCUHGHA.376@TK2MSFTNGP12.phx.gbl...
Essaie ceci :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille")
Me.ComboBox1.List = .Range("A1:A" &
.Range("A65536").End(xlUp).Row).Value
End With
Dans la procédure "Activate" de ton formulaire, on y retrouve ceci :
ComboBox5.RowSource = "data!F1:F4"
Si tu inhibes cette ligne de code, cela solutionnera ton problème !
Salutations!
"CBR" a écrit dans le message de news: 43d0a7c3$0$31576$ Oupssss!!! erreur J'avais laissé une de tes formules précédentes dans "Private sub .......change" En fait c'est toujours un nbre décimal qui en résulte. ci joint mon classeur, si çà peut aider. http://cjoint.com/?bukbWVidB7
Bonne journée CBR
"CBR" a écrit dans le message de news: 43d0a35a$0$10658$
Slut michdenis cela me donne effectivement une date, mais pas la bonne. Expl., si je choisie comme date "20/01/2006" dans la liste J'obtient "19/01/2002"
problème de calendrier ?
Salutations
CBR
"michdenis" a écrit dans le message de news:
Essaie ceci :
'--------------------- Private Sub UserForm_Initialize()
With Worksheets("NomDeLaFeuille") Me.ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value End With
End Sub '---------------------
Salutations!
CBR
Soir michdenis effectivement cela marche au poil
merci de ton aide
bon week
CBR
"michdenis" a écrit dans le message de news:
Bonjour CBR,
Dans la procédure "Activate" de ton formulaire, on y retrouve ceci :
ComboBox5.RowSource = "data!F1:F4"
Si tu inhibes cette ligne de code, cela solutionnera ton problème !
Salutations!
Soir michdenis
effectivement cela marche au poil
merci de ton aide
bon week
CBR
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eOlUshcHGHA.524@TK2MSFTNGP09.phx.gbl...
Bonjour CBR,
Dans la procédure "Activate" de ton formulaire, on y retrouve ceci :
ComboBox5.RowSource = "data!F1:F4"
Si tu inhibes cette ligne de code, cela solutionnera ton problème !
