Traduire une macro en XLA

salut,

bare d'outils formulaire, prend le "bouton" et dessine (stp dessine moi un
bouton... ) quand tu as terminer de dessiner le bouton une boite s'ouvre
automatiquement, tu n'as qu'à choisir la macro.

--
a+
bob
nospam00-boblebob@voila.fr
(enlever nospam00-)
"Rackar" <rkarkari@gfimaroc.com> a écrit dans le message de news:
0cc101c35068$95b62930$a601280a@phx.gbl...
Bonjour,

J'ai la macro suivante que je veux executer à partir d'un
bouton dans la barre d'outils, comment faire ? :

Sub Remplacer_SUMIF()
Cells.Select
Selection.Replace What:="=SUM", Replacement:="=SOMME",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:="-SUM", Replacement:="-SOMME",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:="=IF", Replacement:="=SI",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Outil - Personnaliser - Commandes - Macros- Bouton
personnalisé

-----Message d'origine-----
Bonjour,

J'ai la macro suivante que je veux executer à partir d'un
bouton dans la barre d'outils, comment faire ? :

Sub Remplacer_SUMIF()
Cells.Select
Selection.Replace What:="=SUM",
Replacement:="=SOMME",

LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="-SUM", Replacement:="-
SOMME",

LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="=IF", Replacement:="=SI",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

.

J'ai fait cette opération, j'ai le message d'erreur
suivant :

Impossible de trouver la macro "fichier.xls!remplacer"

c'est que ta macro est introuvable, refait la.

--
a+
bob
nospam00-boblebob@voila.fr
(enlever nospam00-)
"RacKar" <rkarkari@gfimaroc.com> a écrit dans le message de news:
01b601c3506b$e4dc9550$a101280a@phx.gbl...
J'ai fait cette opération, j'ai le message d'erreur
suivant :

Impossible de trouver la macro "fichier.xls!remplacer"