Modification d'une macro "Recherche"

Bonjour à tous,

Nous sommes actuellement bloqués lors de nos tentatives de modification d'un document Excel que nous avons récupéré d'un ancien collègue qui a quitté la société sans détailler le fonctionnement de sa macro.

Nous avons une feuille "Recherche" qui dispose de deux boutons : "Valider" et "Annuler". Le but étant que lorsque nous saisissons des données dans la ligne 2, cela va directement nous afficher dans les lignes 5 et plus les informations trouvées dans la seconde feuille "Final".

A l'heure actuelle, la recherche est fonctionnelle. Néanmoins nous ne pouvons pas modifier le document à notre guise. En effet, si nous changeons le nom d'une colonne dans la feuille "Final", le message d'erreur suivant apparaît : (Voir PJ 1)

Seule solution : cliquer sur "Débogage" et la ligne de code suivante est pointée du doigt : Voir PJ2.

Pouvez-vous nous indiquer quel est le paramètre a éditer afin de pouvoir renommer ces colonnes à volonté, si possible, ou sinon comment changer le nom de ces colonnes puis mettre à jour le code ?

Merci d'avance pour votre aide,
Alexis et Romain.

Bonjour,

Peu de gens ouvrent les fichiers joints surtout avec macros cf le post épinglé.

De ce que je peux voir le code utilise les filtres avancés, donc normalement vous pouvez modifier vos nom de colonnes sans toucher à la macro, par contre si vous changer des noms de colonnes dans la feuille "Final" vous devez faire de même dans la feuille "Recherche"

Bonjour,

Veuillez nous excuser d'avoir directement transférer le document en PJ. Effectivement, nous n'avions pas pensé à cela au moment de l'envoi du post.

Nous avons essayés votre solution mais cela ne fonctionne pas. Nous avons couru tout le script sans voir le nom de nos colonnes dedans et ne comprenons donc pas ou se situe le blocage, c'est pourquoi nous avons transmis le document.

Merci en tout cas pour votre retour :)

Citation:

---

Nous avons couru tout le script sans voir le nom de nos colonnes dedans et ne comprenons donc pas ou se situe le blocage, c'est pourquoi nous avons transmis le document.

---

C'est normal, seul la zone où se trouve les noms est indiqué, sur votre copie d'écran on peut lire:
-Sheets("Final").[A1:y3000]
-Sheets("Recherche").[Extracti ? probablement une plage nommée extraction
Il vous faut vérifier que les nom des colonnes de cette plage nommées existent bien dans les entêtes de la feuille "final"
-[b1:x2] probablement de la feuille recherche puisque c'est là que se trouve les bouton
c'est la zone de critère du filtre, a vous de vérifié que ces critères sont valides

Plutôt qu'un fichier joint vous pouvez joindre des copies d'écran de ces plages ainsi que le code complet (entre balise code), vous aurez certainement des réponses plus précises

Bonsoir,

Avec le filtre élaboré, les noms de champ doivent être strictement identiques dans la BD, le critère et la zone résultat.
Une autre approche avec une recherche intuitive multi-mots.

Boisgontier

Bonjour a tous, merci pour votre aide !

Nous n'avions pas remarqué la présence des catégorie en L4 de l'onglet "Recherche", d'ou notre blocage.

En tout cas, merci pour votre aide !

Bonjour à vous,

Salut Jacques,

Sur ton classeur, le bouton de commande de la feuille Accueil n'est affecté d'aucune procédure.
Cette légère lacune comblée, si l'on observe le code alors ... :ave:

Bonjour,

>Cette légère lacune comblée, si l'on observe le code alors ...

C'est un pgm générique qui s'adapte automatiquement à la BD (On peut insérer ou supprimer des colonnes). Il n'est donc pas simple.

Avec le filtre avancé, avec cette version, on peut changer les titres de la BD.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Extrait() [Tableau1[#all]].Rows(1).Copy Sheets("accueil").[A1] [Tableau1[#all]].Rows(1).Copy Sheets("accueil").[A5] [Tableau1[#all]].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ [A1].Resize(2, [tableau1].Columns.Count), CopyToRange:= _ [A5].Resize(, [tableau1].Columns.Count), Unique:=False End Sub   End Sub

---

Boisgontier