Discussion :

[popi33370]

Bonjour,

Malgré des heures à chercher sur les forums et essayé diverses solutions, je n'arrive toujours pas à affecter une formule à une cellule car j'ai toujours l'erreur d'exécution 1004 : erreur définie par l'application ou par l'objet

Voici le code :

Code :

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

1
2
3
 
TEXTE = "=ARRONDI(D" & L & "*E" & L & ";2)"
Worksheets(LP).Cells(L, 6).Formula = TEXTE

le but étant d'affecter la formule =ARRONDI(D4*E4;2) où L est le numéro de la ligne

D'avance merci pour votre aide

[Philippe Tulliez]

Bonjour,
Lorsque tu utilises, la propriété Formula, tu dois traduire les formules en anglais soir "=ROUND(D4*E4,2)"
Pour ma part voila ce que je fais lorsque j'utilise une boucle pour adapter la référence à la ligne.

Code :

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

1
2
3
4
5
Dim myFormula As String, r As Long
myFormula = "=ROUND(D<&>*E<&>,2)"
For r = 2 To 10
  Range("F" & r).Formula = Replace(myFormula, "<&>", r)
Next

[popi33370]

Il y avait effectivement 2 pbs :
- ROUND au lieu de ARRONDI
- et la manière d'intégrer la variable dans la formule et ton astuce de replace lors de l'affectation fonctionne

Merci beaucoup !