> Tous les forums > Forum Bureautique
 Calendrier dans EXCEL 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
1000cbr
  Posté le 11/07/2016 @ 19:00 
Aller en bas de la page 
Astucien

Bonsoir

J'ai installé « Microsoft Date and Time Picker Control » dans mon Excel 2007 et ceci fonctionne très bien.

Seulement je n'arrive pas à faire venir la date choisie dans cellule de mon choix.

Exemple : j'ai une série de ligne comprenant divers paramètres et je souhaite, en début de chaque ligne, faire apparaître une date sélectionnée.

Donc je choisi ma date dans le calendrier et je voudrai que cette date apparaisse dans la cellule où j'étais lorsque j'ai fait mon choix.

En clair il faudrait que le calendrier s'affiche sur toutes mes cellules "date" de chaque ligne.

Est-ce possible ?

Je vous remercie par avance.

Publicité
dlxpat
 Posté le 11/07/2016 à 20:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut, je connais quelqu'un dans le vaucluse qui adore le billard, mais ça fait un peu loin !

1000cbr
 Posté le 11/07/2016 à 20:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

dlxpat a écrit :

Salut, je connais quelqu'un dans le vaucluse qui adore le billard, mais ça fait un peu loin !

J'aurais aimé une réponse plus pertinente mais tant pis.

LORENZO83
 Posté le 12/07/2016 à 12:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Copier ceci dans le module de la feuille

Private Sub DTPicker1_Change() 'ne copie la date que lorsque qu'il y a un changement de date, nécessite le changement de date
ActiveCell.Value = DTPicker1
End Sub

ou bien ceci

Private Sub DTPicker1_Click() 'copie la date lors d'un clic sur le calendrier, ne nécessite pas le changement de date
ActiveCell.Value = DTPicker1
End Sub

Remplacez le N° à la fin de "DTPicker1" par celui attribué à votre "DTPicker"

Cdlt



Modifié par LORENZO83 le 12/07/2016 13:01
1000cbr
 Posté le 12/07/2016 à 13:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

LORENZO83 a écrit :

Bonjour

Copier ceci dans le module de la feuille

Private Sub DTPicker1_Change() 'ne copie la date que lorsque qu'il y a un changement de date, nécessite le changement de date
ActiveCell.Value = DTPicker1
End Sub

ou bien ceci

Private Sub DTPicker1_Click() 'copie la date lors d'un clic sur le calendrier, ne nécessite pas le changement de date
ActiveCell.Value = DTPicker1
End Sub

Remplacez le N° à la fin de "DTPicker1" par celui attribué à votre "DTPicker"

Cdlt

Salutations !

Je joins une feuille EXCEL pour plus de compréhension de ma demande.

Mais je me rends compte que je ne sais pas faire.

LORENZO83
 Posté le 12/07/2016 à 14:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ou est la feuille?

1000cbr
 Posté le 12/07/2016 à 14:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

LORENZO83 a écrit :

Ou est la feuille?

JE t'ai dit en fin de post que je ne savais pas faire (envoyer autre chose qu'une image) !

LORENZO83
 Posté le 12/07/2016 à 15:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Pour déposer un fichier en pièce jointe aller "www.cjoint.com" -clic sur "parcourir" -sélectionnez le fichier à envoyer -clic sur "créer le lien Cjoint" (bouton en bas) -clic droit sur le lien proposé, et sélectionnez "copier l'adresse du lien" -Clic sur la 4ème icône ci-dessus (représente des 3 chaînons), et coller le lien proposé
1000cbr
 Posté le 12/07/2016 à 15:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Voilà ! Je pense que c'est cela.

Le problème est qu'il te faut avoir le calendrier pour tester !

http://www.cjoint.com/c/FGmnCPPvojn

Publicité
LORENZO83
 Posté le 12/07/2016 à 15:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
1000cbr
 Posté le 12/07/2016 à 16:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Super !

Pour être parfait il faudrait que l'appel au calendrier se fasse à chaque positionnement sur une des cellule de la colonne B !

Mais déjà merci.

LORENZO83
 Posté le 12/07/2016 à 16:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Voilà, à condition que les lignes aient toujours la même hauteur soit 24,25, sinon à adapter

http://www.cjoint.com/c/FGmosQvMgck



Modifié par LORENZO83 le 12/07/2016 16:24
LORENZO83
 Posté le 12/07/2016 à 16:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

petit correctif

a remplacer le code de Private Sub Worksheet_SelectionChange par celui-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 2 And ActiveCell.Row > 3 Then
Lig = ActiveCell.Row
Hlig = ActiveCell.RowHeight
ActiveSheet.Shapes("DTPicker21").Select
Selection.ShapeRange.Top = (Lig * Hlig) - Hlig
End If
End Sub

1000cbr
 Posté le 12/07/2016 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bravo !

Encore une chose comme je vois que tu manies Excel super bien et après je te laisse tranquille !

Est-il possible que l'ascenseur à droite de la cellule ne s'affiche que lorsqu'on positionne le curseur dessus à l'instar de la zone d'une liste de choix par exemple ?

LORENZO83
 Posté le 13/07/2016 à 10:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Est-il possible que l'ascenseur à droite de la cellule ne s'affiche que lorsqu'on positionne le curseur dessus à l'instar de la zone d'une liste de choix par exemple ?

Là, je crois que j'ai manqué quelque chose, ou du moins, je n'ai pas tout compris. De quelle cellule s'agit-il? De quel ascenseur?

Si vous pouviez être plus explicite, ou fournir le fichier avec des commentaires sur ce que vous désiré.

Mais, quelque chose me dit que ce que vous demandez ne me paraît pas réalisable, enfin, je verrai en fonction de votre réponse.
cdlt

1000cbr
 Posté le 13/07/2016 à 11:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Je n'ai pas d'Excel à montrer comme exemple mais prenons le cas du calendrier Google.

La zone date ne propose pas de date tant que le curseur n'est pas dessus.

Dès que le curseur se positionne sur cette zone, le calendrier apparaît !

Peut être n'est-ce pas possible sans développer en VBA !

LORENZO83
 Posté le 14/07/2016 à 07:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

C'est ce que je craignais, je ne sais pas faire ce que vous demandez "la détection du pointeur de la souris sur une cellule", la détection ne peut se faire que sur un objet (image, graphique ..).

Je peux tout de même vous proposer une petite bidouille, ça ne correspond pas à ce que vous demandez mais ça peut vous intéresser.

J'ai dessiné une image en forme de rectangle à gauche de la colonne des dates, lorsque l'on promène la souris dessus, le calendrier suit automatiquement, il n'y a plus qu'à cliquer dans la cellule des dates pour ouvrir le calendrier.

http://www.cjoint.com/c/FGoe6AvM8yw

Cdlt

Publicité
1000cbr
 Posté le 14/07/2016 à 11:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

C'est très bien comme cela. Je peux utiliser le calendrier comme je le souhaitais.

Je te remercie de tout le temps passé à m'aider.

Bonne journée.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
229 €Smartphone Samsung M31 (6,4 pouces FHD+, 6 Go RAM, 64 Go) à 229 €
Valable jusqu'au 25 Janvier

Amazon fait une belle promotion sur le nouveau smartphone Samsung M31 qui passe à 229 € livré gratuitement au lieu de 279 €. Le smartphone Samsung Galaxy M31 dispose d'un écran Super AMOLED d'une résolution de 1080 x 2340 pixels, d'un processeur 8 coeurs Exynos 9611 et 6 Go de RAM. 64 Go de stockage sont présents et sont extensibles par MicroSD (512 Go max).

Pour les moments inattendus de la vie, le quadruple appareil photo est idéal. Prenez de superbes photos de votre monde avec un appareil photo principal de 64 MP ou obtenez une image plus large avec l’angle de vue de 123 ° de l’objectif ultra grand angle 8 MP. Le capteur de profondeur 5 MP ajoute un flou d’arrière-plan et l’objectif macro 5 MP optimise la mise au point sur les gros plans. A l'avant, un appareil photo 32 MP vous permettra de réaliser vos selphies avec un léger flou d'arrière-plan grâce à la mise au point en direct.

Il est soutenu par une batterie de 6000 mAh avec recharge rapide. Les fonctionnalités de connectivité du smartphone incluent WiFi, Bluetooth, GPS, Volte, etc. Le Galaxy M31 dispose d’un capteur d’empreinte digitale à l’arrière pour vous connecter aux applications compatibles et déverrouiller votre appareil en toute simplicité. Le tout tourne sous Android 10.


> Voir l'offre
23,90 €Switch Gigabit TL-SG108E 8 ports administrables à 23,90 €
Valable jusqu'au 26 Janvier

Amazon fait une promotion sur le switch Gigabit TL-SG108E 8 ports administrables qui passe à 23,90 € alors qu'on le trouve ailleurs à partir de 38 €. Ce switch est administrable : vous pouvez créer des sous réseaux isolés VLAN, limiter la bande passante par port, etc. 


> Voir l'offre
39,99 €Souris Logitech MX Anywhere 2 (Bluetooth, Unifying) à 39,99 €
Valable jusqu'au 26 Janvier

Amazon fait une promotion sur l'excellente souris sans fil Logitech MX Anywhere 2 qui passe à 39,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 65 €. Cette souris que vous pourrez emporter partout avec votre PC ou Mac portable offre une double connectivité sans fil unify ou Bluetooth. Son capteur laser Dark field vous permettra de l'utiliser sur n'importe quelle surface. Elle est rechargeable via MicroUSB.


> Voir l'offre

Sujets relatifs
Taille des Onglets dans Excel 2007
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Récupération dates dans tableau excel 2007
Date en abscisse dans excel 2007
Excel 2007 extraction feuille 1 dans feuille 2 avec mise en forme
Formulaire dans Excel 2007
Windows xp copier fichier répertoire dans excel 2007
Probleme excel - tri dans macro Excel 2007
fichier Excel 2010 s'ouvre mal dans 2007
macro majuscule dans excel 2007
Plus de sujets relatifs à Calendrier dans EXCEL 2007
 > Tous les forums > Forum Bureautique