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

 

[Phylo]

Bonjour Dranreb

Je m’adresse à toi parceq que j’ai un problème dans le fichier Excel .
ca fait deux jours qu'elle me donne un message d'erreur suivant

La derniere version que tu m'a donné fonctionne
mais dés que j'enregistre le fichier dans le réseau
ne fonctionne plus et me donne ce message d'erreur

 

[Phylo]

Tu pourras stp me dire pourquoi il fonctionne plus ou bien me le corriger et m'envoyer le bon fichier


Merci bcp d'avance

 

[Dranreb]

Bonsoir.
Quell manoeuvre faut-il faire pour reproduire l'erreur ?
Et surtout vers quelle instruction vous renvoie-t-il quand vous allez en Débogage ?

 

[Dranreb]

Remarque: j'ai eu cette erreur sur ReDim Preserve LstEmpLibr(0 To N) alors que N valait -1. Parce qu'il n'a trouvé aucun emplacement libre je suppose. Mais je ne sais plus du tout de quoi il s'agit, tout ça. Et qu'est-ce qu'il faudrait faire si ça se reproduit ? Pour que l'erreur ne se produise plus on pourrait toujours faire :

   If N >= 0 Then ReDim Preserve LstEmpLibr(0 To N) Else Erase LstEmpLibr

Mais il est probable que ça coince alors plus loin …

 

[Dranreb]

Il semblerait que le fichier que vous avez envoyé ne soit pas la dernière version que j'avais gardée.
Je la joins donc. Mais elle ne contrôle pas d'avantage s'il y a saturation des emplacements occupés. Par contre il y a un dispositif d'archivage pour en libérer.

 

[Phylo]

Quand je fais debogage Il me renvoie vers le

Sub OuvreFormulair()
UFmSaisie.Show
End Sub

mais le codage est bon

pour la solution que t'a proposé je ne sais pas ou il faut mettre cette instruction


If N >= 0 Then ReDim Preserve LstEmpLibr(0 To N) Else Erase LstEmpLibr

 

[Dranreb]

Dans VBE: Alt+OO,onglet Général, rubrique Récupération d'erreur, cochez Arrêt dans le module de classe.
Ça permettra un positionnement plus précis sur l'instruction qui provoqque l'erreur, même si c'est dans un module objet.

 

[Phylo]

Il semblerait que le fichier que vous avez envoyé ne soit pas la dernière version que j'avais gardée.
Je la joins donc. Mais elle ne contrôle pas d'avantage s'il y a saturation des emplacements occupés. Par contre il y a un dispositif d'archivage pour en libérer.

Oui j'ai déja cette version
je la garde toujours comme version buckup s'il y a un probléme

 

[Dranreb]

Dans la Private Sub PréparerLstEmplLibr, au lieu du simple ReDim Preserve LstEmpLibr(0 To N), essayez en mettant

   If N = -1 Then
      MsgBox "Il n'y a plus d'emplacement libre." _
         & vbLf & "Veuillez archiver des lignes.", vbExclamation, Me.Caption
      ReDim LstEmpLibr(0 To 0): LstEmpLibr(0) = "(Aucun)"
   Else: ReDim Preserve LstEmpLibr(0 To N): End If

 

[Phylo]

Merci Beacoup Dranreb
J'ai essayé ca fonctionne

mais je ne comprends pas le message il n y a opas d'emplacement libre

merci

 

[Dranreb]

Ça veut dire que tous les emplacements sont employés dans la colonne Emplacement et qu'il ne peut donc plus en être proposé d'autres jusqu'à ce que des lignes aient été archivées pour les libérer.

 

[Phylo]

ok merci beacoup

 

[Phylo]

Bonjour Dranreb,

J'ai reviens envers vous parce que j'ai fais des modifications du fichier pour alléger le fichier

J'ai un problème pour la révision du vrac quand je rentre révisé il mention la date mais quand j'enregistre il efface cette informations mais il laisse la date

par contre quand je rentre les informations concernant la case de révision du FG il me met l'information dans la case. mais je veux qu'il me remplit les informations de façon indépendante vu que la date change selon l'étape ou on est

Veuillez stp voir le fichier ci-joint merci bcp d'avance

 

[Dranreb]

Bonsoir.
Alors là je ne sais plus comment ça marchait ni ce que vous voulez, et il semble que vous avez changé des choses dans la partie en cause. Si vous ne voulez plus d'automatisme du tout concernant ces dates et que ce soit simplement fidèle à la fiche telle qu'on la voit, supprimez tout le début de la Sub CA_Change.
Mettez déjà en commentaire les ", Mode:=1 et 3 à la fin des CA.Add

 

[Phylo]

Je veux toujours l'automatisme de la date dés que le dossier est recu ou révisé
mais j'ai un problème d'indépendance tel que j'ai expliqué.

quand je rentre dans la liste déroulante révision du vrac et il me donne automatiquement la date. quand j'enregistre; il garde la date crée mais il enlève l'information Révisé

Vous pouvez essayer le fichier, vous allez constatez

Merci pour votre réponse