Recherche intuitive VBA (EN COURS DE RESOLUTION)

misteryann

XLDnaute Occasionnel
Bonsoir à toutes et tous
Voila le soucis:
j'ai voulu transposer un code de recherche intuitive d'un classeur (qui marche) vers un autre mais cela ne fonctionne pas.

Principe : on sélectionne le type de recherche (DI ou Libellé) puis dans la combobox on tape les mots clefs.

Si vous avez une idée...
(Je suis fan des commentaires en fin de ligne de code)

Cordialement.
Misteryann
 

Pièces jointes

  • Classeur exemple.xlsm
    46 KB · Affichages: 44

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

>Alimenter la CB6 en fonction d'un choix via option1 (DI (colonne A)) ou option 2 (Libellé(colonne I))

cf PJ (d'après le pgm du #7)

VB:
Dim f, TblBD(), choix1(), NbCol, ligneEnreg, ColClé
Private Sub UserForm_Initialize()
  Set f = Sheets("DI")
  TblBD = f.[A1].CurrentRegion.Value
  NbCol = UBound(TblBD, 2)
  OptionButton1_Click
End Sub

Private Sub OptionButton1_Click()
  ColClé = 1
  ListeChoix
End Sub

Private Sub OptionButton2_Click()
  ColClé = 9
  ListeChoix
End Sub

Private Sub ComboBox6_Change()
   Me.ComboBox6.List = Filter(choix1, Me.ComboBox6.Text, True, vbTextCompare)
   Me.ComboBox6.DropDown
End Sub

Sub ListeChoix()
  Set Rng = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Offset(, ColClé - 1)
  choix1 = Application.Transpose(Rng)
  Tri choix1, 1, UBound(choix1)
  Me.ComboBox6.List = choix1
End Sub

Boisgontier
 

Pièces jointes

  • Copie de Classeur exemple1.xlsm
    42.7 KB · Affichages: 16
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s