Liste déroulante probleme de choix [Résolu]

Signaler
Messages postés
11
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
19 novembre 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Salut,

Voici mon probleme j'ai une liste déroulante que j'ai fait grace à la combobox suivante:

Sub ComboBox1_Change() 'Liste déroulante Process

Dim I As Integer
Dim row As Integer
Dim tmp As String

I = 12
Worksheets("output").Range("A12:AE65000").Clear
With Worksheets("DATA").Range("L1:L65000")
Set c = .Find(Worksheets("DATA2").Range("B68"), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Worksheets("DATA").Activate
Rows(c.row).Select
Selection.Copy
Worksheets("output").Activate
Worksheets("output").Range("A" & I).Select
ActiveSheet.Paste
I = I + 1

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Msg = MsgBox("The research is completed")

End Sub


Elle marche très bien cependant, elle me prend tous les mots.

C'est à dire je choisi Molding dans la liste déroulante, et elle doit me sortir que les molding or elle va me sortir aussi des "lens molding" ou des "molding mask"...

Comment lui préciser que je veux qu'elle recherche les mots exactes, pas d'extrapolation...

Merci à tous

Bye

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut

Ouvre l'aide de la fonction .Find et et trouveras le paramètre LookAt permettant de définir si la recherche doit être partielle (xlPart) ou entière (xlWhole)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)