Discussion :

[Kouryuu44]

Bonjour à tous !

Voici mon souci. J'utilise un formulaire pour ajouter ou modifier des lignes à une feuille de tableur Excel. Si la première partie ne me cause pas de soucis, je bloque à la seconde, à cause du DTPicker. En effet, j'ai beau essayer des manipulations comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("Date").Value = CDate(Sheets("Feuil1").Range("F2").Value)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("Date").Value = Format(Sheets("Feuil1").Range("F2").Value, "mm/dd/yyyy")

ou même simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("Date").Value = Sheets("Feuil1").Range("F2").Value

Je me retrouve avec une erreur d'exécution 35788, et c'est bien cette ligne d'initialisation du DTPicker qui fait des misères.

Je commence même à me demander si ce que je veux faire est possible. Merci d'avance pour votre aide !

[casefayere]

Bonjour,
1 - Si "Date" est le nom de ton controle DtPicker, changes ce nom car c'est un mot clé réservé
2 -

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DTPicker1 = Range("F2")'en changeant par le nouveau nom que tu donneras

[Kouryuu44]

Je te remercie de ta réponse rapide

1- Non, mon DTPicker ne s'appelait pas Date, j'ai juste mis un nom bidon pour le forum

2- Bien que simple, je ne peux pas utiliser ta solution.

J'aurais dû préciser que j'utilise un Multipage, chacune de ces pages étant identiques (j'ai besoin de récupérer plusieurs versions), et donc mes DTPicker s'appellent ChDate0, ChDate1, etc... et pour les appeler, j'utilisais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("ChDate" & numPage)

Je viens d'essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("ChDate" & numPage) = Range("F2")

Mais malheureusement, l'erreur persiste.

EDIT : modification du titre étant donné qu'après quelques tests, c'est bel et bien le combo DTPicker + Multipage qui fait des siennes. Ou plutôt devrais-je dire que je ne sais pas les marier ^^'

[Kouryuu44]

J'ai finalement trouvé une solution.

Je la donne au cas où d'autres que moi auraient un problème similaire.

Il faut tout simplement que la page du multipage sur laquelle se trouve le DTPicker soit sélectionnée.

Ainsi, je me retrouve maintenant avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Multipage1.Value = numPage
Controls("ChDate" & numPage) = Range("F2")

Par contre si quelqu'un sait pour quelle raison il y a besoin de sélectionner la page pour les DTPicker, et pas pour les Textbox ou les CheckBox, je suis preneur ^^

Merci encore casefayere pour ton aide