le controle calendrier

pierrejean

XLDnaute Barbatruc

• 21 Janvier 2013

• #2

Re : le controle calendrier

bonjour tany

Pour mettre la date dans la cellule selectionnée

Code:

Private Sub Calendar1_Click()
ActiveCell = Calendar1
ActiveCell.NumberFormat = "m/d/yyyy"
End Sub

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 21 Janvier 2013

• #3

Re : le controle calendrier

Bonjour tany,

Pour le premier point, je ne comprends pas bien le souci : le calendrier fonctionne-t-il sur ton poste ?

Concernant le second, il suffit de créer une procédure événementielle en VBA pour attacher la cellule active au calendrier lorsque tu sélectionnes un cellule. C'est ce que j'ai fait sur l'exemple ci-joint. Un clic sur le calendrier affiche la date dans la cellule active quelle qu'elle soit. Il est bien sûr possible de limiter cette action à une plage définie.

A +

Cordialement.

Oups, bonjour pierrejean : c'est un plaisir de te retrouver présent.

 

Pièces jointes

• Calendrier Tany.xlsm

  20.3 KB · Affichages: 44

Dernière édition: 21 Janvier 2013

Vote positif 0 Vote négatif

T

tany

XLDnaute Occasionnel

• 22 Janvier 2013

• #4

Re : le controle calendrier

Bonjour,
merci papou-net. le calendrier fonctionne oui mais pas l'enregistrement
j'aurais voulu qu'il apparaisse dans inserer avec lzes autres actives x...
me trompe-je ?
bonne journée

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 22 Janvier 2013

• #5

Re : le controle calendrier

Bonjour tany,

Je viens de comprendre ta question et je ne sais pas comment procéder, ni même si c'est possible. Dans l'affirmative, je pense qu'il faille intervenir manuellement dans la base de registre mais je n'ai pas trouvé la méthode. A moins de faire un usage intensif de ce contrôle, est-ce vraiment nécessaire ?

A tout hasard, j'ai trouvé le lien suivant :

Ajouter ou inscrire un contrôle ActiveX - Excel - Office.com

Bonne journée.

Cordialement.

 

Vote positif 0 Vote négatif

T

tany

XLDnaute Occasionnel

• 22 Janvier 2013

• #6

Re : le controle calendrier

effectivement pas important !
par contre une bizarrerie : je sélectionne mettons a1 et calendar impec puis a2 et même date, ça reste vide !
il faut changer de date une fois puis revenir sur la date précédente ! pas grave
question : je voudrais la date sous forme "jeudi 2 dec 13" comment faire. la ligne de pierrejean ne fonctionne pas.
Merci d'avance en espérant que je n'abuse pas.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 22 Janvier 2013

• #7

Re : le controle calendrier

RE Tany,

Alors il faut éviter d'utiliser LinkedCell.

Ci-joint copie de ton fichier modifié. le code est dans deux procédures :

Sub Calendar1_Click() et Worksheet_SelectionChange(ByVal Target As Range).

Les explications concernant le fonctionnement sont dans la feuille de calcul.

A +

Cordialement.

 

Pièces jointes

• Calendrier Tany 01.xlsm

  22.1 KB · Affichages: 64

Vote positif 0 Vote négatif

T

tany

XLDnaute Occasionnel

• 22 Janvier 2013

• #8

Re : le controle calendrier

impeccable c'est ce dont j'avais besoin. Merci infiniment.
Bien amicalement.

 

Vote positif 0 Vote négatif