Affichage Date Automatique

[majidbxl]

Bonjour à tous,

Tout d'abord, je suis nouveau et super content d'avoir trouvé un forum en français de qualité!!

Voilà j'ai un formulaire pour valider des demandes d'avoir, plusieurs personnes doivent le valider, j'aimerais qu'en dessous de chaque personne il y ai une cellule dans laquelle se trouvera un bouton.

En cliquant sur celui-ci, la date du jour s'affiche dans la cellule cible, j'ai essayé mais le problème c'est que quand je met le today() le lendemain la date change....tu m'étonnes..

Ouvert à toute proposition

Merci d'avance,

 

[Celeborn61]

Re : Affichage Date Automatique

Salut,

Chaque bouton appel une macro comme celle là.

Sub Bouton1()
Cells(LigneCelullesCible, ColonneCelluleCible).Value = Date
End Sub

Mais chaque appuie change cette valeur, même plusieur jour après.

Sub Bouton1()
if Cells(LigneCelullesCible, ColonneCelluleCible).value="" then Cells(LigneCelullesCible, ColonneCelluleCible).Value = Date
End Sub

Là, une fois cliqué, plus de modifications ultérieures.

 

[mutzik]

Re : Affichage Date Automatique

bonjour,

ouais, pas de prob, tu mets today, un copier puis un coller spécial valeur

 

[wilfried_42]

Re : Affichage Date Automatique

Bonjour

Voici une autre solution, avec 4 signataires

les cellules bleues sont les cellules à saisir, (la couleur n'est qu'un repere)
Macro evennementielle sur saisie

 

[majidbxl]

Re : Affichage Date Automatique

Bonjour

Voici une autre solution, avec 4 signataires

les cellules bleues sont les cellules à saisir, (la couleur n'est qu'un repere)
Macro evennementielle sur saisie

Merci, quelle rapidité!!

Super, c'est exactement ce que je recherchais!

Juste pour être sûr, lorsqu'on ouvre à nouveau le fichier le lendemain les dates déjà enregistrées ne changeront pas?


PS: vous me sauvez car les formulaires de validation c'est la mort pour moi, plein de choses à faire et je galère

 

[wilfried_42]

Re : Affichage Date Automatique

re:

dans le cas actuel, si tu changes le nom, la date de signature change

maintenant on peut facilement empecher de modifier la date

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$19" Then
if Target.Offset(6, 0)=0 then target.offset(6,0) = Date
end if
End Sub

Maintenant on peut encore etre plus vicieux
Bloquer la saisie avec protection

fichier joint

essaye de saisir sur une cellule bleue ds saisie ou d'ecraser une date mise

 

[majidbxl]

Re : Affichage Date Automatique

re:

dans le cas actuel, si tu changes le nom, la date de signature change

maintenant on peut facilement empecher de modifier la date

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$19" Then
if Target.Offset(6, 0)=0 then target.offset(6,0) = Date
end if
End Sub

Maintenant on peut encore etre plus vicieux
Bloquer la saisie avec protection

fichier joint

essaye de saisir sur une cellule bleue ds saisie ou d'ecraser une date mise

Super!!
Dis moi, dans mon fichier il y a une check box a côté de Approval, en gros si la personne est d'accord elle check la cellule! j'aimerais savoir si on peut adapter ton système aux differents checkbox?

sinon j'adapte mon fichier par rapport à ta dernière solution

 

[wilfried_42]

Re : Affichage Date Automatique

re:

si tu envoie un bout de ton fichier avec des données bidons, on peut regarder pour le faire

Le fichier en mode Zipp&, <48,8Ko

 

[majidbxl]

Re : Affichage Date Automatique

voici le fichier en question, par contre je dois partir chercher ma fille à son école, je reviendrai plus tard, sorry

merci d'avance

 

[wilfried_42]

Re : Affichage Date Automatique

re:

ton fichier en retour, je n'ai fais que les 2 premieres checkbox

 

[majidbxl]

Re : Affichage Date Automatique

Merci c'est tout à fait ce que je voulais! je vais pouvoir terminer mon formulaire

 

[wilfried_42]

Re : Affichage Date Automatique

re:

Suite à MP

J'ai donc terminé les macro, j'ai ajouté un bouton pour remetre à zero les signature

Fichier joint

 

[majidbxl]

Re : Affichage Date Automatique

Merci beaucoup, aaaahhh que c'est bon quand ça marche