Remplacer le raccourci ctrl+f par une macro
Bonjour.
J'aimerais remplacer le raccourci ctrl+f par une macro ou autre solution.
Je voudrais que dans la feuille 1 on puisse écrire un mot ou un chiffre et que la feuille contenant ce mot ou ce chiffre s'ouvre.
Merci.
J'aimerais remplacer le raccourci ctrl+f par une macro ou autre solution.
Je voudrais que dans la feuille 1 on puisse écrire un mot ou un chiffre et que la feuille contenant ce mot ou ce chiffre s'ouvre.
Merci.
12 réponses
-
Bonsoir,
Tu écris :
«Est il possible d'activer la cellule qui contient la valeur prédéfinie c'est à dire "A1 "D1" ou "E1" au lieu de la cellule "A1". »
je suppose que tu voulais dire :
«Est il possible d'activer la cellule qui contient la valeur prédéfinie c'est à dire "C1" "D1" ou "E1" au lieu de la cellule "A1". »
Voici le code pour sélectionner la cellule cible (c1, D1 ou E1)
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet If Intersect(Range("A3"), Target) Is Nothing Then Exit Sub For Each sh In Worksheets If sh.Range("C1").Value = Target.Value Then sh.Activate sh.Range("C1").Activate End If If sh.Range("D1").Value = Target.Value Then sh.Activate sh.Range("D1").Activate End If If sh.Range("E1").Value = Target.Value Then sh.Activate sh.Range("E1").Activate End If Next sh End Sub
Cordialement
Patrice. -
Bonjour,
Moi je n'y comprends rien à ce dont vous parler je suis en quelque sorte un touriste de l'informatique.
Pouver-vous me dire comment créer un bouton où lorsque l'on clic dessus on arrive a la "boite" "Rechercher" pour rechercher un mot dans un fichier excel (comme un raccourcis de "Éditon" "rechercher" ou "ctrl+7" ).
Je sais comment créer une macro et je sais créer des boutons mais lorsque j'affecte une macro à un bouton ça ne marche pas pour ce cas de figure.
Si quelqu'un voudrais bien me répondre clairement et sans trop de terme trop "informatiques" car je n'ai que 14 ans et je ne comprends encore pas tout de excel et de ses fonctionnalités.
Cordialement-
Avec quelle version d'excel ? et quel système d'exploitation (OS) ?
A ma connaissance, ctrl+7 n'est un raccourci pour Excel sous Windows (le raccourci est ctrl+F), utilise-tu un autre OS ?
Je suppose que tu n'as pas la version Excel 2007 car dans cette version le bouton recherche existe dans le bandeau accueil, il n'y a donc aucun intérêt a mettre un bouton identique sur la feuille.
De même, pour les versions antérieures, il n'est pas utile de l'ajouter sur une feuille.
Le bouton existe aussi (jumelles) mais il n'est pas dans les barres d'outils d'origine.
Il suffit de l'y ajouter :
Clic droit dans la zone des barres d'outils, personnaliser,
onglet Commandes, catégorie : édition, chercher le bouton dans la fenêtre Commandes,
Glisser-déplacer le bouton vers la barre d'outils standard ou la barre d'outils mise en forme. -
Bonjour,
J'ai Excel 2003 sur Windows XP
Finalement je ne comprends rien, même mon prof de techno n'y arrive pas.
Est ce que quelqu'un voudrai bien m'insérer un bouton avec comme macro affectée: un accès direct à la boite de dialogue "rechercher"
Je vous envoie mon fichier par mail. mon adresse mail spécialement pour ça: macrorechercher@gmail.com
Envoyez moi un mail puis je vous répondrai avec le fichier joint au mail.
D'avance merci
Charles -
-
-
Pas très clair tout ça !
Il faudrait être précis dans la question, on n'est pas devin, avec quel logiciel ?
Je viens de répondre à une question similaire pour Excel :
https://forums.commentcamarche.net/forum/affich-19583742-macro-de-recherche
Mais ce n'est peut-être pas ce que te cherches -
Je suis désolé, j'ai oublié de mettre le logiciel
C'est pour excel
J'ai de nombreuses feuilles dans un même classeur et j'aimerais que si on saisie un nombre dans une cellule de la première feuille, que la feuille qui contient ce nombre s' ouvre automatiquement sans avoir à se servir de ctrl+f, car ce classeur va être utilisé par plusieurs personnes . -
C'est pour atteindre une feuille avec une valeur prédéfinie
-
Bonjour,
Tu peux adapter le même code que dans le post précité :
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet If Intersect(Range("A3"), Target) Is Nothing Then Exit Sub For Each sh In Worksheets If sh.Range("C1").Value = Target.Value Then sh.Activate sh.Range("A1").Activate End If Next sh End Sub
La valeur prédéfinie doit se situer en C1 de chaque feuille.
La cellule qui permet de lancer la recherche est A3 de la première feuille.
Patrice -
Super ça marche
Merci beaucoup. -
Merci ça marche
Est il possible d' avoir plusieurs valeurs prédéfinies, par exemple en C1 D1 et E1?-
Tu souhaite identifier chaque feuille par 3 identifiants différents en C1, D1 ou E1 ?
C'est à dire que tu saisis une des trois valeurs et on atteint cette feuille
Je n'en vois pas trop l'intérêt mais voici le code :
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet If Intersect(Range("A3"), Target) Is Nothing Then Exit Sub For Each sh In Worksheets If sh.Range("C1").Value = Target.Value or _ sh.Range("D1").Value = Target.Value or _ sh.Range("E1").Value = Target.Value Then sh.Activate sh.Range("A1").Activate End If Next sh End Sub
Patrice
-
-
Bonjour.
C'est bien ce que je voulais.
En fait je vais avoir de très nombreuses feuilles avec 4 fiches par feuille et je veux pouvoir retrouver une de ces fiches facilement.
Un grand merci.
Loglog -
Encore une question si ce n'est pas trop abuser.
Est il possible d'activer la cellule qui contient la valeur prédéfinie c'est à dire "A1 "D1" ou "E1" au lieu de la cellule "A1".
Merci
Loglog -
Un grand merci.
Loglog -
D'accord merci beaucoup Patrice33740
