Insertion d'un calendrier dans plusieurs cellules

Bonjour,

Je souhaiterais Insérer un calendrier dans plusieurs cellules d'une feuille excel avant d'éviter de saisir les dates de façon manuel.

voir dans le classeur ci-joint onglets : FRITEUSE 1 - FRITEUSE 2 - FRITEUSE 3 - FRITEUSE 4

dans les colonnes " Date du changement du bain " et " Date du contrôle ".

Je suis windows 7 pro 64 bits

Je ne trouve pas date time picker.

Merci de votre aide

Bonjour Pat33Bordeaux le forum

ton fichier en retour avec ce que tu veux pour les quatre feuilles friteuse

tu ouvres tu testes et tu me redis

a+

Papou

Bonjour paritec et le forum,

Merci c'est tout à fait ce que je souhaitais !

Sans vouloir abuser comment procéder pour avoir ce même calendrier dans d'autres cellules dans d'autres

feuilles car mon classeur et tout juste en cours de création.

Bon week-end

A+

Re Patt33Bordeaux le forum

le calendrier est en fait un userform et le traitement se fait par macro

tu vas dans le projet vba et tu regardes dans le code des feuilles friteuse, tu as la commande

pour aller dans le vba tu fait alt+f11 , mais si tu n'as jamais touché au vba, je te conseille de faire ton fichier et ensuite de reposter, je te modifierai les macro en conséquence

a+

Papou

re paritec et le forum

Je copie ce code et je le colle dans mes nouvelles feuilles en changeant B10:C22 en fonction

des cellules ou je souhaite insérer le calendrier ?

Bon week-end

A+

Bonjour,

Ma contribution (en pièce jointe)

Pour les autres feuilles YAKA Rajouter/Modifier le Private Sub WorksheetSelection_Change :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iC%, iR%, FirstRow%
FirstRow = 8
If Target.Count = 1 Then
    iC = Target.Column: iR = Target.Row
    If iR > 12 Then ActiveWindow.ScrollRow = iR - 8
    If iR > FirstRow + 1 And Left(Cells(FirstRow, iC).Value, 4) = "Date" Then
        TB = 0: Calendrier.Show
    End If
End If
End Sub

Eventuellement changer FirstRow = 8 par le numéro de ligne de l'en tête...

Cependant il peut y avoir des problèmes liés à l'utilisation de tes cellules fusionnées ou si les en-têtes de colonnes se baladent un peu n'importe ou dans ce cas c'est la solution de paritec qui s'applique : joindre ton classeur...

A+

Re Bonjour Patt Galopin le forum

oui c'est bien ce que tu as entouré qu'il faudra adapter à tes autres feuilles

a+

Papou

bonjour galopin01,

merci pour ta contribution qui fonctionne parfaitement tout comme celle de paritec d'ailleurs.

Je vous remercie à tous 2 pour votre aide

et vous souhaite un bon week-end

A+

re paritec et le forum,

d'accord et merci

bon we

Comment fait on pour classer ce sujet comme résolu ?

re Patt

tu cliques

a+

Papou

re

Sujet classé comme résolu

merci pour votre aide

A+