bonjour,
j'ai un userform dans lequel j'ai des zones de texte et un combobox
déroulant avec comme rowsource une liste de dates (zone de cellule nommées
ds une feuille de calcul).qd je clique dans cette liste déroulante pour
faire un choix (la valeur désignée doit faire afficher un résultat de
recherche dan sun textbox), cette liste déroulante me remplace le format
jj/mm/aa par le format numérique.
Savez vous comment rester en format date traditionnel ??
Merci par avance.
Cordialement
Eliot
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
michdenis
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'----------------
Dim Rg as range, Tblo as variant
With Worksheets("Feuil1")
set Rg = .range("A1:A" & .range("A65536").end(xlup).row)
Tblo = Rg
End With
Userform1.Combobox.list = Tblo
'----------------
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news: %23XJHBYX3FHA.1416@TK2MSFTNGP09.phx.gbl...
bonjour,
j'ai un userform dans lequel j'ai des zones de texte et un combobox
déroulant avec comme rowsource une liste de dates (zone de cellule nommées
ds une feuille de calcul).qd je clique dans cette liste déroulante pour
faire un choix (la valeur désignée doit faire afficher un résultat de
recherche dan sun textbox), cette liste déroulante me remplace le format
jj/mm/aa par le format numérique.
Savez vous comment rester en format date traditionnel ??
Merci par avance.
Cordialement
Eliot
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
EliotNaiss
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
bonsoir,
j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en
retour j'ai une erreur 70 : permission refusée !!
je n'ai peut-être pas placé le code où il fallait ???
help merci
Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'----------------
Dim Rg as range, Tblo as variant
With Worksheets("Feuil1")
set Rg = .range("A1:A" & .range("A65536").end(xlup).row)
Tblo = Rg
End With
Userform1.Combobox.list = Tblo
'----------------
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de
news: %23XJHBYX3FHA.1416@TK2MSFTNGP09.phx.gbl... bonjour,
j'ai un userform dans lequel j'ai des zones de texte et un combobox
déroulant avec comme rowsource une liste de dates (zone de cellule
nommées
ds une feuille de calcul).qd je clique dans cette liste déroulante
pour
faire un choix (la valeur désignée doit faire afficher un résultat de
recherche dan sun textbox), cette liste déroulante me remplace le
format
jj/mm/aa par le format numérique.
Savez vous comment rester en format date traditionnel ??
Merci par avance.
Cordialement
Eliot
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
michdenis
Bonjour Eliot,
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des objets de ton projet '--------------------- Dim Rg As Range, Tblo As Variant With Worksheets("Feuil1") Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) Tblo = Rg End With
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
Bonjour Eliot,
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des objets de ton projet
'---------------------
Dim Rg As Range, Tblo As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Tblo = Rg
End With
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news: Ort3E3a3FHA.3628@TK2MSFTNGP12.phx.gbl...
bonsoir,
j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en
retour j'ai une erreur 70 : permission refusée !!
je n'ai peut-être pas placé le code où il fallait ???
help merci
Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'----------------
Dim Rg as range, Tblo as variant
With Worksheets("Feuil1")
set Rg = .range("A1:A" & .range("A65536").end(xlup).row)
Tblo = Rg
End With
Userform1.Combobox.list = Tblo
'----------------
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de
news: %23XJHBYX3FHA.1416@TK2MSFTNGP09.phx.gbl... bonjour,
j'ai un userform dans lequel j'ai des zones de texte et un combobox
déroulant avec comme rowsource une liste de dates (zone de cellule
nommées
ds une feuille de calcul).qd je clique dans cette liste déroulante
pour
faire un choix (la valeur désignée doit faire afficher un résultat de
recherche dan sun textbox), cette liste déroulante me remplace le
format
jj/mm/aa par le format numérique.
Savez vous comment rester en format date traditionnel ??
Merci par avance.
Cordialement
Eliot
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des objets de ton projet '--------------------- Dim Rg As Range, Tblo As Variant With Worksheets("Feuil1") Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) Tblo = Rg End With
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
EliotNaiss
bonjour et merci ! évidemment RowSource était resté renseigné !!! maintenant, ca roule. Encore merci. Cordialement Eliot
"michdenis" a écrit dans le message de news: uPawE$
Bonjour Eliot,
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des objets de ton projet '--------------------- Dim Rg As Range, Tblo As Variant With Worksheets("Feuil1") Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) Tblo = Rg End With
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
bonjour et merci !
évidemment RowSource était resté renseigné !!!
maintenant, ca roule.
Encore merci.
Cordialement
Eliot
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uPawE$a3FHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour Eliot,
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource
du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des
objets de ton projet
'---------------------
Dim Rg As Range, Tblo As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Tblo = Rg
End With
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
Ort3E3a3FHA.3628@TK2MSFTNGP12.phx.gbl...
bonsoir,
j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais
en
retour j'ai une erreur 70 : permission refusée !!
je n'ai peut-être pas placé le code où il fallait ???
help merci
Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'----------------
Dim Rg as range, Tblo as variant
With Worksheets("Feuil1")
set Rg = .range("A1:A" & .range("A65536").end(xlup).row)
Tblo = Rg
End With
Userform1.Combobox.list = Tblo
'----------------
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de
news: %23XJHBYX3FHA.1416@TK2MSFTNGP09.phx.gbl... bonjour,
j'ai un userform dans lequel j'ai des zones de texte et un combobox
déroulant avec comme rowsource une liste de dates (zone de cellule
nommées
ds une feuille de calcul).qd je clique dans cette liste déroulante
pour
faire un choix (la valeur désignée doit faire afficher un résultat de
recherche dan sun textbox), cette liste déroulante me remplace le
format
jj/mm/aa par le format numérique.
Savez vous comment rester en format date traditionnel ??
Merci par avance.
Cordialement
Eliot
bonjour et merci ! évidemment RowSource était resté renseigné !!! maintenant, ca roule. Encore merci. Cordialement Eliot
"michdenis" a écrit dans le message de news: uPawE$
Bonjour Eliot,
Ce code fonctionne mais tu NE DOIS PAS renseigner la propriété RowSource du combobox.
Évidemment, tu dois t'assurer que le nom des objets correspond à ceux des objets de ton projet '--------------------- Dim Rg As Range, Tblo As Variant With Worksheets("Feuil1") Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) Tblo = Rg End With
bonsoir, j'ai suivi l'info et ai écris ces lignes dans UserForm_Initialize() mais en retour j'ai une erreur 70 : permission refusée !! je n'ai peut-être pas placé le code où il fallait ??? help merci Eliot
michdenis wrote:
Bonjour EliotNaiss,
Une façon de faire :
Adapte le nom des objets et de la plage de cellules
'---------------- Dim Rg as range, Tblo as variant With Worksheets("Feuil1") set Rg = .range("A1:A" & .range("A65536").end(xlup).row) Tblo = Rg End With
Userform1.Combobox.list = Tblo '----------------
"EliotNaiss" a écrit dans le message de news: % bonjour, j'ai un userform dans lequel j'ai des zones de texte et un combobox déroulant avec comme rowsource une liste de dates (zone de cellule nommées ds une feuille de calcul).qd je clique dans cette liste déroulante pour faire un choix (la valeur désignée doit faire afficher un résultat de recherche dan sun textbox), cette liste déroulante me remplace le format jj/mm/aa par le format numérique. Savez vous comment rester en format date traditionnel ?? Merci par avance. Cordialement Eliot
