Maccro qui ouvre l'option rechercher et selectionner
Résolu
Torre
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous demande votre aide pour créer une maccro qui ouvre l'option rechercher de la parti rechercher et selectionner (qui se trouve dans le ruban acceuille).
Je voudrais que lorsque l'on clique sur le bouton, l'option rechercher de rechercher et selectionner s'active.
Pourriez vous m'aider s'il vous plaît ?
Cordialement
Je vous demande votre aide pour créer une maccro qui ouvre l'option rechercher de la parti rechercher et selectionner (qui se trouve dans le ruban acceuille).
Je voudrais que lorsque l'on clique sur le bouton, l'option rechercher de rechercher et selectionner s'active.
Pourriez vous m'aider s'il vous plaît ?
Cordialement
A voir également:
- Maccro qui ouvre l'option rechercher et selectionner
- Rechercher ou entrer l'adresse - Guide
- Rechercher et remplacer word - Guide
- Option d'ergonomie - Guide
- Rechercher image - Guide
- Rechercher une chanson - Guide
4 réponses
Bonjour
Rechercher étant accessible par le raccourci CTRL+F il suffit d'une ligne de macro pour simuler cette frappe :
SendKeys ("^f")
Cdlmt
Via
Rechercher étant accessible par le raccourci CTRL+F il suffit d'une ligne de macro pour simuler cette frappe :
SendKeys ("^f")
Cdlmt
Via
Bonjour a vous deux,
'avec selection Regarder
Sub tets()
Application.Dialogs(xlDialogFormulaFind).Show , 1 'formules
Application.Dialogs(xlDialogFormulaFind).Show , 2 'valeurs
Application.Dialogs(xlDialogFormulaFind).Show , 3 'commentaires
End Sub
'avec selection Regarder
Sub tets()
Application.Dialogs(xlDialogFormulaFind).Show , 1 'formules
Application.Dialogs(xlDialogFormulaFind).Show , 2 'valeurs
Application.Dialogs(xlDialogFormulaFind).Show , 3 'commentaires
End Sub
c'est le code VBA exact, il n'y a que cela à marquer dans la macro Sub associée au bouton (Clic droit sur le bouton Visualiser le code et mettre la ligne indiquée précédemment entre Sub et End sub
Sub rechercher()
Application.SendKeys ("^f")
DoEvents
End Sub
Merci beaucoup pour ton aide sans toi je n'aurais jamais eu l'idée d'uliser un sendkeys, merci beaucoup