UserForm date auto

[Bruce68]

Bonsoir à tous
J evoudrais pouvoir gerer 8 dates avec 1 seul calendrier , pour 1 date je sais presque faire pour la suite mes competance en VBA ne me le permette pas.
Gerer DateDebut et Datefin pour Appartement, commerce, garage et parking soit pour tous ou pour 3 ou pour 2 ou pour 1 sans ordre ( cela peut etre appartement + parking et commerce ou parking et garage, etc etc... peut etre avec des cases à cocher.
Fichier en piece jointe.
Je vous remercie de toute l'aide que vous pourrez m'e donner

 

[joss56]

Re : UserForm date auto

Bonjour à tous,

Il serait peut être préferable de créer un bouton devant chaque zone de texte
Sur l'évènement click du bouton, tu renseignes un label (1,2,3...) et lorsque tu cliques sur ton calendrier, tu testes la valeur du label et tu affectes la date à la zone de texte correspondante.

Ca, c'est pour le principe, reste plus qu'à coder un peu. Bon courage

Joss

 

[deudecos]

Re : UserForm date auto

Salut Joss56, Bruce68, le forum,

Ou bien virer ton calendar et remplacer toutes tes textebox par des dtPicker, ce qui te faciliterait grandement la tache.

Bonne journee

Olivier

 

[joss56]

Re : UserForm date auto

Salut le forum, Olivier

dtPicker?, c'est quoi ça?
Bonne journée

 

[deudecos]

Re : UserForm date auto

Re,

dtPicker?, c'est quoi ça?

C'est une autre forme de calendrier, la difference c'est que ca resemble plus a un combobox, mais ca fait le meme boulot dans un minimum de place 🙂

Bonne journee

Olivier

 

[joss56]

Re : UserForm date auto

On le trouve dans les contrôles supplémentaires? (excel 2003)
sous quel nom? Parce que j'ai regardé, mais n'ai pas trouvé...
Merci

 

[joss56]

Re : UserForm date auto

ok, j'ai trouvé. C'est vrai que c'est plus simple à gérer
Merci du tuyau!

 

[Bruce68]

Re : UserForm date auto

Bonjour à tous
Merci à deudecos pour ça solution
Maintenant j'ai un autre probleme je ne voudrais pa pouvoir incerer la date 2 fois car à la 2° fois la la macro recherche la derniere cellule vide et cela decale tout.
j'ia essayé un if dans ma macro mais cela ne fonctionne pas.
Je voudrais également quand je fais annuler remttre la date à aujourd'hui.
Nouveau fichier joint.
Merci à tous pour votre aide

 

[deudecos]

Re : UserForm date auto

Re tous,

Euh je voudrais bien t'aider sur ce coup la mais va falloir attendre la fin du week end parce que je suis sur 2007 pendant le week end, et je viens de m'appercevoir que je ne peux pas obtenir ni utiliser les DTPicker... Autrement dit, je ne peux rien en faire en ce moment...
Donc si tu as la patience, je m'en occupe des lundi.

Bonne journee

Olivier

 

[Cousinhub]

Re : UserForm date auto

Bonjour,
pour ta première question, place x = 1 dans Private Sub UserForm_Initialize()
pour la deuxième, tu mets ce code :

Private Sub Bt_Annuler_Click()
If x > 1 Then Range("A" & [A65000].End(xlUp).Row).Value = Date
End Sub

 

[Bruce68]

Re : UserForm date auto

Bonsoir à tous
Merci bhbh ta solution fonctionne

Je remercie également Deudecos pour son dévouement, si tu as une proposition je suis toujours preneur, pour le moment j'ai adapter la solution de bhbh qui me convien.

Bonne semaine à tous.

 

[deudecos]

Re : UserForm date auto

Salut Bruce, bhbh,

En fait, c'est une bonne solution, et du moment que ca te convient alors ca me va, merci bhbh.

Bonne soiree

Olivier