Microsoft 365 Date dans tirage au sort

[jilooou]

Bonjour,
Je voudrais faire apparaitre la date de tirage au sort dans mon tableau.
j'ai mis la formule =SI(A2<>"";AUJOURDHUI();"--").
Le problème est que comme c'est un tirage au sort les date ne tombe pas au bonne endroit avez vous des idées.
Je voudrait également crée une synthèse automatique par agent dans chaque feuil
Merci

 

[sylvanu]

Bonjour Jilooou,
Si j'ai bien compris, il faut mettre la date en face du DPU testé ?
Si c'est cela il suffit de rajouter dans le code en ligne 28 :

Cells(j, 9) = Date

et supprimer les formules en colonne I.
Ce qui m'échappe c'est qu'à chaque ouverture du fichier vous ré initialisé la machine, donc ce sera toujours STE-PDU-0005 avec la date d'aujourd'hui, puisqu'on recommence systématiquement à 0.
Quant à la synthèse je n'ai pas tout compris. Vous voulez la liste des tests effectués par chacun ?

 

[jilooou]

oui pour la synthèse c'est exactement ça je peux peut être faire un TCD

 

[sylvanu]

Un TCD est simple à faire à partir de la feuille de Tirage, vous avez la liste des DPU en fonction du personnel.

 

[jilooou]

Bonjour,
Merci sylvanu, j'ai un beug sur ma vba je comprend pas d'ou vien le probléme

 

[sylvanu]

Bonjour,
Chez moi, ça passe correctement. La syntaxe est correcte.
1- N'avez vous pas des feuilles protégées ?
2- Au cas où, remplacez :

  [B2:B43].ClearContents
  par
  Range("B2:B43").ClearContents

Mais cela ne devrait rien changer.

 

[jilooou]

C'est peut être mon ordi pro qui est un peu trop faible.