Recherche resultat multible validation selcetion

[wrap food]

Bonjour

Je souhaiterai un petit peut d'aide si c'est possible.

je m'explique .

J'aimerais faire une recherche
en saisissant (dans une cellule) d'un mot
et qu'il apparaisse dans une zone de liste tous les résultats correspondants au non saisi.
et une fois le choix fait, que les résultats de la recherche récupère les différents éléments.

si vous avez des solutions je suis preneur. ( avec userfom ou autre solution)

je met un exemple pour que cela soit plus explicite.

Par avance merci de votre aide

 

[Papou-net]

Re : Recherche resultat multible validation selcetion

Bonsoir wrap food,

Ta macro ne pouvait pas fonctionner car on ne peut écrire deux fois la même procédure. Tout doit donc être contenu dans un seul événement Change de la feuille MISE A JOUR.

D'autre part, on peut traiter les données avec un seul ComboBox qui se déplace automatiquement sur la colonne de la cellule de recherche. Ca simplifie grandement la programmation.

Quelques commentaires sont insérés dans le code pour aider à la compréhension. Espérant qu'elles seront suffisantes.

Cordialement.

 

[wrap food]

Re : Recherche resultat multible validation selcetion

Bonjour Papou-net

je suis vraiment désolé, mais c'est encore moi....

j'ai encore un problème sur le code .

j'ai transposé le code sur mon fichier et lorsque je veux faire le choix dans le combobox j'ai un erreur qui apparait.

" Erreur d'exécution'1004'':
erreur définie par l'application ou par l'objet"

et le code s'arret su la ligne ;
Cells(5, Col) = ComboBox1.Value

et je ne vois pas pourquoi

pourriez vous me dire ou j'ai fais une erreur

je mets le fichier avec la même mise en page ( format de cellule; nombre de ligne; positionnement de chaque élément tec...)

si vous avez la solution

encore merci pour votre aide

 

[Papou-net]

Re : Recherche resultat multible validation selcetion

Bonsoir wrap food,

Tu as simplement oublié de déclarer la variable Col en début de module:

Dim Col As Byte

Private Sub ComboBox1_Change()
' Si une option de liste est choisie, elle est reportée en ligne 6 sous la liste déroulante
' Si la liste est vide, la cellule en ligne 6 est effacée
If ComboBox1.ListIndex = -1 Then Cells(5, Col) = "": Exit Sub
Cells(5, Col) = ComboBox1.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target.Row = 4 Then ' vérifie si une cellule de la ligne 3 est modifiée
  Select Case Target.Column
    Case 2 To 29 ' ne prend en compte que les cellules situées en colonnes 2:18
      With ComboBox1
        Col = Target.Column ' enregistre le n° de colonne de la ligne modifiée
          .Left = Cells(3, Target.Column).Left ' aligne la liste déroulante sur la cellule de recherche
          .Clear ' réinitialise la liste
          ' remplissage de la liste déroulante
          For Each cel In Sheets("DONNEES").Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
            If InStr(UCase(cel.Value), UCase(Target)) > 0 Then .AddItem (cel.Value)
          Next
      End With
  End Select
End If
End Sub

Bonne soirée.

Cordialement.