Moteur de recherche + Fonction modifier VBA-USERFORM

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #2

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"

 

Dernière édition: 5 Août 2019

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 5 Août 2019

• #3

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...

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #4

Re @Smaily

Smaily à dit:

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

Cliquez pour agrandir...

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".

 

Pièces jointes

• Smaily- METZ- v1.xlsm

  58.4 KB · Affichages: 39

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 5 Août 2019

• #5

Bonjour,


cf PJ


Boisgontier

 

Pièces jointes

• Copie de FormRechercheModifAjoutSup3.xls

  186.5 KB · Affichages: 58

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 5 Août 2019

• #6

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".

 

Vote positif 0 Vote négatif

A

axelcfc

XLDnaute Nouveau

• 5 Août 2019

• #7

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #8

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:

VB:

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

 

Pièces jointes

• Smaily- METZ- v1a.xlsm

  59 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 5 Août 2019

• #9

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.

 

Pièces jointes

• METZ.xlsm

  50.6 KB · Affichages: 16

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #10

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...

 

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 5 Août 2019

• #11

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #12

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

 

Dernière édition: 5 Août 2019

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 5 Août 2019

• #13

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

 

Vote positif 0 Vote négatif

S

Smaily

XLDnaute Junior

• 7 Août 2019

• #14

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Août 2019

• #15

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

 

Pièces jointes

• CBxLCtlA.xlsm

  111.6 KB · Affichages: 61

Vote positif 0 Vote négatif