VBA liste

Truzs Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
Truzs Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -
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/
A voir également:

4 réponses

Réponse 1 / 4
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
Réponse 2 / 4
Truzs Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour j'étais pourtant sur de l'avoir enregistrer attendais je vais le remettre
0
Réponse 3 / 4
Truzs Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   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 28 Date d'inscription   Statut Membre Dernière intervention   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

Discussions similaires

Rechercher un numéro sur liste rouge
pierr-89 -
KARDAN -

4 réponses