Bonjour,
Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0
chiffres après la virgule" sur une formule DEJA existante (ou sur un champ
avec des formules DEJA existantes) tout en gardant la formule d'origine. ex:
"=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le
résultat.
J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi()
maFormule = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)"
End Sub
Sub arrondi() maFormule = mid(ActiveCell.FormulaR1C1,2) ActiveCell.FormulaR1C1 = "=Round((" & maFormule & "), 0)" End Sub
j-p
Hervé
Bonsoir,
Peut être ceci ?
Sub arrondi() Dim Formule As String Formule = ActiveCell.FormulaLocal Formule = Replace(Formule, "=", "") Formule = "=ARRONDI(" & Formule & ";0)" ActiveCell.FormulaLocal = Formule End Sub
Hervé.
"azur75" a écrit dans le message de news:
Bonjour, Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0 chiffres après la virgule" sur une formule DEJA existante (ou sur un champ avec des formules DEJA existantes) tout en gardant la formule d'origine. ex: "=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le résultat. J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi() maFormule = ActiveCell.FormulaR1C1 ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)" End Sub
Merci bcp pour votre aide
Bonsoir,
Peut être ceci ?
Sub arrondi()
Dim Formule As String
Formule = ActiveCell.FormulaLocal
Formule = Replace(Formule, "=", "")
Formule = "=ARRONDI(" & Formule & ";0)"
ActiveCell.FormulaLocal = Formule
End Sub
Hervé.
"azur75" <azur75@discussions.microsoft.com> a écrit dans le message de news:
67D8E392-0987-4514-8016-AE2CFAB9B5EE@microsoft.com...
Bonjour,
Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0
chiffres après la virgule" sur une formule DEJA existante (ou sur un champ
avec des formules DEJA existantes) tout en gardant la formule d'origine.
ex:
"=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le
résultat.
J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi()
maFormule = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)"
End Sub
Sub arrondi() Dim Formule As String Formule = ActiveCell.FormulaLocal Formule = Replace(Formule, "=", "") Formule = "=ARRONDI(" & Formule & ";0)" ActiveCell.FormulaLocal = Formule End Sub
Hervé.
"azur75" a écrit dans le message de news:
Bonjour, Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0 chiffres après la virgule" sur une formule DEJA existante (ou sur un champ avec des formules DEJA existantes) tout en gardant la formule d'origine. ex: "=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le résultat. J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi() maFormule = ActiveCell.FormulaR1C1 ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)" End Sub
Merci bcp pour votre aide
azur75
Merci bcp Jp Pradier ta macro fonctionne super bien. Merci de tes compétences-Jacques
Bonsoir azur75
Sub arrondi() maFormule = mid(ActiveCell.FormulaR1C1,2) ActiveCell.FormulaR1C1 = "=Round((" & maFormule & "), 0)" End Sub
j-p
Merci bcp Jp Pradier ta macro fonctionne super bien. Merci de tes
compétences-Jacques
Bonsoir azur75
Sub arrondi()
maFormule = mid(ActiveCell.FormulaR1C1,2)
ActiveCell.FormulaR1C1 = "=Round((" & maFormule & "), 0)"
End Sub
Merci bcp Jp Pradier ta macro fonctionne super bien. Merci de tes compétences-Jacques
Bonsoir azur75
Sub arrondi() maFormule = mid(ActiveCell.FormulaR1C1,2) ActiveCell.FormulaR1C1 = "=Round((" & maFormule & "), 0)" End Sub
j-p
azur75
Merci Hervé de ta réponse rapide - Jacques
Bonsoir,
Peut être ceci ?
Sub arrondi() Dim Formule As String Formule = ActiveCell.FormulaLocal Formule = Replace(Formule, "=", "") Formule = "=ARRONDI(" & Formule & ";0)" ActiveCell.FormulaLocal = Formule End Sub
Hervé.
"azur75" a écrit dans le message de news:
Bonjour, Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0 chiffres après la virgule" sur une formule DEJA existante (ou sur un champ avec des formules DEJA existantes) tout en gardant la formule d'origine. ex: "=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le résultat. J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi() maFormule = ActiveCell.FormulaR1C1 ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)" End Sub
Merci bcp pour votre aide
Merci Hervé de ta réponse rapide - Jacques
Bonsoir,
Peut être ceci ?
Sub arrondi()
Dim Formule As String
Formule = ActiveCell.FormulaLocal
Formule = Replace(Formule, "=", "")
Formule = "=ARRONDI(" & Formule & ";0)"
ActiveCell.FormulaLocal = Formule
End Sub
Hervé.
"azur75" <azur75@discussions.microsoft.com> a écrit dans le message de news:
67D8E392-0987-4514-8016-AE2CFAB9B5EE@microsoft.com...
Bonjour,
Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0
chiffres après la virgule" sur une formule DEJA existante (ou sur un champ
avec des formules DEJA existantes) tout en gardant la formule d'origine.
ex:
"=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le
résultat.
J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi()
maFormule = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)"
End Sub
Sub arrondi() Dim Formule As String Formule = ActiveCell.FormulaLocal Formule = Replace(Formule, "=", "") Formule = "=ARRONDI(" & Formule & ";0)" ActiveCell.FormulaLocal = Formule End Sub
Hervé.
"azur75" a écrit dans le message de news:
Bonjour, Comment faire pour écrire une macro qui ferait la formule "arrondi avec 0 chiffres après la virgule" sur une formule DEJA existante (ou sur un champ avec des formules DEJA existantes) tout en gardant la formule d'origine. ex: "=somme(a1:a5)" deviendrait "=arrondi(somme(a1:a5);0)" et pas seulement le résultat. J'ai essayé de faire ceci mais cela ne fonctionne pas :
Sub arrondi() maFormule = ActiveCell.FormulaR1C1 ActiveCell.FormulaR1C1 = "=Round((maFormule), 0)" End Sub
