Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1436 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  [EXCEL] calendrier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[EXCEL] calendrier

n°2711894
plop007
Posté le 10-08-2007 à 11:36:52  profilanswer
 

Bonjour à vous :)
 
voila je suis entrain de réaliser une feuille excel et dedans y'a des champs date j'ai trouvé comment insere un calendrier, grace à ceci : http://www.01net.com/article/325477.html
 
mais maintenant j'aimerai que la commande linkedcell ne soit pas fixe, je veux dire que l'utilisateur selectionne une cellule ds la feuille et lorsque qu'il clique dans le calendrier sa remplit la cellule selectionné.
 
savez vous faire ça ?
 
Merci d'avance :)
 
SeB

mood
Publicité
Posté le 10-08-2007 à 11:36:52  profilanswer
 

n°2712138
seniorpapo​u
Posté le 11-08-2007 à 10:48:04  profilanswer
 

Bonjour,
Avec un Userform qui contient le calendrier et un bouton de validation
et un bouton annulation
 
Cordialement
 

n°2714012
plop007
Posté le 17-08-2007 à 15:44:23  profilanswer
 

tu peux m'expliquer ?

n°2714176
seniorpapo​u
Posté le 18-08-2007 à 07:40:56  profilanswer
 

Bonjour,
je vais essayer:
 
 
Tu passes en VBE
tu crées un Userform , dans l'exemple il s'appelle Userform1
Dans cet Userform tu places le calendrier
et deux boutons de commande (l'un  pour Valider, l'autre pour annuler et conserver les valeurs précédentes)
 
Pour placer le calendrier il faut qu'il soit accessible au niveau de la boite à outils qui apparaît lorsque tu a créé ton Userform
, pour le rendre accessible: clic droite sur la boite à outils, puis clic sur contrôles supplémentaires
et cocher la ligne contrôle calendrier.
Un nouveau contrôle apparaît . Tu peux alors l'utiliser.
 
Ensuite:
 
Supposons que l'on veuille sasir une date lorsque l'on clique sur une cellule de la colonne 5 ,
 
il faut introduire le code suivant dans feuil1 (si c'est la feuil1 qui nous concerne):
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
UserForm1.Show
'ci-dessous une petite séquence supplémentaire pour placer le calendrier à un endroit acceptable
UserForm1.Move (Target.Left + 400)
End If
End Sub
 
 
Au niveau du code de calendar:
 
Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
End Sub
 
Private Sub CommandButton1_Click()
If Not IsNull(Calendar1.Value) Then Selection.Value = Calendar1.Value
UserForm1.Hide
End Sub
 
Private Sub CommandButton2_Click()
Selection.Value = res
UserForm1.Hide
End Sub
 
Private Sub UserForm_Activate()
UserForm1.Left = (Selection.Offset(0, 1).Left + 40)  'pour positionner à gauche de la colonne
If IsDate(Selection.Value) Then Calendar1.Value = CDate(Selection.Value)
res = Selection.Value
End Sub
 
 
Cordialement


Message édité par seniorpapou le 18-08-2007 à 07:42:19

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  [EXCEL] calendrier

 

Sujets relatifs
Excel, fichier qui ne s'ouvre plus aprés déplacementfonction excel
Filtrer les * dans un tableau excel [résolu][Urgent] Recuperer un fichier excel corrompu
Excel - Classement automatique[Excel] Concatener avec sauts de lignes ?
[Résolu][Outlook] Partage de calendrier entre différentes versionslogiciel pour créer un calendrier?
Calendrier dans excelCréer un planning-calendrier avec Excel
Plus de sujets relatifs à : [EXCEL] calendrier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR