Moteur de recherche + Fonction modifier VBA-USERFORM

Smaily · 5 Août 2019

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 · 29 Août 2019

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 · 29 Août 2019

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 :

VB:

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 :

VB:

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 · 30 Août 2019

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

Dranreb · 30 Août 2019

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.

Moteur de recherche + Fonction modifier VBA-USERFORM

Smaily

XLDnaute Junior

Pièces jointes

Smaily

XLDnaute Junior

Pièces jointes

Dranreb

XLDnaute Barbatruc

Smaily

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Discussions similaires