XL 2016 Uniformiser la date des cellules

Phylo · 7 Septembre 2020

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 · 23 Septembre 2020

Mode:=1 est à préciser après une virgule à la fin d'une instruction CA.Add dans la Sub UserForm_Initialize.
Oui, elle ne gène pas, elle est là au cas où vous auriez besoin un jour de pouvoir en supprimer une. Ne serait-ce qu'à la suite d'un ajout avec une information erronée tapée dans une ComboBox.

Je joint mon classeur où j'ai déplacé un ou deux CA.Add pour qu'ils soient dans un ordre plus proche de celui des colonnes du tableau.

Dranreb · 9 Octobre 2020

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 · 9 Octobre 2020

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 · 13 Octobre 2020

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 · 13 Octobre 2020

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 · 13 Octobre 2020

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

Dranreb · 13 Octobre 2020

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

Phylo · 13 Octobre 2020

Ok d’accord merci

Phylo · 28 Novembre 2020

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 · 28 Novembre 2020

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 · 28 Novembre 2020

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 · 28 Novembre 2020

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

Phylo · 28 Novembre 2020

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

Dranreb · 28 Novembre 2020

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 · 28 Novembre 2020

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 · 28 Novembre 2020

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.

XL 2016 Uniformiser la date des cellules

Phylo

XLDnaute Occasionnel

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires