Recherche dans Table avec des Plages de N°

Un petit coucou pour m'associer à mike pour les félicitations :-)
Je n'aurais sans doute pas été aussi loin, bravo (et merci encore pour le relais :-) )
eric

Coucou Eric,

Je te remercie d'avoir entamer ce qui sera sans doute le plus abouti des classeurs Excel que j'ai rencontré. De plus avec toutes les annotations dans les macros, je serai certainement amené à réutiliser les formules pour d'autres utilisations (une fois que je les aurai bien assimilées bien sur ^^)

Ma collègue ne se demande plus pourquoi je rie tout seul devant mon écran, elle me dit juste :
"Encore une nouvelle version du classeur ?"

Je reste admiratif du potentiel d'Excel sublimé par un maître d'oeuvre hors du commun.
Chapeau bas GB !

Mike.

bonjour MikeThe7, coucou à Éric,

Merci pour les appréciations mais vous en faites un peu beaucoup je crois.
Tu as Éric démarré la bonne méthode de gestion de ce classeur et je n'ai fait que la compléter en prenant le relais à ta demande mais en mettant bien sûr mon grain de sel particulier : chacun a ses petits penchants ;-)

Comme tu n'aimes pas les liens hypertextes Mike, je te comprends car effectivement il est possible d'avoir quelque chose de plus simple et totalement évolutif. Je te propose cette version qui intègre automatiquement toute nouvelle feuille en facilitant la navigation.

http://www.cijoint.fr/cjlink.php?file=cj201109/cijeZhPpho.xlsm

J'en ai profité pour corriger quelques petits bugs qui auraient pu bloquer le fonctionnement.
Comme tu dis, le potentiel d'Excel est très grand et avec pas mal de coups de rames comme disait Éric il est possible de s'amuser un peu pour faciliter la gestion d'applications.

Slt GBinforme et Eric,

Sympa la petite fenêtre pour passer d'une page à l'autre Je ne connaissais pas du tout les ComboBox, encore une chose de plus sur laquelle je me pencherai...
Petite question, comment la faire apparaître si elle a été fermée ? Est-il possible qu'au moment où je sélectionne une feuille, la cellule sélectionnée soit la dernière de la table (comme quand je fais flèche droite sur la colonne "I") ?

J'ai un petit bug sur la nouvelle version du fichier : Lorsque je sélectionne les lignes ou les colonnes masquées (par exemple en sélectionnant "H", "I" et en continuant dans le vide sur la droite), j'ai l'erreur suivante :
"Erreur d'exécution '6':
Dépassement de capacité
Fin <-> Débogage <-> Aide"
Je clique donc sur Fin, je fais clique-droit sur les lignes ou les colonnes sélectionnées, et là même erreur. Après avoir cliqué sur Fin une seconde fois, le menu du clique droit apparait et je peux choisir d'afficher les colonnes ou lignes masquées.
Jusqu'à maintenant ce bug ne me gênait pas, mais sur le nouveau fichier, je ne peux afficher les lignes masquées. Par exemple sur la feuille 1, je ne peux afficher au delà de la ligne 514, ce qui est problématique pour importer mes tables.

Sur la feuille "Stat", j'ai voulu coller mes boutons sans avoir à les refaire, mais je n'y suis pas arrivé alors que j'ai pu le faire sur toutes les autres feuilles. Il y a quelque chose que j'ai mal fais ?

Merci pour toutes ces améliorations et les précisions apportées qui me sont fortes utiles.

Mike.

bonjour MikeThe7, coucou à Éric,

comment la faire apparaître si elle a été fermée ?

Elle est lancée à l'ouverture par Workbook_Open qui ne fait que cela et donc tu peux l'exécuter quand tu veux ou fermer/réouvrir.

la cellule sélectionnée soit la dernière de la table

Tu rajoutes la ligne en gras dans cette procédure (code navigation) :

Private Sub Choix_Change()              'affichage feuille choisie
    Sheets(Choix.Text).Activate
    [I3].Select

J'ai un petit bug

Je pense que c'est un gros bug excel car pour éviter tout problème si tu fais des sélections multiples, j'ai mis le contrôle :
If sel.Count > 1 Then Exit Sub
pour ne traiter que la sélection unitaire en colonne I, mais le compteur (count) d'excel est en dépassement de capacité : je pense qu'ils ont dû garder le dimensionnement des versions avant 2007 :)
Essaies de mettre la ligne en commentaire (apostrophe en début de ligne).

Sur la feuille "Stat", j

Non tu n'as rien fais de mal mais comme j'utilise l'événement "activate" de cette feuille il supprime ton copier. Pour le faire, tu changes provisoirement le nom de la macro :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
par exemple :
Private Sub xWorkbook_SheetActivate(ByVal Sh As Object)

Tu n'as pas chômé comme je disais car tu as bien navigué pour trouver tous ces petits pièges.

Bon courage à toi.

Bonjour GBinforme et Eric,

J'apprécie d'avoir pu modifier les macro avec tes informations, c'est très formateur plutôt que d'utiliser le classeur fourni par vos soins.

J'ai maintenant pu mettre les boutons sur toutes les feuilles et fait ma mise en page comme je le souhaitais.

Pour le bug de l'affichage des lignes masquées, j'ai du manqué une ligne de "If sel.Count > 1 Then Exit Sub" car il m'est impossible d'afficher au delà de 2 lignes sous le tableau. J'ai donc rusé et inséré des lignes dans le tableau, après avoir remis les macro comme elles étaient.

Le classeur est à présent complètement fonctionnel, j'ai même un bouton pour faire réapparaitre la navigation par la fenêtre "choix de feuille" lorsqu'elle a été fermé.

Il ne me reste plus qu'à mettre la saisie semi-auto dans les listes de choix et là je pense que le classeur sera vraiment fini...

Je tiens vraiment à vous remercier pour l'excellent travail que vous avez réalisé, pour le temps passé à comprendre ma problématique, pour l'investissement et la rapidité avec laquelle vous avez comblé toutes mes demandes.

Bien entendu, je vous enverrai une copie du classeur finalisé d'ici peu.

Avec toute ma gratitude, Mike.

bonjour MikeThr7,

J'apprécie d'avoir pu modifier les macro avec tes informations,

C'est le but du forum et je savais que tu en avais tout à fait la possibilité.

Pour éviter le bug avec count, tu peux remplacer par CountLarge :
If sel.CountLarge > 1 Then Exit Sub
il y en a deux dans ThisWorbook.

Tu vois que l'on apprend tous les jours : il faut suivre les évolutions.

Bonjour MikeThe7,

Comme ton classeur a bénéficié de tes modifications, tu vas continuer à modifier le code pour obtenir ton résultat souhaité.

La fonction réalisée par le double clic est incluse dans cette procédure événementielle globale, il faut donc en faire une fonction autonome :
- tu vas dans l'éditeur VBA
- tu sélectionnes le module gestion_boites
- puis menu insertion / procédure et tu saisis un nom, par exemple cre_ref
- dans ThisWorkbook et Private Sub Workbook_SheetBeforeDoubleClick
- tu sélectionnes les lignes entre

        If [C1].Value <> "" Then        ' recherche non trouvée
et
             Cancel = True

- tu coupes et tu colles dans la procédure cre_ref précédemment créée
- dans ThisWorkbook et Private Sub Workbook_SheetBeforeDoubleClick
- tu remplaces les lignes coupées par

           Call cre_ref                ' référence crée

Ta procédure double clic continue de fonctionner et il ne te reste plus qu'à l'introduire dans l'événement de saisie "entrée" de la textbox.
- tu sélectionnes la feuille de code de la feuille "Feuil5"(Recherche)
- tu colles cette fonction :

Private Sub TbxRech_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Call cre_ref
End Sub

Avec double clic sur la feuille ou "entrée" dans la textbox tu crées maintenant la référence saisie.

Voilà quelques petites manipulations qui devraient te permettre de maitriser le fonctionnement du codage VBA.
Bonne journée.

Bonjour GBinforme et Eric,

Juste une précision pour être sur de bien faire, lorsque tu dis
"- tu sélectionnes les lignes entre

If [C1].Value <> "" Then ' recherche non trouvée
et
Cancel = True"
Le "Entre" signifie bien que ces lignes ne sont pas incluses ?
Il y a 2 "Cancel = True" dans cette fonction, je pense qu'il faut s'arrêter au 1er, ai-je raison ?

Je suis très content de tripoter le VBA sous tes directives avisées.

EDIT : Cela marche super bien pour l'insertion avec "Entrée".
Le petit "hic" c'est que lorsque la référence existe déjà, au lieu de m'amener sur la ligne de la table correspondante, le fait de taper "Entrée" recrée une ligne avec la référence. J'imaginais plutôt que la touche "Entrée" aurait eu exactement la même fonction que le double clic sur la feuille :
- Si la réf. n'existe pas -> une nouvelle ligne est créée.
- Si la réf. existe -> aller à la ligne correspondante.

Je vais regarder de plus près la macro cre_ref pour voir si je peux adapter.

EDIT 2 : Est-ce que par hasard, il ne faudrait pas insérer cela dans cre_ref ?
If IsNumeric(rsu(1)) Then
Sheets(rsu(0)).Activate ' sélection feuille choisie
Cells(rsu(1), 2).Resize(1, 7).Select ' sélection ligne choisie

Au passage merci pour les commentaires, ça aide vraiment.
Par contre, comme je ne comprends pas tout sur la formule "Workbook_SheetBeforeDoubleClick", je ne sais pas si je peux le retirer et l'insérer directement sans dans cre_ref sans faire de dégâts...

EDIT 3 : Après utilisation et avoir rencontré des cas particuliers, c'est mieux de rester comme ça. En effet, lorsqu'il y a par exemple a supprimer une réf. alors qu'elle se trouve dans une plage de N°, c'est bien pratique que de pouvoir l'insérer directement avec "Entrée" ou d'accéder avec le double-clic. On a le choix comme cela et c'est parfait.

Je m'arrete là pour cette semaine, encore merci pour toutes ces explication fortes utiles.

Bon week-end et à bientôt.

Bonjour MikeThe7,

Désolé mais j'ai profité des rayons du soleil vendredi et je ne pouvais te répondre : tu t'es bien débrouillé :)

Bonjour MikeThe7,

En cette fin de week-end, voici les modifications à faire pour
à chaque fois que j'arrive sur la feuille recherche...

Pour cela, il faut d'abord inhiber la sélection de cellule sur cette feuille.
Tu rajoutes la partie en gras dans cette procédure (code navigation) :

Private Sub Choix_Change()              'affichage feuille choisie
    If Choix.Text <> rch Then [I3].Select

- dans ThisWorkbook tu rajoutes ce qui est en gras pour gérer la textbox :
ici

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
    Case rch
        Feuil5.TbxRech.Activate
    Case sta

et là

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal sel As Range, Cancel As Boolean)
Select Case Sh.Name
    Case rch
        Feuil5.TbxRech.Activate

- tu sélectionnes la feuille de code de la feuille "Feuil5"(Recherche)
- tu colles cette fonction pour sélectionner la saisie précédente :

Private Sub TbxRech_GotFocus()
    TbxRech.SelStart = 0
    TbxRech.SelLength = TbxRech.TextLength
End Sub

Le retour en recherche te permettra de saisir directement ta nouvelle référence.

Voici le classeur pour pouvoir vérifier, avec les fonctions "entrée" et double clic identiques en "Recherche"
http://www.cijoint.fr/cjlink.php?file=cj201109/cijM0BOVhb.xlsm

Bonjour GB et coucou à Eric,

Je te remercie une fois de plus pour tes explications.
Je n'aurais pas le temps de regarder cela cette semaine, je pars en vacances aujourd'hui. Je m'y remets dès lundi prochain et je te tiens au jus.

A bientôt, Mike.

Bonjour MikeThe7,

Je suis parti de ta version 9 puisque l'autre n'était pas satisfaisante.

- Parfois lorsque je viens sur la feuille "Recherche", la TextBox n'est pas visible

J'ai modifié ton module boutons pour éviter cela et j'ai changé le nom pour le lancement de la navigation : cela fonctionnait certes mais "Workbook_Open" est réservé pour l'ouverture du classeur et il vaut mieux ne l'utiliser que dans thisworkbook.

- Imaginons que je cherche le N° 1/16320. Lorsque je vais taper 1/1 ...

Cela était dû à la mise en forme conditionnelle que j'avais rajouté pour visualiser la référence et qui exige une sélection de cellule. Si la référence est trouvée, je t'ai mis un bip mais tu peux continuer à saisir : cela devrait être mieux.

- Parfois lorsque je double-clic sur la ligne affichée sur la table sur la feuille recherche...

La formule de la cellule qui affiche la boite où devrait se trouver la référence absente avait été modifiée : j'ai changé la cellule de test dans la macro et remis la formule.


Si je veux que mon bouton m'amène sur la textbox directement il me faut simplement rajouter "Feuil5.TbxRech.Activate" dans ma macro ou est-ce plus compliqué que cela ?

C'est effectivement un peu plus compliqué. Il faut effectivement activer la textbox en activant sa feuille mais il faut aussi que la textbox soit restée active lorsque sa feuille a été abandonnée. C'est pour cela que j'ai modifié tes boutons afin d'activer la box avant le départ. Si tu as cliqué sur une cellule avant le départ, c'est cette cellule qui reste active au retour même si tu actives la textbox.


http://www.cijoint.fr/cjlink.php?file=cj201109/cij8omS7n3.xlsm

C'est sûr que tes boutons avec un beau design sont beaucoup plus "class" que les liens hypertexte même si l'on avait peaufiné un peu l'esthétique.
Bon test et bonne nuit.

Bonsoir tout le monde,

Et bien, j'ai joué un peu avec par curiosité, c'est un outil complet maintenant.
Et ta question de départ était j'ai un problème avec recherchev() :-)
Peut-être même que du coup tu vas au boulot avec un léger sourire ! ;-)

A+
eric

Bonjour à vous les Big Boss !

C'est sûr que cet outil me facilite grandement la vie :
- Plus besoin de rechercher physiquement dans les boites pour vérifier la présence d'un document
- On sait maintenant directement dans quelle boite chercher.
- Lors de la saisie des nouveaux numéros, ne pas avoir à taper la date ni le N° de boite à chaque fois nous fait gagner du temps.
- Pour les graph, la feuille Stats est très pratique, tout est déjà classé et trié.
- Le repérage et le traitement des doublons est devenu indispensable.


@ GBinforme :
- Pour ce qui est de la disparition de la TextBox voici l'exemple en image :
https://imageshack.com/
En effet cela se produit si j'ai sélectionné une autre cellule avant de changer de feuille. Ensuite lorsque je clique sur le bouton "Rechercher" depuis une autre feuille, la Textbox n'est plus visible mais bien présente. Il suffit d'écrire quelque chose pour la voir se matérialiser immédiatement. Ce n'est vraiment pas un bug gênant étant donné qu'il n'empêche en rien d'utiliser l'outil de recherche.

- La saisie dans la TextBox est beaucoup mieux maintenant. Rien à redire là dessus.

- En effet, j'avais modifié la formule de C1 parce que je voulais voir s'afficher le N° de boite même si le N° de document recherché était présent dans la table. D'où le bug de l'insertion à chaque fois que je double-cliquais pour accéder à une ligne dans une table. J'aurais du remarquer que cela arrivait depuis ma modif... Mea Culpa.

- Pour ce qui est des boutons, autre l'aspect "class", l'avantage est surtout de ne pas être bloqué par un nombre de cellule, par leur largeur ou par une police particulière. Après j'orai pu coller des belles images et leur attribuer des macro ou des liens hypertexte... Que c'est bon d'avoir le choix !

Je sens que l'on arrive au bout de ce qu'il était nécessaire de faire sur ce classeur et mes remerciements vous sont encore une fois adressés pour la somme et la qualité du travail réalisé.

Mais on ne va pas se quitter comme cela, je suis en train d'élaborer un autre classeur pour tout autre chose... Je vais peut-être avoir besoin de vos lumières encore une fois... Affaire à suivre ! ;-)

Mike.

bonsoir MikeThe7,

- Pour ce qui est de la disparition de la TextBox voici l'exemple en image

Si tu as pris toutes les modifs du dernier classeur cela ne se produit plus.

Si c'est encore le cas il te manque des modifications ou tu fais une manipulation particulière que je ne teste pas : donnes nous le cheminement précis.

Pour avoir ton écran, la seule manière trouvée, c'est de cliquer sur "recherche" et effectivement tu peux supprimer le test que j'ai copié par erreur dans "Go_Recherche" (les 3 premières lignes).

Bonjour GBinforme et Eric,

Pour la disparition c'est simple :
- Je prends le dernier classeur que tu m'as fourni
- Je suis sur la feuille Recherche
- Je tape un N° dans la TextBox
- Je sélectionne une cellule sans double-cliquer dessus
- Je change de feuille par l'outil "Choix de feuille" ou par les onglets en bas de feuille
- Je clique sur le bouton "Rechercher" ou je retourne sur la feuille "Recherche" par l'outil "Choix de feuille"
- Et la, visuellement, la TextBox a disparu sauf les 3 derniers N° qui restent visibles sur fond blanc.

Cela ne se produit pas si je double-clic sur la feuille recherche pour aller à une ligne spécifique dans une table.

Autre chose j'ai du créer la feuille "4" pour les étiquettes en 4000...
L'outil "Choix de feuille" fonctionne très bien et s'est mis à jour automatiquement.
Par de soucis non plus pour entrer des nouveau N° sur la table, en tapant 5631 on obtient bien 4000005631.
Par contre lorsque je veux insérer un nouveau numéro par l'outil de recherche, en mettant 4/5631, il va se coller en fin de feuille 3.
=> Pour ce problème là, laisse moi chercher un peu, je vais voir si je ne trouve pas la solution tout seul.

A bientôt, Mike.