XL 2016 En recherche d'un moyen pour cocher dans une BDD depuis une liste déroulante

chris

XLDnaute Barbatruc

• 29 Août 2023

• #2

Bonjour
pourquoi utiliser un format xls périmé depuis 17 ans ?

Une solution PowerQuery : si le nom est rempli cela cherche sur le nom sinon sur le numéro

Actualiser via le clic droit ou Données, Actualiser tout ou une ligne de code VBA

 

Pièces jointes

• Recherche_PQ.xlsx

  25.6 KB · Affichages: 7

Vote positif 0 Vote négatif

G

guillaume0212

XLDnaute Nouveau

• 29 Août 2023

• #3

Bonjour Chris,
merci pour ta réponse. Pour le format xls c'était une erreur je travaille avec du xlsx.

Powerquery je vois l'outil mais ne le connais pas du tout.

J'ai regardé ton fichier mais ne comprends pas trop :

- comment actualiser automatiquement avec une VBA vu que je n'ai pas trop de connaissances en prog
- comment une fois le nom trouvé par le formulaire de recherche, avoir une case pour qu'il soit coché ou surligné ou annoté dans la BDD

Merci par avance.

Guillaume

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 29 Août 2023

• #4

RE

Tu as pourtant une requête POwerQuery dans le fichier que tu as posté qui pointe vers L:\DIV\Agsd\Data\Security\BCI\EVENT\2023\Forum Public 2023\Listes\V2.csv...

Pour le VBA : comme on ne sait laquelle des 2 colonnes tu vas vider/remplir, on ne peux automatiquement actualiser au changement de valeur, donc il faut lancer l'actualisation
Sachant que le bouton Données, Actualiser tout peut être mis dans la barre de lancement rapide, est-ce utile d'ajouter un second bouton à côté du tableau de choix ?
Si oui je te donnerai le code à y associer.

En fait je ne suis pas sûr d'avoir compris ce que tu veux faire

Dans ton fichier initial que tu remplisses le nom ou le numéro tes 2 tableaux fonctionnent.
Donc en fait si je relis ton 1er post, tu veux cocher la BDD pour indiquer que cette ligne a été recherchée ?
Dans la colonne Distribué ?

Si c'est juste cela il faut un bouton pour cocher dans la BD la ligne trouvée.

Dis-moi si c'est cela...

 

Vote positif 0 Vote négatif

G

guillaume0212

XLDnaute Nouveau

• 30 Août 2023

• #5

Re Chris,

la Power Query présente je l'ai faite sans m'en rendre compte à priori^^ Elle doit venir du fait que j'ai récupéré les données du CSV pour obtennir les caractères manquants du fichier xlsx.

Concernant le but tu as quasiment cerné ce que je veux obtenir:

Dans la BDD je vais entrer tous les noms-prénoms-numéro de badge-Type

Dans le formulaire de recherche, je veux pouvoir trouver
-"Nom-prénom-Type-Distribué ou pas" quand je tape un numéro de badge
-"Numéro de badge-Prénom-Type-Distribué ou pas" quand je tape un nom (Résultat se rapprochant)
- Avoir en effet un bouton dans le formulaire de recherche qui coche la ligne trouvée suite a une recherche pour que la ligne de la BDD soit cochée ou anotée.

Si tu as la solution (et j'ai l'impression que tu n'en est pas loin) tu seras mon sauveur

Guillaume

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 30 Août 2023

• #6

Bonjour
Ci-joint
Quand tu saisis un Numéro cela efface le nom et vice et versa
La bouton met un X

 

Pièces jointes

• Recherche2.xlsm

  31.5 KB · Affichages: 10

Vote positif 1 Vote négatif

Solution

G

guillaume0212

XLDnaute Nouveau

• 30 Août 2023

• #7

Enorme! Un grand merci Chris!

 

Vote positif 0 Vote négatif

G

guillaume0212

XLDnaute Nouveau

• 30 Août 2023

• #8

Si tu as encore un peu de temps pour moi Chris, est ce que tu arriverais à me donner les explications de a macro histoire que je comprenne un peu le fonctionnement?
Sub, private sub, ordre d ecriture et tout

Sinon pas grave mais c'est pour me coucher moins bête^^

Merci beaucoup encore.

Guillaume

 

Vote positif 0 Vote négatif

G

guillaume0212

XLDnaute Nouveau

• 31 Août 2023

• #9

Re,
dernière question sur ce fichier du coup:

Actuellement il faut taper le nom exact sans faute pour trouver la correspondance. Je sais que pour rechercheV on peux choisir VRAI pour demander une valeur proche, mais actuellement ca renvoi des infos qui ne correspondent pas.

Comment corriger ce probleme, et que par exemple si dans la cellule NOM je tape "teteur" eu lieu de "testeur", ca me renvoi a la valeur la plus proche de la BDD qui serait "testeur"?

Merci encore par avance.

Guillaume

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2023

• #10

Bonjour

J'étais en ouacances...

Les valeurs proches ne fonctionnent pas trop pour du texte et suppose de plus un classement

Le plus simple serait d'extraire une liste triée via PowerQuery et d'alimenter une liste déroulante.

Je repasserai pour les explications du code

 

Vote positif 0 Vote négatif

G

guillaume0212

XLDnaute Nouveau

• 11 Septembre 2023

• #11

Bonjour Chris,
pas de soucis, les ouacances c'est la vie!!!!

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 11 Septembre 2023

• #12

Bonjour

• Private Sub Worksheet_Change surveille les changements de valeurs (saisie) dans la feuille FDR
  Si les changement ne concernent ni la cellule nommée ChoixNom, ni la cellule nommée ChoixNum, elle s'arrête
  Sinon elle interrompt temporairement la surveillance, efface parmi ces 2 cellules, celle qui n'est pas celle qui a déclenché la sub puis rétablit la surveillance.
  Le on error permet en cas d'erreur imprévue de ne pas laisser la surveillance en état off
• CocherTrouve (liée au bouton) vérifie que l'une des 2 cellules nommée n'est pas vide, et si c'est le cas s'arrête.
  Sinon récupère le numéro, selon sa position par rapport à la cellule nommée non vide, et cherche ce numéro dans la colonne N° de BDD afin, s'il le trouve, de modifier la colonne située 4 colonnes à droite de la ligne trouvée.

 

Vote positif 0 Vote négatif