Insertion de formule en utilisant une macro

Bonjour à tous, je souhaiterais écrire dans une cellule donnée le code suivant :

Code:

---

=SI(Ax="";"";Coefficients!$C$1)

---

En sachant que x est la ligne de la cellule et Coefficients une feuille de calcul contenue dans le même tableur. J'ai essayé ce code dans une cellule et celui-ci fonctionne.

Seulement, je souhaiterais le réaliser sur l'ensemble des cellules. Je réalise donc une macro avec le code suivant :

Code:

---

1 2 3 4 5

Sub init() For A = 6 To 65536 Cells(A, 23).Value = "=SI(A" & A & "=" & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";" & Chr(34) & "Coefficients!$C$1)" Next A End Sub

---

Toutefois, il m'affiche une erreur lors de la lecture de la ligne contenant la commande Cells. Est-ce que l'un d'entre vous pourrait m'apporter son aide ?

En vous remerciant par avance.

Bonjour,


remplace le .value par .FormulaR1C1

plus simplement tu as aussi ça

Code:

---

1 2 3 4 5

Sub main()   Range("R6:R65536").FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)"   End Sub

---

ou encore ça:

Code:

---

1 2 3 4

Sub main2() Application.Range(Cells(6, 23), Cells(65536, 23)) _ .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)" End Sub

---

Dans le cas où tu ajoutes une colonne de calcul en 23ème colonne d'une base de données (attention compter 1 à partir de la première colonne) dont une des cellules est A1, et ne comportant qu'une ligne d'en tête. la base doit aussi comprendre au moins 23 en têtes minimum:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub main3()   Dim plage As Range Set plage = Range("A1").CurrentRegion With plage Application.Range(.Cells(2, 23), .Cells(.Rows.Count, 23)) _ .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)" End With   End Sub

---

Enfin une petite dernière en précisant la feuille sur laquelle il faut opérer:

Code:

---

1 2 3 4 5 6 7

Sub Main4() Dim plage As Range Set plage = Worksheets("MA FEUILLE").Range("A1").CurrentRegion With plage Application.Range(.Cells(2, 23), .Cells(.Rows.Count, 23)) _ .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)" End With

---

End Sub


Bon code!!

Salut.

Perso, je n'aime pas le .formulalocal parce qu'en cas d'utilisation sur une autre version linguistique d'excel => bug.

Une bonne manière d'insérer une formule dans un code VBA est de la créer en Excel puis de la récupérer en VBA.

J'ai donné tout à l'heure cette réponse dont tu peux t'inspirer.

Cela étant, utiliser une formule sur les lignes 6 à 65536 va bouffer des ressources. Tu as intérêt à délimiter ta plage avec plus de précision.

Merci beaucoup à tous.