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]

Ah oui effectivement voila qui est fait desolé. Mais malgré cela le tableau "ecriture comptable" ne s'incremente pas, la copie ne fonctionne pas...

 

[Dranreb]

Déplacez vos colonnes Qualite et Type devant les colonnes Action et Date de modification.
Et mettez les bonnes colonnes de fin dans la Sub CopieTVLEC :

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

Dans TVL les colonnes 9 et 10 sont réservées à Qualite et Type, alors il ne faut pas les écraser.
Pour ne plus vous tromper à l'avenir si vous ajoutez d'autre colonnes vous pouvez faire comme ça :

Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie(), C As Long
   TCopie = TVL: C = UBound(TCopie, 2)
   ReDim Preserve TCopie(1 To 1, 1 To C + 2)
   TCopie(1, C + 1) = Code
   TCopie(1, C + 2) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub

 

[Smaily]

Ah d'accord oui tout fonctionne mais du coup ces deux écritures effectuent la meme chose ?

 

[Dranreb]

Oui, pour l'instant, bien sûr.
Mais le jour où vous ajouterez une colonne et insèrerez la même au même endroit dans l'autre feuille vous n'aurez plus besoin de modifier la seconde.