Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Date fixe apres validation

  • Initiateur de la discussion Initiateur de la discussion Geaxle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Geaxle

XLDnaute Nouveau
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:
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:
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
 
Dernière édition:
Re : Date fixe apres validation

Bonjour Gea, et bienvenue sur le forum

un petit tour ici: Lien supprimé et lire le point 3.c

voir en pièce jointe un exemple à adapter à ton fichier

à+
Philippe
 

Pièces jointes

Re : Date fixe apres validation

Merci Philipe pour ta reponse et ton document qui m'ont beaucoup aide.

Au final je l'ai adapte pour le code suivant qui fonctionne tres bien:

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
432
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…