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]

je ne vois pas très bien quelle modification effectuer ?...

 

[Dranreb]

Trouver pourquoi les séries se retrouvent dans un ordre différent de celui des lignes. Avez vous ajouté un Sort ou reclassez-vous manuellement le tableau ? Chez moi je n'ai pas ce problème.

 

[Smaily]

Roh... C'est bizarre normalement non je n'ai rien touché.
Ci-joint mon classeur

 

[Dranreb]

C'est sûr que si au lieu d'être la dernière c'est la première série qui se réfère à la dernière ligne, j'ai beau supprimer les séries en trop à la fin avant de supprimer les lignes en trop, également à la fin, ça fusille les référence de la 1ère série !

 

[Dranreb]

Bizarre.
En ayant simplement supprimé votre graphique puis copié collé celui de ma version ça semble avoir fait disparaître le problème

 

[Smaily]

Du coup on ne peut rien y faire ?

 

[Smaily]

Ah d'accord je vais refaire mon graphique alors

 

[Smaily]

Oh.. j'ai toujours ce message d'erreur... Pouvez-vous me joindre votre graphique ?

 

[Dranreb]

Je joins ma version actuelle du classeur.

 

[Smaily]

Vous avez aussi ce message d'erreur lors de la suppression d'une référence situé au milieu du tableau "répertoire"

Bizarre, sinon ce n'est pas grave on fera "OK" lorsque ce message apparaîtra.

 

[Dranreb]

Oui, à ma grande surprise, car c'est incompréhensible.
Contre toute attente en supprimant carrément toutes les séries ça marche, il a l'air de comprendre comment les créer ensuite sans avoir à se baser sur d'existantes.
Donc en remplaçant While LMax < SCn.Count: SCn(LMax + 1).Delete: Wend
par While SCn.Count > 0: SCn(1).Delete: Wend

 

[Smaily]

En supprimant les données dans tous les tableaux c'est ça ?
Chez moi, rien à faire toujours ce message d'erreur...

 

[Dranreb]

Non, en supprimant toutes les séries du graphique avant de supprimer seulement les lignes en trop du tableau.
(puisqu'apparement la supression des lignes en trop fusille des références de plages portées par des séries n'ayant incompréhensiblement pas été préalablement supprimée, ça m'a donné l'idée de les supprimer toutes)

 

[Smaily]

En fait je n'ai pas de ligne en trop mais lorsque je supprime une référence ce message d'erreur s'affiche dans la feuille BILAN GRAPH. Pourtant il supprime bien ce qu'on lui demande à savoir la ligne référence accompagné de sa colonne emplacement dans le tableau.

 

[Smaily]

Ci-joint mon fichier