Moteur de recherche + Fonction modifier VBA-USERFORM

[Smaily]

Bonjour,

Je souhaite créer une sorte de moteur de recherche en VBA, cela dit je bloque un peu.
Le but de cette macro est de rechercher une ligne de la feuille "Répertoire" comportant la donnée recherchée. (une sorte de filtre)

Merci d'avance pour le coup de main.
Cordialement.

 

[Smaily]

Bonjour,
Après un certain temps d'utilisation de l'outil, je me demandais si c'était possible de créer un historique des saisies dans le formulaire.
Créer une sorte d'écriture comptable permettant d'avoir un historique des actions.
Est-ce possible ?
Merci d'avance,
Bonne journée.

 

[Dranreb]

Boujour
Vous pouvez toujours prévoir une colonne X pour la date et l'heure de dernière modidification, où vous mettrez TVL(1, X) = Now avant d'en garnir un élément nouveau ou existant de CL.Lignes
Après vous pourrez classer le tableau sur cette colonne.

 

[Smaily]

D'accord je vois. Cependant j'aimerai avoir accès à toutes les modifications que les opérateurs ont pu effectuer sur le document car si une personne supprime la mauvaise référence, il n'y a pas de retour en arrière...
Est ce possible de créer une troisième feuille "Ecriture comptable" ?

 

[Smaily]

En somme, copier la dernière ligne saisie dans la feuille 1 dans feuille 3 en indiquant si c'était un Ajout, une modification ou bien une suppression ?

 

[Dranreb]

Oui, initialisez un LOtÉC (pour ListObject Écriture Comptable), préparez un TVLÉC() a deux colonnes de plus que TVL, copiez y les éléments et faite un LOtÉC.ListRows.Add.Range.Value = TVLÉC

 

[Smaily]

Bien reçu.
Quelque chose comme ça ?


Private Sub LOtEC()
TVLEC(1, 9) = TVL(1, 7)
If LCou = 0 Then
CL.ValeursVers TVLEC
CL.Lignes.Add.Range.Value = TVLEC
CL.Actualiser
Else
CL.Lignes(LCou).Range.Value = TVLEC
End If
LOtEC.ListRows.Add.Range.Value = TVLEC

End Sub

Dans "UFmMàJ"

 

[Dranreb]

Peut être pas besoin de refaire la ventilation des contrôles
Faite une procédure qui écrit juste une copie du TVL avec un code et l'heure :

Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie()
   TCopie = TVL
   ReDim Preserve TCopie(1 To 1, 1 To 9)
   TCopie(1, 8) = Code
   TCopie(1, 9) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub

Et appelez cette procédure chaque fois que vous voulez que ce soit fait avec comme Code "Ajout", "Modif", "Suppr", voire "Ancien" d'abord, avant le CA.ValeursVers TVL (seulement si LCou > 0) si vous voulez aussi garder les valeurs de la ligne avant la modification.

 

[Smaily]

d'accord du coup il suffit de mettre ça ici c'est ça ? :

 

[Dranreb]

Non. Ça nous donnerait donc :
Une déclaration dans la Private du début :

Private WithEvents CL As ComboBoxLiées, WithEvents CA As ControlsAssociés, LCou As Long, TVL(), LOtEC As ListObject

À la fin de la UserForm_Initialize :

   Set LOtEC = Feuil2.ListObjects(1)
   End Sub

Et toute la fin du du module remaniée comme ça :

Private Sub CBnValider_Click()
   If LCou = 0 Then
      CA.ValeursVers TVL
      CL.ValeursVers TVL
      TVL(1, 7) = "=TODAY()-[@Date]"
      CL.Lignes.Add.Range.Value = TVL
      CopieTVLEC "Ajout"
      CL.Actualiser
   Else
      CopieTVLEC "Ancien"
      CA.ValeursVers TVL
      TVL(1, 7) = "=TODAY()-[@Date]"
      CL.Lignes(LCou).Range.Value = TVL
      CopieTVLEC "Modif"
      End If
   End Sub
Private Sub CBnSuppr_Click()
   If LCou = 0 Then Exit Sub
   CopieTVLEC "Suppr"
   CL.Lignes(LCou).Delete
   CL.Actualiser
   End Sub
Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie()
   TCopie = TVL
   ReDim Preserve TCopie(1 To 1, 1 To 9)
   TCopie(1, 8) = Code
   TCopie(1, 9) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub

 

[Smaily]

Ah oui effectivement bien reçu, je vous remercie une nouvelle fois.
Mais lors de la compilation une erreur d'indice est apparue :

Connaissez-vous son origine ?

 

[Dranreb]

Dans la version que j'ai gardée, le tableau des écritures comptables doit aller jusqu'à 10 colonnes, non 9.
Alors c'est :

Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie()
   TCopie = TVL
   ReDim Preserve TCopie(1 To 1, 1 To 10)
   TCopie(1, 9) = Code
   TCopie(1, 10) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub

Pourquoi aves vous appelé la feuille représentée par l'objet Feuil2 par quelque chose commençant par "ListObj" ? Je l'aurais appelée "Écritures comptables". Êtes vous sur qu'elle content un tableau Excel de 10 colonnes ? Sinon Feuil2.ListObjects(1) donnerait aussi lieu à cette erreur.

 

[Smaily]

oui oui j'ai oublié de rectifier sur le screen mais la feuille 2 s'appelera bien "Ecritures comptables"

 

[Smaily]

Ah oui oh la la ça fonctionne j'avais oublié de déclarer le tableau…
Encore un grand merci !

 

[Dranreb]

Remarque: Le débogage ne montre pas l'instruction avec "Arrêt sur les erreurs non gérées" coché. Il faut cocher "Arrêt dans le module de classe", parce qu'un UserForm en est un en fait.
(menu Outils, sous menu Options…, onglet Général, rubrique Récupération d'erreur)

 

[Smaily]

D'accord bien reçu.
Cependant lorsque je procède à un changement d'emplacement ou un ajout. Un message d'erreur apparait :