Discussion :

[manuseverine]

Bonjour,

Pourriez-vous me dire s'il est possible d'associer la saisie d'une date à un calendrier, sur toute une colonne ?

Je sais comment le faire pour une seul cellule :
J'ai inséré le control calendrier 12.0 et dans LinkedCell j'ai mis le n° de ma cellule. Ca marche mais le problème c'est que c'est assez long et donc je ne vais pas recréer ça a chaque ligne sachant que j'en ai plus d'une centaine

Pourriez-vous m'aider ?

Merci

[hben1961]

Bonjour à tous,

A l'aide d'une petite macro et un Userform c'est possible... Voir pièce jointe...

Le fichier joint a été corrigé...

Cordialement

[manuseverine]

merci pour ton aide mais j'ai beau cliquer dans la colonne C il ne se passe rien ? Je n'ai détecté aucune macro ?

[hben1961]

Bonjour à tous,

La PJ a été corrigée... J'ai voulu enregistrer un fichier créé en 2003 qui contenait une macro au format 2007, et la macro a été perdue...

Cordialement

[manuseverine]

merci beaucoup, je trouve ça génial mais j'ai du mal a l'appliquer
dans la feuille, j'ai fais insertion userform mais tu l'as pris ou le calendrier ?

[manuseverine]

j'ai copier coller ton calendrier car je ne sais pas ou tu l'as pris mais même avec les codes ça ne marche pas ???

J'ai pourtant repris tous tes codes et ça ne marche pas, quand je clique sur une cellule ça m'ouvre le VBA et me dit que ça ne va pas

[hben1961]

Bonjour à tous, bonjour Manuseverine

Pour insérer un calendrier dans un UserForm je t'ai préparé un fichier .exe expliquant les étapes (le lien au dessous)... Pour passer de la feuille à "Microsoft Visual Basic Editor" appuyer sur ALT+F11...

J'espère venir à ton aide...

http://www.mediafire.com/file/k9c1dk...Calendrier.exe

Cordialement

[manuseverine]

merci c'est super ces petits fichiers, ça marche mais juste une petite question. J'ai 2 colonnes qui ont besoin de date et donc j'ai reproduit ta méthode à la colonne d'a côté mais ça ne marche pas. J'ai pourtant créer un calendar2 et changer dans les codes calendar1 par calendar2 mais ça me met
erreur de compilation : Nom ambigu détecté:Worksheet_SelectionChange ??

Merci encore pour ton aide

[Invité]

Bonjour,

Vous avez dû mettre deux procédures :

Worksheet_SelectionChange

??

sur une même feuille, ce qui n'est pas possible.

Il n'en faut qu'une avec la détection de l'adresse de la cellule que vous modifiez pour traiter la bonne colonne.

[manuseverine]

Il n'en faut qu'une avec la détection de l'adresse de la cellule que vous modifiez pour traiter la bonne colonne.

Ou là là......

il faut utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if...then

c'est ça ?

J'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 12 Then
UserForm1.Show
If Target.Column = 13 Then
UserForm2.Show
End If
End Sub

ça ne marche pas

faut-il utiliser un seul userform ?

[manuseverine]

merci, ça y'est j'ai réussi toute seule. Il manquait un end if et je n'utilise qu'un seul userform

merci à tous et en particulier à hben1961 pour ton fichier très explicite

[hben1961]

Bonjour à tous,

Un seul Userform avec un calendrier suffit, et ton code sera:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 12 or Target.Column = 13  Then
UserForm1.Show
End If
End Sub

Cordialement

[manuseverine]

ok c'est plus simple que 2 fois if then, je ne savais pas qu'on pouvait

Merci encore