Mise à jour d'une date

[anthoYS]

Bonjour,

En réalité j'ai implanté sous Excel les mises à jours de sécurité à effectuer sur mon ordinateur personnel, de sorte qu'apparaissent, les dates, de derniers scans, et en fonction du dernier scan, le prochain et calculé.

Je souhaite simplement introduire, pour chaque type de logiciel -car chacun est indépendant-, faire une mise à jour de la date ou j'ai effectivement réalisé le scan, et ce, grâce à un clic sur un bouton de contrôle (ou commande).

Voyez s'il vous plaît le fichier joint -ou ceci est bien plus explicite-.

Merci de votre future collaboration, je l'espère.

 

[ROGER2327]

Re : Mise à jour d'une date

Bonjour anthoYS

[COLOR="DarkSlateGray"]Private Sub CommandButton1_Click()
   [C7].Value = Date
End Sub[/COLOR]

semble faire ce que vous souhaitez. Mais peut-être n'ai-je pas saisi exactement le problème.​

ROGER2327

 

[ROGER2327]

Re : Mise à jour d'une date

Suite...

Une solution sans bouton.
Un double-clic dans la zone C7:C12 place la date du jour dans la cellule cliquée.

[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target.Cells(1, 1), Range("C6:C12")) Is Nothing Then Target.Cells(1, 1).Value = Date: Cancel = True
End Sub[/COLOR]

placé dans le module de feuille.​

ROGER2327

 

[anthoYS]

Re : Mise à jour d'une date

Un grand Merci.

La première solution me convient très bien.

Par ailleurs, merci d'avoir émis une autre alternative.