1-Les lignes à adapter :
Set f = Sheets("bd")
Set Rng = f.Range("A2:N" & f.[A65000].End(xlUp).Row) ' à adapter
ColCombo = Array(1, 2, 3) ' A adapter (1 à 6 colonnes maxi)
colVisu = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 13, 14) ' Colonnnes ListBox (à adapter)
2-Pour une barre de recherche sur le ListBox, c'est un autre formulaire.
La recherche est multi-colonnes et multi-mots.
'--- à adapter
Set f = Sheets("bd") ' Pour Excel<Excel 2007
Set Rng = f.Range("A2:N" & f.[A65000].End(xlUp).Row) ' à adapter
colInterro = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14) ' colonnes à interroger (adapter)
colVisu = Array(1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14) ' colonnes à visualiser dans listbox (adapter)
3-Pour la saisie,
on peut remplacer des textbox par des combobox mais leur nom ne doit pas changer leurs noms (TextBox1,TextBox2,.....)
Boisgontier