Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Après plusieurs essais infructueux... Je suis de retour.
Je penses que je ne parviens pas à trouver le bon emplacement pour insérer le code...
Il doit y en avoir en enlever aussi...
Quelqu'un a-t-il testé ou a-t-il une idée ? Sylvanu ?
Bonsoir,
J'imagine dans quel état doit se trouver mon fichier :)
Avant que je massacre le mien, je voudrais être sûr d'insérer les lignes de code au bon endroit.
♫ "Sweet Child in time
You'll see the line" ♫ "Je vais voir la ligne" (Trop fort !) :)
- Pour le 1er point...
Bonjour,
J'ai un souci avec mon fichier de base de données avec fonction de recherche de mot dans un formulaire.
(Le fichier est épuré, je n'ai laissé qu'une trentaine de lignes. Ce sont ici des disques, j'ai la même chose pour des livres et autres, plusieurs centaines de lignes selon...)
Il...
Merci.
J'ai inclus les "espions" dans mon fichier "test". (cf. fichier joint).
Ça a l'air correct, sauf le 1er résultat qui sort pour chaque feuille (avec erreur de sélection de cellule).
Et j'ai rajouté un mot clé à rechercher ("nuit") en colonne D, E et F, et les cellules sortent quand même...
Je vais me vexer :)
Voilà donc la totalité du code de cette procédure, où je n'ai modifié qu'une instruction.
Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String
Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then...
Alors j'ai vérifié, c'est pourtant bien ce qui se passe.
En réécrivant "Cells" à la place de la plage de données, j'ai bien la recherche qui se fait sur toutes les cellules, et les autres colonnes, et également sur la feuille en cours.
Lorsque je modifie et que je remplace par...
Bonjour,
Merci pour le retour.
J'ai tenté ceci (suppression de "Cells", et ajout de la plage des colonnes B et C):
For Each Sh In ThisWorkbook.Worksheets
Set c = Sh.Range("B2:C200").Find(Nom, LookIn:=xlValues, LookAt:=xlPart) 'xlpart = partie du nom et xlwhole = casse exacte...
Bonjour à tous,
J'ai retrouvé un bout de code ci-dessous, qui fonctionne, et qui permet de rechercher un mot dans toutes les feuilles d'un classeur.
Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String
Nom = InputBox("Nom à chercher dans toutes les...
Bonjour.
@BOISGONTIER
Merci pour votre retour. J'avais écumé votre site sans tomber sur ceux-là. :)
Ils sont très complets (avec plein d'options auxquelles je n'avais pas songé, peut-être trop pour moi :) ).
Je vais étudier votre code et tenter de l'adapter selon mes besoins.
(@Bebere : j'ai...
Bonjour à tous,
Me voilà de retour avec mon fichier de recherche et de tri de livres (je pensais en avoir terminé :) )
Je vais avoir plus de temps à passer sur le forum... Comme tout ceux qui devront rester à la maison...
Je me suis aperçu d'un fonctionnement erratique sur la recherche par...
@mapomme
Merci beaucoup pour ce document !!
C'est exactement le genre d'explications que je recherchais, claires et détaillées.
Je vous remercie encore pour votre temps.
Sincèrement.
Bon week-end (et à bientôt :) )
Ok. Merci.
C'est l'utilisation de UBound dans la boucle que je ne saisis pas.
Je crois comprendre que t définit la plage de cellules, et UBound la valeur la plus grande de cette plage.
Comment s'effectuent la recherche et la sélection avec la boucle.
En gros tout le code qu'il y a après les...
Bonjour @mapomme,
Merci pour votre retour.
Effectivement, ça fonctionne de cette façon !
Je voudrais juste vous demander quelques commentaires sur ce code si vous avez le temps, afin que je puisse mieux le comprendre, et après je ne vous embête plus :)
Bonjour à tous,
Je reviens vers vous avec mon projet (j'ai changé le titre de la discussion).
J'ai sélectionné et/ou fusionné une partie des différents codes que vous m'avez conseillés, et j'arrive à peu près à toutes les fonctions que je désirais.
(L'utilité de ce que je recherche peut ne pas...
Bonjour à tous,
Je reviens vers vous avec mon projet.
J'ai sélectionné et/ou fusionné une partie des différents codes que vous m'avez conseillés, et j'arrive à peu près à toutes les fonctions que je désirais.
J'ai rajouté un Textbox de recherche par auteur (le 1er étant par titre).
Le point qui...
Désolé. Je me suis un peu embrouillé dans ce que je recherche. Beaucoup d'infos pour mon cerveau :)...
En fait, je souhaiterais garder l'ordre de saisie initial dans la colonne B, mais que l'ordre alphabétique ne soit déclenché que dans les résultats de la ListBox (comme dans l'avant-dernier...
Excellent.
Je n'y avais pas pensé à l'ouverture du UserForm.
Votre code est du coup très différent de celui que j'avais trouvé (connu sous le type "bubble" selon les sources).
En adaptant le votre, je pense qu'il va être possible de revenir dans l'ordre initial (de la 1ère à la dernière...
Merci beaucoup pour ces précisions ! Je me cale ça dans un coin pour tester.
@JM27
A quel moment dois-je faire intervenir le tri ? Pour l'instant il est sur un bouton de commande.
Avant quoi faut-il le placer dans le code ? J'ai essayé plusieurs choses sans succès.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.