VBA liste

Truzs -  
 Truzs -
Bonjour,

Je cherche à pouvoir rechercher un nom dans une base de données à partir de n'importe qu'elle mots du nom exemple betonnière s190

je voudrais que si je tape s190 ça trouve betonnière s190 on m'as déjà donner un code VBA



J'ai modifier pour que ça affiche dans ma cellule que ça vas chercher dans mon classeur Base de données mais ça me mets une erreur ici

Mais je ne m'y connais pas du tout en vba quelqu'un aurais une idée ?

https://mon-partage.fr/f/NplczEIY/

4 réponses

  1.
    franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
     
    Bonjour,
    c'est bien gentil de mettre le code en photo... et pas dans le fichier joint
    Clic droit sur le nom de la feuille affectation
    choisir "Visualiser le code"
    recopier le code sur la feuille qui va s'ouvrir

    A+ François
    0
  2. Truzs
     
    Bonjour j'étais pourtant sur de l'avoir enregistrer attendais je vais le remettre
    0
  3. Truzs
     
    Ah j'ai compris j'avais bien enregistré mais j'ai un autre problème j'ai activer les macros mais ça m'affiche ce message quand je veux enregistrer
    0
  4. Truzs
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([D19], Target) Is Nothing And Target.Count = 1 Then
    Set f = Sheets("feuil2")
    a = Application.Transpose(f.Range("A1:A" & f.[A65000].End(xlUp).Row))
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    Else
    Me.ComboBox1.Visible = False
    End If
    End Sub

    Private Sub ComboBox1_Change()
    If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
    Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
    Me.ComboBox1.DropDown
    End If
    ActiveCell.Value = Me.ComboBox1
    End Sub
    Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.ComboBox1.List = a
    Me.ComboBox1.Activate
    Me.ComboBox1.DropDown
    End Sub

    Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then ActiveCell.Offset(1).Select
    End Sub
    0