USF + Calendrier

[tdaoui]

Bonjour à tous,
Bonjour le forum,

Meilleurs voeux à tous

J'ai une question SVP, je suis tjs débutant et je veux savoir si je peux appeler un USF depuis un autre USF

Exemple : J'ai un formulaire dans lequel j'ai une case 'DATE' que je souhaite automatiser également
Et au lieu de saisir manuellement la date je souhaite afficher le calendrier pour pouvoir séléctionner la date avec un clic

En PJ en exemple à corriger SVP

 

[abc]

Re : USF + Calendrier

Bonsoir,
Pourquoi n'essayes tu pas d'insére par la boite a outils l'option CALANDAR
A +

 

[tdaoui]

Re : USF + Calendrier

Je ne trouve pas !

Que dois-je faire?

 

[abc]

Re : USF + Calendrier

Bonsoir,
Clic sur ALT + F11 pour acceder a VBA .
Clic D sur ton USEFORM -> Propriété -> la boite à outils va apparaitre puis fait glisser le calandar sur ton userform comme tu as fais glisser les autres controle .
A +

 

[tdaoui]

Re : USF + Calendrier

Ok j'ai vu (je n'avais pas le contôle dans la boîte à outils)

Mais j'ai toujours une question
Comment faire une liason entre ce calendrier et un combo ?
voir exemple (photo)

 

[pierrejean]

Re : USF + Calendrier

bonjour tdaoui

Salut abc

vois si cela te convient

Private Sub UserForm_Initialize()
ComboBox2 = Calendar1
End Sub
Private Sub Calendar1_Click()
ComboBox2 = Calendar1
End Sub

 

[tactic6]

Re : USF + Calendrier

Bonsoir PierreJean

Une petite question
pourquoi le calendrier ne se met pas automatiquement a la date du jour quand on l'ouvre ?

 

[pierrejean]

Re : USF + Calendrier

re

parcequ'il aurait fallu mettre:

Private Sub UserForm_Initialize()
[COLOR=blue]Calendar1 = Now
[/COLOR]ComboBox2 = Calendar1
End Sub

 

[tactic6]

Re : USF + Calendrier

Cool
je vais essayer
merci


Edit
ça marche super bien

 

[rollingboy]

Re : USF + Calendrier

Bonjour,
Je tente déseperement d'utiliser le contrôle calendrier dans une feuille excel.
Pour cela j'ai créé un userForm dans lequel j'intègre le calendrier.

Dans le module Calendrier je met ce code

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub Calendrier_Initialize()
 If IsDate(ActiveCell.Value) Then
            Calendar1.Value = DateValue(ActiveCell.Value)
      Else
            Calendar1.Value = Now
      End If

End Sub

Et sur la feuille concernée j'ai ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Left(ActiveCell.Address, 2) = "$D") Or (Left(ActiveCell.Address, 2) = "$E") Then
        Load Calendrier
        Calendrier.Show

End If

    End Sub

Les champs "date" sont sur D et E
Mon soucis est que lorsque je clique sur quelque case que ce soit, la date sur le calendrier est toujours celle définie par défaut sur le formulaire, il ne tiens pas compte de ce que je met dans initialize.

Quelqu'un aurait-il une idée?

PS : j'ai le même problème avec les fichiers exemples donnés sur le Forum

 

[pierrejean]

Re : USF + Calendrier

bonjour rollingboy

peux-tu mettre une copie ton fichier STP , ce sera plus facile
(de preference zippé <48k et sans données confidentielles)

 

[rollingboy]

Re : USF + Calendrier

Bonjour et merci de ton aide PierreJean
Je joint le fichier avec la feuille concernée

Petite précision je suis sous Win XP SP2 et OFFICE 2003

 

[pierrejean]

Re : USF + Calendrier

Re

Voici pour le calendrier et son initialisation (de l'userform et non du calendrier)
Pour le reste, je n'ai pas compris ce que tu cherches a faire

 

[rollingboy]

Re : USF + Calendrier

Merci PierreJean pour ta réactivité.
Il semblerait que le fait de changer le non UserForm par Calendrier (pure coqueterie de ma part) faisait que mon code ne fonctionnait pas.
En utilisant UserForm, et le code ci dessous tout marche comme prévu

Ceci sur la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Left(ActiveCell.Address, 2) = "$D") Or (Left(ActiveCell.Address, 2) = "$E") Then
       Load UserForm1
       UserForm1.Show

et cela sur le Contrôle Calendrier

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub UserForm_Click()
MsgBox (Now)
End Sub

Private Sub UserForm_Initialize()
 If IsDate(ActiveCell.Value) Then
            Calendar1.Value = DateValue(ActiveCell.Value)
      Else
            Calendar1.Value = Date
      End If

End Sub

Pour ce qui concernait le bout de code sous l'instruction UserForm.Show

Range("c65536").End(xlUp).Activate
ligne = ActiveCell.Row
   Range("B1").Select
   Selection.Copy
   Range("A3").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.AutoFill Destination:=Range("A3:A" & ligne)
   Range("D65536").End(xlUp).Activate
   
    End Sub

Il me permet de remplir automatiquement la colonne A avec le nom du projet contenu dans B1 si la cellule de la colonne C est non vide. De cette façon, je peut utiliser un UsedRange pour récupérer certaines info dont le nom du projet contenu en A.

Option Explicit



Sub planning()
Dim zone As Range
   Worksheets("planning").Range("A:F").Clear
   Set zone = Application.Intersect(Worksheets("projet").UsedRange, Worksheets("projet").Range("A:F"))
   zone.Copy: Worksheets("planning").Range("A3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False

End Sub



Private Sub Worksheet_Activate()
planning
End Sub

Cordialement