Microsoft 365 Création feuille Historique

[jcf6464]

Bonjour le forum,
A partir du classeur de galopin je souhaiterez que quand je supprime un membre de la BD avant de le supprimer l'on recopie certaines informations
dans la feuille (Historique pilote) Voir feuille dans classeur,
Merci à tous de nous aider

bonne soirée à tous

 

[sylvanu]

Bonsoir Jcf,
Sans tout éplucher, j'ai juste rajouté :

Private Sub WriteHistoric()
    Dim NID%
    On Error Resume Next
    NID = [T_Historique].Rows.Count
    [T_Historique[Nom]].Item(NID) = tb1
    [T_Historique[Prenom]].Item(NID) = tb2
    [T_Historique[DateN]].Item(NID) = tb3
    [T_Historique[Ville]].Item(NID) = tb4
    [T_Historique[tel1]].Item(NID) = Val(tb5)
    [T_Historique[tel2]].Item(NID) = Val(tb6)
    [T_Historique[Mail]].Item(NID) = tb7
    [T_Historique[pays]].Item(NID) = CmbPays
End Sub

et lancer l'enregistrement avant d'effacer :

      WriteHistoric ' Ecrire dans l'historique
      RemoveRecord  'iR ' Supprime l'enregistrement courant

 

[jcf6464]

Bonjour sylvanu et le forum,

Merci pour ta solution qui fonctionne sur ce classeur,
-quand je reproduit ton code sur le classeur définitif cela ne fonctionne pas ,

j'ai rajouter +1 à (NID = [T_Historique].Rows.Count) pour que les enregistrements soit les uns après les autres,

-Peut on rajouter une information pour ne pas avoir de doublon sur le nom et prénom lier à voir,

à noter : Le classeur définitif est basé sur la même structure que le classeur d'essai mais en multipage je ne sais pas si cela à une incidence sur le code,

Je vais voir si je peut anodiser le classeur définitif et le mettre ici,
cordialement et merci

bonne journée jean claude

 

[sylvanu]

Bonjour,
Fournissez une PJ vraiment représentative avec des demandes précises, ça évitera de refaire dix fois le même travail.

Peut on rajouter une information pour ne pas avoir de doublon sur le nom et prénom lier à voir,

Je ne pense pas qu'un contributeur imagine "écraser" des données dans un historique puisque par essence un historique c'est la traçabilité de tout ce qui a été fait. Donc si vous ne le précisez pas ce ne peut pas être fait.

 

[jcf6464]

Re sylvanu et le forum,

Je joint le classeur épurer

https://www.cjoint.com/c/LJuiRb5lidb

cordialement jean claude

 

[sylvanu]

Voir PJ : https://www.cjoint.com/c/LJumsxzdEHY

-Peut on rajouter une information pour ne pas avoir de doublon sur le nom et prénom lier à voir,

Qu'entendez vous par là ?
Si Nom et Prénom sont trouvés dans l'historique, on écrase les valeurs ?

 

[sylvanu]

Si c'est multipage avec des gestions différentes de l'historique il vous faudra plusieurs macros.
Une sans écraser et l'autre qui écrasera, pour cela il suffit de regarder si le nom existe et si c'est le cas substituer ce numéro de ligne à NID.

 

[jcf6464]

Re sylvanu et le forum,

Oui pour le multipage mais cet un enregistrement global des multipages il n'y à pas plusieurs enregistrement

a+

 

[sylvanu]

Comprenez bien que si vous avez deux actions différentes pour l'archivage, il faut bien que le VBA sache ce que vous voulez, écrasement ou pas.
Soit avec le nom de la page, soit avec une colonne qui dit dans quelle course on est.
Mais le VBA ne peut pas deviner ce que vous voulez faire.

 

[sylvanu]

Alors si vous ne savez pas différencier vos différentes courses vous ne pourrez pas faire deux actions différentes avec une même macro.
( je ne vois pas pourquoi vous parlez de "référence à une compet dans l'historique", c'est dans l'userform, lorsque vous faites Suppression que le VBA doit savoir quelle action il doit faire )
Sinon vous n'avez pas de solution.

 

[sylvanu]

Vous le faites exprès ?
Je vous ré explique . Vous avez dit au post #7 que vous aviez plusieurs pages, avec plusieurs compets, et que suivant la compet vous faites :
1- je les supprime et enregistre sur l'historique
2- je ne touche pas à l'historique je ne le vide pas
3- comme ils sont déjà dans l'historique ils sont écrasé par la dernière rentré
Vous avez donc trois actions différentes suivant la compet.
Soit :
1- Vous avez trois macros qui sont appelées suivant le cas.
2- Vous avez un autre système qui permette au VBA de savoir ce qu'il doit faire.
( soit suivant le nom de la page, soit suivant un indicateur qui donnerait la compet .... )

Mais il n'est pas possible d'écrire une macro où le VBA saurait quelle action il doit faire par l'action du saint esprit.
Comprenez vous le souci d'architecture ?

 

[sylvanu]

ce que je dis

Evidemment puisque je vous cite.

Bon je vois qu'on ne se comprendra pas. Je jette l'éponge.

 

[jcf6464]

re

pour faire simple je veut recopier dans historique que les pilotes que je supprime cet tout sans concordance avec quoi que ce soit

bonne soirée

 

[sylvanu]

C'est ce qui est fait dans la dernière PJ.

 

[jcf6464]

Bonjour sylvanu et le forum,

Je crois que je n'avais pas le #6 avec mes excuses

Vous avez pas abandonné sur le #5

merci cela fonctionne

bonne journée jcf