Problème de code avec VBA pour acvoir une date figée

[agnes95]

Bonjour à tous,

Mon problème est fréquent mais néanmoins je ne trouve pas de post qui reponde entièrement à ma problématique.

Je vais essayer d'être claire (c'est pas gagné) : Je dois réaliser un fichier qui repondent à la problématique suivante :

Colonne A : Emission = "oui" ou "non" : c'est une liste déroulante
Colonne B : Commentaires : Liste déroulante
Colonne C : Date commentaire si colonne B non vide
Colonne D : Date d'émission si colonne A = Oui (si non = Rien)

Mon problème est sur les colonnes C et D, en effet si je mets une simple fonction aujourd'hui, la date sera modifié à chaque ouverture du fichier hors moi je veux que cela soit figé.
Je sais que c'est en VBA qu'on peux faire ca, j'ai trouver un code mais celui repond que pour un de mes problèmes mais pas les deux.
Si une âme charitable pouvait m'aider ce serait un soulagement.
En espérant avoir été claire.

 

[mutzik]

Re : Problème de code avec VBA pour acvoir une date figée

bonjour,

t'aider sur ce souci, pas de prob mais si tu pouvais nous fournir un petit fichier, qu'on ne travaille pas dans le vide
question : que veux-tu faire de tes données une fois les colonnes renseignées ?

 

[agnes95]

Re : Problème de code avec VBA pour acvoir une date figée

Je te joins le fichier, j'espère que ca va être plus clair.

Merci encore pour votre aide.

Regarde la pièce jointe TEST.xls

J'espère que le doc est bien attaché

 

[Dranreb]

Re : Problème de code avec VBA pour acvoir une date figée

Bonjour.
Modifiez comme ceci la procédure déjà en place:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 27 Then
   If Target.Value = "Oui" Then
      Range("AB" & Target.Row).Value = Now
   ElseIf Target.Value = "Non" Then
      Range("AA" & Target.Row).Value = Now
      End If
   End If
End Sub

À +

 

[agnes95]

Re : Problème de code avec VBA pour acvoir une date figée

En fait le problème avec ce code, c'est que je veux pas que quand il y est non a la colonne 27 il mette une date, ce que je veux c'est ca en gros :

Si colonne 26 = Oui il me mette une date à la colonne AC (si "non" ou vide alors rien)
Si colonne 27 = Commentaires il me mette une date à la colonne AB (si "vide" alors rien)
A votre avi cela est il possible?

merci merci

 

[Dranreb]

Re : Problème de code avec VBA pour acvoir une date figée

Oui, c'est presque plus simple : il suffit de l'écrire comme vous le dites mais traduit en VB :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 26 Then
   If Target.Value = "Oui" Then Range("AC" & Target.Row).Value = Now Else Range("AC" & Target.Row).ClearContents
ElseIf Target.Column = 27 Then
   If Target.Value <> "" Then Range("AB" & Target.Row).Value = Now Else Range("AB" & Target.Row).ClearContents
   End If
End Sub

Remarque : vous parlez toujours de la date, or j'ai vu Now dans la procédure initiale.
J'ai repris Now alors, c'est l'heure en fait, c'est plus précis, et on peut toujours avoir un format qui ne la montre pas.
À +

 

[agnes95]

Re : Problème de code avec VBA pour acvoir une date figée

Merci merci merci, franchement merci
Ca marche super!!!!

Trop cool merci pour votre aide!
a+

 

[TempusFugit]

Re : Problème de code avec VBA pour acvoir une date figée

Bonjour

Une autre forme d'écriture

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 26
Target.Offset(, 3) = IIf(Target = "Oui", Now, vbNullString)
Case 27
Target.Offset(, 1) = IIf(Not IsEmpty(Target), Now, vbNullString)
End Select
End Sub