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.

 

[Smaily]

Bonjour,
Ce fichier m'a l'air d’être un super outil, bien détaillé et bien construit mais mes bases en programmation sont faibles. Je n'y comprends pas grand chose... J'ai beau faire une copie en arrangeant par rapport à mon tableau de base mais rien n'y fait...

 

[Dranreb]

Joignez ce que vous avez essayé.

 

[Smaily]

Dans la partie UserForm5, vous trouverez quelques lignes permettant de trouver l'emplacement de la référence que l'on veut modifier.
Cependant, le programme modifie la colonne entière au lieu de modifier seulement la référence sélectionné au préalable.
Merci d'avance pour le coup de main.

 

[Dranreb]

Vous pouvez aussi utiliser ce classeur pour élaborer rapidement un UserForm de mise à jour et consultation correct.
Remarque: dans votre classeur joint il n'y a aucune tentative d'utilisation du complément CBxLCtlA.xlam, dont le projet CLsCAs n'est d'ailleurs pas en référence.

 

[Dranreb]

Peut-on mettre la plage à consulter ou mettre à jour sous forme de tableau ?

 

[Smaily]

Oui ou bien même insérer la fonction "Changement d'emplacement" dans la partie "Rechercher" comme disait @mapomme.
Cela reviendrait alors à créer un bouton modifier dans le UserForm de recherche. Ce bouton modifier servirait à changer l'emplacement de la référence recherchée.

 

[Dranreb]

Dans tous les UserForm de mise à jour et consultation que je propose c'est le même bouton qui fait soit Ajout soit Modification selon que la combinaison de valeurs dans les ComboBox préexistait ou non.

 

[Smaily]

Pour ce qui est du dernier fichier que vous m'avez envoyé, je n'arrive pas à compiler n'y à repérer le chemin du fichier à modifier...

 

[Dranreb]

En B1 tapez '=', cliquez dans une cellule du classeur où vous voulez implanter l'UserForm puis Entrée.

 

[Smaily]

Ah effectivement, je n'avais pas fait attention...
Mais impossible de valider.
En fait, je pense que la réponse à mon problème est beaucoup plus simple que ces lignes de codes. Je dois juste avoir un problème dans mes boucles...

 

[Dranreb]

Un début de code possible pour l'UFmMàJ :

Option Explicit
Private WithEvents CL As ComboBoxLiées, WithEvents CA As ControlsAssociés, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set CL = CLsCAs.Création.ComboBoxLiées: CL.Plage Feuil1
   Set CA = CLsCAs.Création.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
   CL.Add Me.CBxDate, "Date"
   CL.Add Me.CBxRéf, "Référence"
   CA.Add Me.TBxDsgn, "Désignation"
   CA.Add Me.TBxProv, "Provenance"
   CA.Add Me.TBxDest, "Destination"
   CA.Add Me.TBxEmpl, "Emplacement"
   CL.CouleurSympa
   CL.Actualiser
   End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   If NbrLgn = 0 And Complet Then
      CBnValider.Enabled = True: CBnValider.Caption = "Ajouter"
   ElseIf NbrLgn = 1 Then
      CBnValider.Enabled = True: CBnValider.Caption = "Modifier"
   Else
      CBnValider.Enabled = False: CBnValider.Caption = "…"
      End If
   LCou = 0
   ReDim TVL(1 To 1, 1 To CL.Colonnes.Count)
   CA.ValeursDepuis TVL
   End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long)
   LCou = Ligne
   TVL = CL.Lignes(LCou).Range.Value
   CA.ValeursDepuis TVL
   End Sub
Private Sub CBnEchap_Click(): If CL.ChangéÀLEchap Then Exit Sub
   CL.Nettoyer
   End Sub
Private Sub CBnValider_Click()
   CA.ValeursVers TVL
   If LCou = 0 Then
      CL.ValeursVers TVL
      CL.Lignes.Add.Range.Value = TVL
      CL.Actualiser
   Else
      CL.Lignes(LCou).Range.Value = TVL
      End If
   End Sub
Private Sub CBnSuppr_Click()
   If LCou = 0 Then Exit Sub
   CL.Lignes(LCou).Delete
   CL.Actualiser
   End Sub

Attention, important: implique que la plage ait fait l'objet d'une mise sous forme de tableau. Sinon on ne peut pas utiliser les titres des colonnes en guise de spécifications de colonnes aux Add des objets CL et CA, ni leur propriété Colonnes ni la Lignes de CL.

 

[Dranreb]

Je joins l'ébauche

 

[Dranreb]

Remarque: s'il faut pouvoir rechercher un élément selon d'autres critères que la date et la référence, ça ne poserait pas de problème de remplacer les TBx par des CBx et d'en confier la charge à CL au lieu de CA. Hormis dans la UserForm_Initialize ça ne changerait rien dans le reste du code à condition qu'il ne faille pas aussi pouvoir les changer sur une ligne existante. (mais même alors il y aurait une solution avec un bouton supplémentaire CBnChgId "À changer…" qui stopperait CL pour qu'il n'y ait plus de recherche)

 

[Dranreb]

L'idée c'est bien sûr de simplifier l'utilisation du classeur en faisant tout depuis un seul UserForm.

 

[Smaily]

D'accord j'ai bien tout reçu je vous remercie pour l'étude de mon cas.
Cela dit j'ai un problème avec ma bibliothéque qui ne retrouve pas vos fonctions...
Ci-joint le message d'erreur :