Recherche intuitive VBA (EN COURS DE RESOLUTION)

[misteryann]

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

 

[Paritec]

Bonjour Bruno45 le forum
je viens de lire ta dernière réponse et je me marre, alors je te fais un petit coucou.
amicalement
Papou🙂

 

[BOISGONTIER]

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)

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