DataTime Picker

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués ailleurs..)

mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui s'affiche et
code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la fin,
pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA Project
(FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner la
cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci

Bonjour,

Ne serait pas plus simple de mettre une condition, en début de procédure,
visant l'intersect entre ton Range souhaité et le target adress ou
activecell.....

Si la condition est rencontrée, tu amènes ton Date Picker.

Dans le cas contraire, tu amènes un msgbox qui dicte la cellule où
l'utilisateur doit se trouver et tu exit de la procédure.

Me semble que ce serait moins compliqué que de rejouer dans le code de M.
Pierron qui de toutes façons te semble inaccessible.......

Salutations.

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA Project
(FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner la
cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci

Ouinn, oki comment ja fais ça?


"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le
message de news: A2B517F2-62AC-4EBC-9C32-F75EDBA89A09@microsoft.com...

Bonjour,

Ne serait pas plus simple de mettre une condition, en début de procédure,
visant l'intersect entre ton Range souhaité et le target adress ou
activecell.....

Si la condition est rencontrée, tu amènes ton Date Picker.

Dans le cas contraire, tu amènes un msgbox qui dicte la cellule où
l'utilisateur doit se trouver et tu exit de la procédure.

Me semble que ce serait moins compliqué que de rejouer dans le code de M.
Pierron qui de toutes façons te semble inaccessible.......

Salutations.

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA
Project
(FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner
la
cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à
rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui
s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais
mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie
est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci

Je l'ai presque.....

Sauf qu'il se met pas à la bonne place, c'est-à-dire choisit dans la saisie:
______________________________
Sub DatePicker()
Dim B As Variant
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
iFlag = Not ThisWorkbook.Sheets(1).CheckBoxes("Case1") = 1
If iFlag Then UserForm1.Show Else frmDPicker.Show
End Sub
_____________________________


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ulmd2uPyFHA.2212@TK2MSFTNGP15.phx.gbl...

Ouinn, oki comment ja fais ça?


"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans
le message de news: A2B517F2-62AC-4EBC-9C32-F75EDBA89A09@microsoft.com...

Bonjour,

Ne serait pas plus simple de mettre une condition, en début de procédure,
visant l'intersect entre ton Range souhaité et le target adress ou
activecell.....

Si la condition est rencontrée, tu amènes ton Date Picker.

Dans le cas contraire, tu amènes un msgbox qui dicte la cellule où
l'utilisateur doit se trouver et tu exit de la procédure.

Me semble que ce serait moins compliqué que de rejouer dans le code de M.
Pierron qui de toutes façons te semble inaccessible.......

Salutations.

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA
Project
(FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier
s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner
la
cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à
vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à
rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui
s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais
mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie
est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à
vendre?..

Merci

Question facile....

Ayant moi-même fait mes débuts en VBA il n'y a pas si longtemps, je peux te
dire que beaucoup de réponses à tes questions et d'exemples sont disponibles
sur Excelabo. Il ne faut que se donner la peine de chercher et lire quelques
heures.....

Je te donne ici un bout de code d'une de mes procédure qui, je pense, fait à
peu près ce dont tu as besoin (si j'ai bien compris ta demande). À toi de
l'adapter...

Mon UserForm 6 contient mon Time Picker (comme tu le souhaitais toi-même).

Ciao !

Sub DateAnalyse()

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="adm"

If Intersect(ActiveCell, Range("O26:O300")) Is Nothing Then
MsgBox "Actuellement, la cellule active n'est pas dans la colonne O -
(Date Analysée)"

ActiveSheet.Protect Password:="adm", DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingRows:úlse,
AllowDeletingRows _
:úlse, AllowFiltering:=True
Exit Sub
End If

UserForm6.Show

Sheets("Feuil1").Visible = False
Sheets("Cumulatif 2005").Paste

If Range("E" & ActiveCell.Row).Value > Range("O" & ActiveCell.Row).Value
Then

Application.ScreenUpdating = True

MsgBox "IL EST IMPOSSIBLE QUE VOTRE DATE D'ANALYSE DU CAS SOIT
ANTÉRIEURE À LA DATE DE CRÉATION TDD - VEUILLEZ SPÉCIFIER UNE NOUVELE DATE"
ActiveCell.Value = ""

With Range("N:N,L:L,G:G,H:H,B:B,J:J,ZoneDate")
.Locked = True
.FormulaHidden = False
.WrapText = True
End With

ActiveSheet.Protect Password:="adm", DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingRows:úlse,
AllowDeletingRows _
:úlse, AllowFiltering:=True
Exit Sub
End If

ActiveCell.Offset(0, 1).Select


With Range("N:N,L:L,G:G,H:H,B:B,J:J,ZoneDate")
.Locked = True
.FormulaHidden = False
.WrapText = True
End With

ActiveSheet.Protect Password:="adm", DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingRows:úlse,
AllowDeletingRows _
:úlse, AllowFiltering:=True

Application.ScreenUpdating = True

End Sub

Ouinn, oki comment ja fais ça?


"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le
message de news: A2B517F2-62AC-4EBC-9C32-F75EDBA89A09@microsoft.com...

Bonjour,

Ne serait pas plus simple de mettre une condition, en début de procédure,
visant l'intersect entre ton Range souhaité et le target adress ou
activecell.....

Si la condition est rencontrée, tu amènes ton Date Picker.

Dans le cas contraire, tu amènes un msgbox qui dicte la cellule où
l'utilisateur doit se trouver et tu exit de la procédure.

Me semble que ce serait moins compliqué que de rejouer dans le code de M.
Pierron qui de toutes façons te semble inaccessible.......

Salutations.

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA
Project
(FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner
la
cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à
rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui
s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais
mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie
est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci

Je ne comprend pas ton affaire.

Une seule chose que je veux, je veux lui dire de prendre la nouvelle cellule
sélectionnée pour appliquer la macro.
Le "B"
____________________________________________________________
Sub DatePicker()
Dim B As Integer
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
'Range("B").Select
iFlag = Not ThisWorkbook.Sheets(1).CheckBoxes("Case1") = 1
If iFlag Then UserForm1.Show Else frmDPicker.Show
End Sub
______________________________________________________________

Funcres appartient à excel et il est normal
que tu ne puisses pas l'ouvrir, il n'a rien à
voir avec cette macro.
le frmdpicker entre la date dans la cellule active tu n'a qu'à en changer!
lSteph
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
emYQm9OyFHA.2228@TK2MSFTNGP11.phx.gbl...

Merci, ça fonctionné.

Non, j'ai un dossier dans l'explorateur de projet qui s'appèle "VBA
Project (FUNCRES.XLA) qui est bloquer par un mot de passe.

Mais, j'aimerais l'amélioré, lui rajouter une fenêtre pour spécifier s'il
est sur la bonne cellule, sinon, ça lui donne une chance de sélectionner
la cellule comme cette macro:

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Merci


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eAUD28KyFHA.3360@TK2MSFTNGP11.phx.gbl...

Bonjour Erico,

C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..
Il existe aussi des sites où l'on vend des codes (parfois piqués

ailleurs..)
mais aussi des gens qui font partager certaines de leur réalisation
durement menée à bien
et que s'ils les exploitent par ailleurs peuvent vouloir en protèger
certains éléments.Or ici ce n'est même pas le cas.
Ce certainement pas volontaire, mais quand même, cette phrase selon la
lecture qu'on peut en faire
n'est pas forcément aimable pour qui met tant d'ardeur bénévole à rendre
disponible
sans restriction sur son site les réalisations les meilleures.

Parmi les si nombreux exemples plus précisément lequel avec "Datatime
picker" dis-tu,
si tu fais allusion à celui de MichelP il n'y a rien de protègé.
Pour voir lecode du frmDpicker tu dois l'afficher à partir de
l'explorateur de projet
en dblcliquant dessus puis faire un clic droit sur l'objet qui s'affiche
et code:
....
Friend Sub DateOfDay_Click()
Me.Hide
If iFlag Then
If UserForm1.Visible Then
UserForm1.TextBox1 = Format(iDate, "Long date")
UserForm1.TextBox2 = Format(iDate, "dd/mm/yy")
End If
Else
ActiveCell.NumberFormat = "dd/mm/yy"..........
.........c'est là le format

Sinon, pour le reste chez moi pas de bug.

lSteph



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
ejCU7tFyFHA.2348@TK2MSFTNGP15.phx.gbl...

Bonjour,

J'ai trouvé le fameux calendrier "DataTime Picker" sur le site
www.excelabo.net mais j'ai un probleme avec;
1- Quand je met une protection sur le fichier, la macro bogue vers la
fin, pourtant, la cellule en question est déprotégée.
2- Quand la macro s'exécute normalement, le format date que j'avais mis
est remplacer par celle de la macro.
J'essaye de modifier dans les macros, mais je crois que cette partie est
protégé par un mot de passe.
C'est quoi l'idée de mettre une protection sans qu'il soit à vendre?..

Merci