XL 2016 Uniformiser la date des cellules

[Phylo]

Bonjour

J 'ai crée un fichier excel qvec un code vba qui incorpore la date automatiquement
Mais vu que le fichier est utilisé par plusieurs personne. La date entrée est variable selon la date d' ordi de chaque personne

je veux insérer l'instruction dans ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("J")) Is Nothing And Target.Value <> "" Then
Target.Offset(0, 1).Value = Date & " " & Time
End If

'Dans les colonnes I et K la format de la date est : dd-mm-yyyy
exemple :
Columns()Numberformat="dd-mm-yyyy"


Merci d'avance

 

[Dranreb]

Interdiction absolue d'ajouter quelque chose qui existe déjà, je ne reviendrai pas la dessus. Donc obligation d'entrer les informations d'identification de la nouvelle ligne afin de vérifier si elle n'existe pas déjà. Si elle n'existe effectivement pas il se mettra tout seul en ajout. C'est déjà bien assez comme ça que le blocage de la recherche entraine un risque minime d'introduire quand même des doublons. En effet en ajout quand la recherche est bloquée vous pourriez en théorie modifier des éléments d'identification formant alors une combinaison qui existe déjà, or il resterait en ajout. À moins bien sûr qu'il soit normal qu'il puisse y a voir des doublons de la combinaison de l'ensemble des ComboBox prise en charge par CL, ce dont je doute, mais auquel cas il faudrait prévoir de quoi pouvoir accéder à chacun d'eux par des boutons de navigation. Ce serait faisable, cela dit.

 

[Phylo]

Pas de soucis Dranreb.

Les doublons est permis seulement pour les lots vrac batch. Mais pas pour les produits finis.
C’est bon on continue

 

[Phylo]

Bonjour Dranreb,

Ce n’est pas pour te mettre la pression. Vous m’avez promis d’une version avec de nouvelles modifications. Juste parceque je compte faire une petite formation sur la nouvelle version mais j’aimerai faire sur la dernière version. Merci beacoup d’avance de ton feed back

 

[Dranreb]

Bonsoir
Ah, mais il fallait me le demander plus tôt, à l'occasion d'une observation quelconque de votre part. Parce que je ne sais pas ce que j'ai avec cette application, mais je n'arrête pas de la bricoler.
Voici la version actuelle.

 

[Phylo]

Je parle de la version de la base de données. Tu m’a envoyé le complément ou je me trompe. Merci

 

[Dranreb]

Non, non. J'ai fini par me décider à garder ça sous un nom plus pérenne que Temp !

 

[Phylo]

Ok d’accord merci

 

[Phylo]

Bonjour Dranreb.
J’aimerai ajouter une colonne dans la feuille Source. Cava pas affecter le codage qu’on a fait avant ? J’aimerai mettre une formule datedif pour faire la différence entre la date de revision d’un dossier et sa date de réception. Ceci me donne la fin de semaine si j’ai bien respecté mon objectif de 48 heures. Tu pourras m’aider stp pour le code. L’expression de résultats devrait se faire par exemple

Inférieure ou égale 2 jours: oui
Supérieur a 2 jours: non

Merci d’avance

 

[Dranreb]

Bonjour.
Ah ça je ne sais pas. Tout ce que je peux dire c'est que dans l'UFmSaisie toutes les colonnes ont été spécifiiées par leurs titres et que ça suivrait, donc, l’insertion d'une nouvelle. C'était justement le but.
Cependant, aucune formule n'est supportée car on écrit toutes les valeurs de TVL dans la Ligne.
Il faudrait donc je suppose calculer la valeur du TVL(1, LaBonneColonne) avant de l'y envoyer.

 

[Phylo]

Merci pour ta reponse.
Ce n’est pas grave s’il s’affiche pas dans l’userforme. Mais je veux qu’il s’affiche seulement dans la colonne des que je rentre la date de révision. Comme ça a la fin de la semaine si je fais un TCD il sera calculable

 

[Dranreb]

Qu'il s'y affiche où non l'UserForm détruit les formules quand il change ou ajoute une ligne.

 

[Phylo]

Ok donc il n’y a pas moyen? Je vais voir autrement après extraction des données

 

[Dranreb]

Mais si, j'ai dit qu'il y avait un moyen: c'est de veillez à ce que la colonne correspondante du TVL contienne la valeur qu'il faut avant de l'écrire.

 

[Phylo]

Je n’ai pas bien saisi. Je ne sais pas c’est quoi un TVL. Tu pourra me donner un exemple de codage. Je ne suis pas très bon en code VBA.

 

[Dranreb]

J'appelle toujours comme ça cette variable. Ça veut dire Tableau des Valeurs de la Ligne.
Voir l'UFmSaisie. Il y a même un commentaire qui explique à quoi servent LCou et TVL.
Donc après l'instruction CA.ValeursVers TVL et avant de l'affecter à la Value2 du Range du ListRow, affectez à TVL(1, C) l'expression de votre calcul, C étant le numéro de colonne où vous le voulez.