Discussion :

[lucasgaetan]

Bonjour,

je souhaite pouvoir exécuter la procédure ci-dessous sur n'importe quel classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Ctrl_H()
   Cells.Replace What:="£", Replacement:=ChrW(&H2264), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

elle consiste à remplacer tout les caractères £ en =<
Existe-t-il un moyen de créer une procédure externe qui s’exécute sur le classeur actif ?

Le problème est que ce n'est pas moi qu'il l’exécutera,(j'en aurais pas eu besoin) mais vue que certains utilisateurs ne connaissent pas (ou ne veulent pas) « Rechercher remplacer » (Ctrl + H) et encore moins l'insertion de symbole....
donc il faudrait un truc simple du genre un bouton sur le bureau ou autre... une sorte d’exécutable.
Nous sommes tous en réseau, ce "bouton" peut être installer sur chaque poste sans problème

je suis équipé de Visual Studio au besoin.
toutes les pistes seront les bien venu car là je sèche

Merci

[Invité]

Bonjour,

Le fichier joint contient une macro complémentaire RemplacerSymbole.xlam où j'ai placé votre macro.

Pour l'installation :

• Fermer Excel.
• Placer la macro dans C:\Users\XXXX\AppData\Roaming\Microsoft\AddIns.
• Réouvrir Excel et dans Options Compléments, cocher la macro complémentaire.

[Menhir]

Voir ma réponse ici : https://www.developpez.net/forums/d1...e/#post9634072

[lucasgaetan]

Bonjour,

Merci à tous deux, vos solutions sont exactement ce que je voulais.

a+