Discussion :

[Geaxle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Change(ByVal Target As Range)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Geaxle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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