Champs de saisie, date et bouton...

Re : Champs de saisie, date et bouton...

Bonjour,

Le fichier que tu as posté ne comporte pas de macros !

Caillou

Re : Champs de saisie, date et bouton...

J'ai encore passé une journée sur le net afin de trouver des solutions.
Et j'en trouve grâce à vous mais le niveau est élevé. Je n'ai que les forums pour apprendre.
Ci-joint fichier avec Macro

Voici ce que j'ai fait :

1)Un bouton de sauvegarde, il me demande à chaque de remplacer le fichier existant mais ça ce n'est pas grave :

Public Sub CommandButton1_Click() 'Worksheet Backup Copy
Dim nom As String
nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmmss") & ".xls"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\old\" & nom
rep = MsgBox("Worksheet saved on 'old' sub-directory under name: " & nom, vbYes + vbInformation, "Worksheet Backup Copy")
End Sub

2) J'ai commencé le bouble clique dans la colonne B (Date), j'ai installé un userforms automatique (Monthview) et copier le code : Créer un calendrier dynamiquement et insérer la date choisie dans la cellule active - Forum des professionnels en informatique
mais aprés je suis bloqué.... d'ailleur, il n'est pas précisé le double clic dans ma colonne B.

MERCI Beaucoup