VBA liste

Truzs Messages postés 29 Statut Membre -  
Truzs Messages postés 29 Statut Membre -
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

Réponse 1 / 4
franc38 Messages postés 198 Statut Membre 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
Réponse 2 / 4
Truzs Messages postés 29 Statut Membre 2
 
Bonjour j'étais pourtant sur de l'avoir enregistrer attendais je vais le remettre
0
Réponse 3 / 4
Truzs Messages postés 29 Statut Membre 2
 
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
Réponse 4 / 4
Truzs Messages postés 29 Statut Membre 2
 
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