date en cliquant sur une cellule

[pat68]

Bonjour à tous,

Je suis nouveau sur le forum et pas beaucoup d'experience sur excel.

Une petite question :
Je veux qu'en cliquant sur une cellule d'une colonne (Ex : b),
excel m'affiche la date du jour(automatiquement en cliquant) ,et que si la personne s'obstine à vouloir marquer une autre date,qu'il y ait une boite de dialogue qui s'ouvre en lui disant que ce n'est pas la bonne date.

Merci de votre aide.
à bientot.

 

[excalibur]

bonjour pat 68 , le forum au niveau de la feuille evenement Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$B$5' Then
ActiveCell.FormulaR1C1 = Date
End If
End Sub ' salutations

 

[MARIE74]

B) Re a tous

Salut PAT68 et Excalibur

Je passais par la

En complement du code d' Excalibur

je te propose un autre code avec l'heure en meme temps que la date
Double clic dans cellule C5 et tu as l'heure en E5 et la date en D5
Tu peux changer comme tu veux les cellules

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('c5')) Is Nothing Then
Range('e5') = Time
Range('d5') = Date
End If
End Sub

Voila bonne journée

 

[Eric C]

Bonjour le forum
Bonjour Pat68, bon,jojt Excalibur, bonjour MARIE74


Moi aussi de passage, je propose ma modeste contribution. Il doit y avoir plus simple mais sais pas. Donc ici l'on teste si la valeur entrée en colonne B (où que ce soit, est bien la date du jour sinon on l'a remplace. Sinon, par un double-click, on insère la date du jour dans la cellule choisie de la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Date
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then
If Target.Value <> Date Then
Target.Value = Date
End If
End If
End Sub

Bonne semaine à toutes & à tous

 

[MARIE74]

B) Re a tous

Salut Eric C

Du plus simple c'est possible (le stylo BIC)

Non je rigole ta formule est simple et plus court je ne sais pas


Sinon les touches: Ctrl + ; c'est la date
Ctrl + : c'est l'heure


Bonne journée

 

[Staple1600]

Bonjour


Juste une question

Avec les précédentes réponses fournies, la date sera toujours celle du jour en cours

Or je suppose qu'il faille garder la date inscrite lors de la permière saisie.


Donc la question

Comment faire pour y arriver?

 

[MARIE74]

B) Re a tous

Staple1600

Oui la date sera toujours celle du jours en cour du moin avec mon code et chaque fois que tu double clic il met a jour la date et l'heure

Mais lorsque tu sauvegarde et que tu ouvre a nouveau meme 3 mois plus tard, il gardera la derniere date et heure et tu peux a nouveau mettre a jour si necessaire.

Si tu veux que personne ne puisse modifier tu peux proteger la cellule date et la cellule heure par outils/protection avec mot de passe

Voila

Bon courage

Peut etre qu'un Xldiens du forum plus calé que mois en VBA pourra réaliser le blocage par un code

 

[MARIE74]

B) Re a tous

Staple1600


Si tu change la date systeme de ton PC la date sur ta feuille change puisque la macro prend cette date en compte sauf erreur de ma part

Effectivement tu as raison VBA outrepasse les protections
et quand tu rouvre un classeur la macro ne fonctionne plus.

On en apprend tous les jours

Bon la en VBA je depasse mes limites si toi ou un autre Xldiens
peux eclairer ma lanterne

Merci d'avance

 

[MARIE74]

B) Re Re

Staple1600 et pat68

Désolé mais je me deconnecte pour un certain temps

Profession oblige


A+

 

[Staple1600]

Après avoir trituré mon neurone du lundi



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then

If IsDate(Target.Value) Then Exit Sub
Target.Value = Date
End If

End Sub


mais cela ne résoud pas tout
Idem pour ce qui suit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then

If Not IsEmpty(Target.Value) Then Exit Sub
Target.Value = Date
End If

End Sub

Message édité par: staple1600, à: 26/09/2005 15:43

 

[Staple1600]

Comme j'aime bien les choses compliquées


Comment interdire:

1) toute saisie s'il y a déjà une date dans la cellule active

2) le CTRL+B


Merci à ceux qui ont une solution ou une piste de solution

 

[pat68]

Tout d'abord je remercie tout le monde, je suis etonné par la rapidite de vos reponses.
Je vais etudier tout ça ce soir.
Je m'excuse aussi , de ne pas vous avoir repondu tout de suite.
Je travaille de nuit, donc le journee.............
Le reveil et les enfants pour la journee.
(Je ne vais pas vous raconter ma vie................)
Je vous remercie encore mille fois...
Bonne soiree.