date en cliquant sur une cellule

excalibur

XLDnaute Impliqué

• 26 Septembre 2005

• #2

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

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 26 Septembre 2005

• #3

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 26 Septembre 2005

• #4

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.

Code:

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 😉

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 26 Septembre 2005

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2005

• #6

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?

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 26 Septembre 2005

• #7

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

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 26 Septembre 2005

• #8

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

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 26 Septembre 2005

• #9

B) Re Re

Staple1600 et pat68

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

Profession oblige


A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2005

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2005

• #11

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

 

Vote positif 0 Vote négatif

P

pat68

Guest

• 26 Septembre 2005

• #12

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.

 

Vote positif 0 Vote négatif