Moteur de recherche + Fonction modifier VBA-USERFORM

[Smaily]

Bonjour,

Je souhaite créer une sorte de moteur de recherche en VBA, cela dit je bloque un peu.
Le but de cette macro est de rechercher une ligne de la feuille "Répertoire" comportant la donnée recherchée. (une sorte de filtre)

Merci d'avance pour le coup de main.
Cordialement.

 

[mapomme]

Bonjour @Smaily,

Regardez vers le bas de la page de votre discussion; il y a tout un tas de discussions similaires concernant "moteur de recherche"

 

[Smaily]

Bonjour MaPomme !

Effectivement, je vais y jeter un coup d'oeil merci 😉
Cela dit, je débute en vba et la comparaison entre différents exercices n'est pas forcément très simple...

 

[mapomme]

Re @Smaily

Cela dit, je débute en vba et la comparaison entre différents exercices n'est pas forcément très simple...

Bon, un essai (vite fait) dans le fichier joint. Si dans la liste des rubriques, vous n'en sélectionnez aucune, alors on recherche dans les 6 champs. Listbox1 contient un 7ème champ qui contient la ligne à sélectionner sur la feuille "Répertoire".

 

[BOISGONTIER]

Bonjour,


cf PJ


Boisgontier

 

[Smaily]

Oh super merci beaucoup tout fonctionne je vais étudier vos codes afin de comprendre d'avantage la structure des deux.
Encore merci.
il me reste plus qu'à rédiger la partie "Changement d'emplacement".

 

[axelcfc]

Salut Smaily,
Pour changement d’emplacement c'est le même principe.
Je passe en 4-2-3-1 offensif avec Fékir milieu offensif central.

Cordialement

 

[mapomme]

Re @Smaily 😉

Petite modif pour que cela fonctionne dès l'affichage du Userform4 (avant toute recherche)

Remplacez la procédure Private Sub UserForm_Initialize() par la suivante:

Private Sub UserForm_Initialize()
Dim t, i
  With Sheets("Répertoire")
    ComboBox1.List = Application.Transpose(.Range("a1:f1").Value)
    t = .Range("a1:g" & .Cells(.Rows.Count, "a").End(xlUp).Row).Value
    For i = 1 To UBound(t): t(i, 7) = i: Next
    ListBox1.List = t
  End With
End Sub

 

[Smaily]

Bien reçu, je fais ça de suite merci.
Cependant pour la partie changement d'emplacement, j'arrive à selectionner une ligne mais c'est les emplacements de tout une colonne qui sont modifiés... Auriez-vous une idée afin d'améliorer cette fonctionnalité ?
Merci d'avance.

 

[mapomme]

Re,

Pas bien compris ce que vous désirez faire pour un changement d'emplacement.

• Est-ce remplacer tous les emplacements (par exemple A9) par un autre remplacement (par exemple par A27) ?
• Est-ce remplacer seulement l'emplacement pour une ligne donnée (soit une seule référence) -> dans ce cas il ne faut aucun doublon dans les références) ?
• encore autre chose...

 

[Smaily]

Oui c'est ça, la deuxième option. D'accord oui effectivement ça risque de poser des problèmes par la suite.

 

[mapomme]

Re,

Effectivement, si les références ne sont pas uniques, on va avoir des PB. On pourrait combiner une recherche, afficher les références qui s'y rapportent, sélectionner par un clique la référence à modifier puis la modifier. Mais ça ne sera pas avant ce soir ou demain 😉

 

[Smaily]

Ah oui cette idée me convient amplement. Pas de problème ça me va.
Merci pour le temps que vous m'accordez.

 

[Smaily]

Bonjour,
Je viens aux nouvelles, avez-vous trouver une solution aux problèmes ?
Bonne journée !

 

[Dranreb]

Utilisez donc mon objet ComboBoxLiées, il fait ça tout seul !