excel

[domi et minouche]

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.

Modifié le 29 octobre 2010 par domi et minouche

[leminou]

Bonjour,

 

Execel, c'est loin chercher création d'un bouton macro qui lancerait une recherche ?

[domi et minouche]

J'ai cherché, mais pas trouvé

[leminou]

Bonjour,

 

J'ai cherché, mais pas trouvé

En tapant F1 dans Excel ?

 

Ajout de boutons, de cases à cocher ou d'autres contrôles dans une feuille de calcul

Microsoft Excel vous permet d'ajouter des contrôles à une feuille de calcul de deux manières. Les contrôles ActiveX de la barre d'outils Boîte à outils Contrôles vous permettent de créer des contrôles personnalisés et des événements de contrôle. Les contrôles de la barre d'outils Formulaires sont destinés aux macros Excel existantes.

...//...

Automatisation d'une tâche Microsoft Excel à l'aide d'un contrôle ActiveX

Vous pouvez automatiser une tâche à l'aide d'un contrôle ActiveX en écrivant une macro pour le contrôle. Pour plus d'informations sur l'écriture de macros, consultez l'Aide de Visual Basic.

 

Pour créer une macro pour un contrôle ActiveX sur une feuille de calcul ou un formulaire, assurez-vous que la barre d'outils Commandes est affichée. Pour afficher la barre d'outils Commandes, dans le menu Affichage, pointez sur Barres d'outils, puis cliquez dans la barre d'outils Commandes.Cliquez sur le bouton Mode Création .

 

Pour écrire une nouvelle macro ou modifier la macro pour le contrôle, cliquez à l'aide du bouton droit sur le contrôle, puis sur Code dans le menu contextuel.

 

Dans Visual Basic Editor, écrivez la macro.

 

Lorsque vous avez fini d'écrire la macro, dans le menu Fichier, cliquez sur Fermer et retourner à Microsoft Excel.

 

Lorsque vous avez fini de créer le contrôle, cliquez sur le bouton Mode création .

Excel v 2000

[domi et minouche]

C'est bon j'ai trouvé sur un autre site

Voila la macro:

 

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.

 

 

Merci

[leminou]

Si tu peux éditer ton premier message et ajouter [Résolu] dans le titre et sauver...