Date fixe apres validation

Bonjour,

J'ai longuement cherche sur les forums anglais, mais je n'ai pas trouve une solution qui convienne a mon probleme et la programation VBA depasse mes connaissances. Peut etre pourrez vous m'aider.

J'utilise une version anglaise de excel (si jamais ca change quelque chose).

Alors voila :

Dans ma feuille en colonne A l'utilisateur peu choisir entre "YES" et "NO". Par defaut c'est "NO". J'aimerai qu'au moment ou il choisi "YES", cela inscrive la date dans la colone B. Et que cette date reste fixe.

C'est la tout mon probleme, j'ai trouve sur un forum une proposition de fonction fixeddate()

Code:

---

1 2 3

Function FixedDate() FixedDate = Date End Function

---

Mais au final la cellule est recalcule a chaque ouverture ou fermeture du document et la date n'est donc pas fixe.

J'ai par la suite trouve des codes VBA du style :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("B1:B20"), Target) Is Nothing Then Target.Offset(0, -1).Value = Format(Now, "mm-dd-yy hh:mm:ss") End If End Sub

---

Mais cela ne correspond pas exactement a ce que je cherche et je ne comprend pas suffisament le code pour le modifier a mes besoins.

Pourriez vous me conseiller. Je peu modifier ma feuille si cela facilite le code. Le principe est que sur validation d'une etape cela inscrive la date dans une case et que celle-ci ne change plus.

Ainsi dans ma feuille actuelle les colones H,J,N et Q cherche a obtenir une date fixe quand la colone precedente indique "YES". De meme pour la colone X quand la colone I indique "COMPLETED". Toutes ces cellules contiennent une date esperee que je voudrais ecraser par la date relle.

Merci d'avance pour votre aide.

Cordialement,
Gea

Bonjour à tou(te)s, Geaxle

Sans plus d'explication, admettons que "YES" soit en A1, la date en B1, dans ce même évènement

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

si "yes" reste constant, je ne vois pas pourquoi la date changerais

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target = "YES" then Range("B1") = Date End If End Sub

---

Cette solution répond-t-elle à ta question ?

Bonne journée

Merci beaucoup pour ta reponse. Cela m'a aide dans la comprehension de VBA et au final j'ai adapte le code comme suit. Cela fonctionne tres bien maintenant.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("I6:I5000,K6:K5000,O6:O5000,R6:R5000")) Is Nothing Then If Target.Value = "YES" Then Target.Offset(0, 1).Value = Date End If End If   End Sub

---

A+
Gea