Discussion :

[PowerOfSun]

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 :

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

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 :

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

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

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

Merci !

[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

[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..

[PowerOfSun]

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. :/

[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 ?)

[PowerOfSun]

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

[PowerOfSun]

autre question,

je souhaite faire la formule suivante:

Code :

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

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

[Jean-Philippe André]

As-tu essayé ceci ?

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

passe par un

Code :

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

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.

[PowerOfSun]

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

merci beaucoup !

[Philippe Tulliez]

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

Exemple

Code :

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

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

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?