Inserer une formule "MROUND" via VBA

Version imprimable

Bonjour,

Je suis en train de m'arracher les cheveux.
Je souhaite insérer une formule via VBA de type ARRONDI.AU.MULTIPLE.

J'ai donc écris:
Code:

1 2 3 Dim Colonne_Lettre As String Colonne_Lettre = Split(Cells(1, Cell.Column).Address, "$")(1) 'Je définis en lettre la colonne ou je me trouve Sheets("Feuil1").Range("F20").Formula = "=MROUND('Feuil2'!" & Cell.Column & "32*'Don. Tech.'!" & Cell.Column & "37*3;100)" ' J'arrondi au multiple un produit de deux cellules.
je ne comprends pas surtout que le code suivant fonctionne:

Code:

Sheets("Feuil1").Range("F20").Formula = "='Feuil2'!" & Colonne_Lettre & "36"

avez vous une idée pour corriger mon problème ?

Merci !

11/09/2020, 14h22
Jean-Philippe André

Bonjour,

pour comprendre les choses qui manqueraient à ton code, tu as une solution simple : l'enregistreur de macros.

En effectuant la même manipulation, tu obtiendras le code, et tu constateras que le séparateur des parametres dans les formules VBA est la virgule.

Si tu veux absolument garder la virgule, tu pourras passer par FormulaLocal, mais il faudra alors utiliser le nom de la fonction en Français :)
11/09/2020, 14h23
PowerOfSun

D'après le post de Eric KERGRESSE ma formule était incorrect.
le séparateur est une virgule au lieu de point virgule.
j'ai corrigé mais cela ne fonctionne toujours pas.. :?
11/09/2020, 14h25
PowerOfSun

Citation:

Envoyé par Jean-Philippe André

Bonjour,

pour comprendre les choses qui manqueraient à ton code, tu as une solution simple : l'enregistreur de macros.

En effectuant la même manipulation, tu obtiendras le code, et tu constateras que le séparateur des parametres dans les formules VBA est la virgule.

Si tu veux absolument garder la virgule, tu pourras passer par FormulaLocal, mais il faudra alors utiliser le nom de la fonction en Français :)

Bonjour,

Mon second post est arrivé en même temps que le votre.
j'ai corrigé, cependant j'ai toujours une erreur. :/
11/09/2020, 14h27
Jean-Philippe André

Pour poursuivre les pistes, lorsque tu écris la formule, tu peux effectuer un Debug.Print de son contenu,

tu verras maintenant que Cell.Column te renvoie une valeur numérique, et non une lettre (correct ?)
11/09/2020, 14h33
PowerOfSun

Citation:

Envoyé par Jean-Philippe André

Pour poursuivre les pistes, lorsque tu écris la formule, tu peux effectuer un Debug.Print de son contenu,

tu verras maintenant que Cell.Column te renvoie une valeur numérique, et non une lettre (correct ?)

Mais n'importe quoi moi. je le savais en + et j'ai même créer une petit code pour le transformer en Lettre...
merci pour ton aide ! des fois j'ai besoin de lever la tête pour m'apercevoir de mes bêtises ;)
11/09/2020, 15h55
PowerOfSun

autre question,

je souhaite faire la formule suivante:

Code:

Sheets("Feuil1").Range("A1").Formula = "=" & """" & "Texte " & """" & "'Feuil2'!" & Colonne_Lettre & "30" ' colonne_Lettre étant la colonne en lettre

je suis perdu avec la quantité de Guillemet..

merci pour votre aide
11/09/2020, 16h38
Jean-Philippe André
As-tu essayé ceci ?

Citation:

Envoyé par Jean-Philippe André

Pour poursuivre les pistes, lorsque tu écris la formule, tu peux effectuer un Debug.Print de son contenu,

passe par un
Code:

1 2 3 dim strFormule as string strFormule = "=" & """" & "Texte " & """" & "'Feuil2'!" & Colonne_Lettre & "30" ' colonne_Lettre étant la colonne en lettre Debug.Print strFormule
et constate l'écart entre attendu et obtenu.
11/09/2020, 16h53
PowerOfSun

merci cela m'a permis de trouver la technique est vraiment bie,.
il manquait un "&"

merci beaucoup !

Bonjour,
Pour éviter une suite de concaténation et se perdre avec les guillemets, j'utilise une autre technique

Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub t()
  Dim Cell_1 As Range
  Dim Cell_2 As Range
  Dim FormulaText As String
  '
  With ThisWorkbook
   Set Cell_1 = .Worksheets("Feuil2").Range("A6")
   Set Cell_2 = .Worksheets("Feuil3").Range("D1")
  End With
  '
  FormulaText = "=MROUND([C1] * [C2],100)" ' J'arrondi au multiple un produit de deux cellules.
  ' Remplacement des balises par les valeurs
  FormulaText = Replace(FormulaText, "[C1]", Cell_1.Address(External:=True))
  FormulaText = Replace(FormulaText, "[C2]", Cell_2.Address(External:=True))
  ' Ecriture de la formule
  ThisWorkbook.Worksheets("Feuil1").Range("A5").Formula = FormulaText
  '
  Set Cell_1 = Nothing: Set Cell_2 = Nothing
End Sub

Explication détaillée dans ces deux billets