× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Insérer un calendrier dans une cellule d'Excel ?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
supersaxo7
  Posté le 26/04/2018 @ 18:14 
Aller en bas de la page 
Petit astucien

Bonjour tous,

Je cherche le moyen d'insérer dans une cellule d'Excel un calendrier pour sélectionner une date...

Comment faire ?

Merci

Publicité
galopin01
 Posté le 26/04/2018 à 18:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

MAC ou PC ?

A+

supersaxo7
 Posté le 26/04/2018 à 18:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hello Mister Galopin07 !

sur PC Windows

galopin01
 Posté le 26/04/2018 à 18:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Fournir le fichier en indiquant la cellule concernée.

A+



Modifié par galopin01 le 26/04/2018 19:17
supersaxo7
 Posté le 26/04/2018 à 19:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

galopin01
 Posté le 26/04/2018 à 19:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Ton calendrier en retour.

supersaxo7
 Posté le 26/04/2018 à 20:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Galopin07,

Super ! Toujours aussi génial ! Merci...

Question subsidiaire : on doit obligatoirement passer avec une macro ? (félicitations pour la réponse)

N'y-a-t-il pas un calendrier que l'on peut insérer directement dans la cellule, sans avoir besoin d'une macro ?

Question bête d'un amateur !

Merci

galopin01
 Posté le 26/04/2018 à 21:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Dans ce contexte je suis tenté de répondre non...

A+

supersaxo7
 Posté le 26/04/2018 à 21:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci beaucoup !

Publicité
dbouchet
 Posté le 28/04/2018 à 11:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

tout çà ne nous dit pas comment vous avez fait ?

merci de nous donner des détails

Gazby
 Posté le 28/04/2018 à 13:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

A chaque fois que je vois un sujet concernant Excel je l'ajoute dans mes documents logiciels du pack office.
galopin01 pourrais-tu s'il te plaît m'expliquer comment retrouver la macro qui fait ça et comment elle a été mise en relation avec les cellules des deux colonnes.

Merci, Gasby.



Modifié par Gazby le 28/04/2018 13:58
galopin01
 Posté le 28/04/2018 à 14:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

La macro qui appelle le calendrier se trouve dans le module de la feuille saisie :

Faire un clic droit sur l'onglet saisie.

Dans ce cas c'est un petit peu plus compliqué car les plages sont asymétriques...

Dans les cas les plus simples une seule conditions suffit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect
If Target.Count = 1 Then
Set isect = Application.Intersect(Target, Range("C4:D21"))
If Not isect Is Nothing ThenCalendrier1.Show
End If
End Sub

YAKA changer l'adresse de la plage utile pour que ça fonctionne.

Bien sur, si vous voulez utiliser le calendrier dans un autre classeur, il faut faire glisser le module "Calendrier" de mon classeur vers votre propre classeur.

Ça peut se faire très simplement à partir de VBAProject : Les 2 classeurs étant ouvert faire glisser de l'un à l'autre...

Le calendrier lui, n'a besoin d'aucun réglage il renvoie la date cliquée vers la cellule active.

Notez que l'on peut changer de mois facilement en cliquant sur les petites flèches gauche/droite mais on peu aussi changer l'année ou le mois plus rapidement en cliquant entre les flèches sur le mois ou l'année... C'est quand même plus pratique si tu dois saisir une date éloignée ! (date de naissance p.e.)



Modifié par galopin01 le 28/04/2018 14:43
Gazby
 Posté le 29/04/2018 à 14:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci pour ces explications galopin01.

A+ Gazby.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
34,99 €Souris Logitech MX Anywhere 2 (Bluetooth, Unifying) à 34,99 €
Valable jusqu'au 27 Novembre

Amazon fait une promotion sur l'excellente souris sans fil Logitech MX Anywhere 2 qui passe à 34,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. 


> Voir l'offre
248,99 €SSD externe portable USB 3.1 SanDisk Extreme 2 To à 248,99 €
Valable jusqu'au 27 Novembre

Amazon fait une promotion sur le SSD externe portable USB 3.1 SanDisk Extreme 2 To qui passe à 248,99 € livré gratuitement alors qu'on le trouve à 320 € ailleurs. Le disque SSD SanDisk Extreme portable est plus de deux fois plus petit que la taille de votre smartphone et fournit jusqu'à 5 fois la vitesse d'un disque dur portable. Apprenez à travailler en quelques secondes, transférez de grandes bibliothèques de vidéos et de photos à des vitesses pouvant atteindre 550 Mo/s. Vous ne craindrez pas de l'emporter partout avec vous grâce à sa conception robuste et résistante avec un coeur de SSD résistant aux chocs. Le logiciel SanDisk inclu SecureAccess peut crypter vos fichiers personnels. Garantie 3 ans. Résiste à l'eau (IP55). Interface : USB 3.1 Type A et C.


> Voir l'offre
147,99 €Disque dur externe Western Digital My Book 8 To USB 3.0 à 147,99 €
Valable jusqu'au 28 Novembre

Amazon propose actuellement le disque dur externe Western Digital My Book 8 To USB 3.0 à 147,99 € livré gratuitement. On le trouve ailleurs à partir de 190 €. Grâce à la connectique USB 3.0 (compatible USB 2.0), ce disque dur vous offrira d'excellents débits pour vos transferts et vos sauvegardes. Pour info, le disque dur n'est pas soudé et vous pouvez le récupérer pour le mettre dans un PC.


> Voir l'offre

Sujets relatifs
inserer des chiffres dans une cellule( dans excel)
long texte à insérer dans une cellule excel.
Insérer en automatique un mot prédéfini dans une cellule
choix multiple dans une cellule d'excel ?
Inserer QUICK PART dans EXCEL possible ou pas ?
Référence de cellule variable dans une formule Excel
insérer calendrier dans plusieurs cellules
Comment écrire dans un autre onglet en excel à partird'une cellule
Excel Copie automatique d'une cellule dans une autre
Vérifier le format de saisie dans une cellule Excel
Plus de sujets relatifs à Insérer un calendrier dans une cellule d''Excel ?
 > Tous les forums > Forum Bureautique