Probleme pour ecrire une formule

bonjour,

Je suis en train d'essayer de créer une marco qui ajoute une formule dans une colonne. cette formule est un simple pourcentage. la voici (pour la colone J):
=J12/(J13+J12)

Ma macro doit inserer cette formule dans plusieurs colonnes. La lettre J va donc changer mais les numeros des ligne eux ne changeront pas. Je sais sur quel colonne je suis grace a l'integer i qui me donne le numero de la colonne.

J'ai tout d'abord cré une fonction qui me retourne la Lettre de la colonne correspondant au numero de colonne. voila ce que ca donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function LettreColonne(NumCol As Integer) As String Dim reste, quotient As Integer quotient = Int(NumCol / 26) reste = NumCol Mod 26 If quotient = 0 And reste = 0 Then Exit Function End If If quotient = 0 Then LettreColonne = Chr(64 + reste) Else If reste = 0 Then quotient = quotient - 1 If quotient = 0 Then LettreColonne = Chr(64 + 26) Else LettreColonne = Chr(64 + quotient) & Chr(64 + 26) End If Else LettreColonne = Chr(64 + quotient) & Chr(64 + reste) End If End If End Function

---

Voici comment j'implemente ma macro:

Code:

---

1 2 3 4 5 6

'Mettre % disponible /ex: "=J12/(J13+J12)" Cells(14, i).Select Lettre = LettreColonne(i) Formule0 = "=" & Lettre & "12/(" & Lettre & "13+" & Lettre & "12)" ActiveCell.FormulaR1C1 = Formule0

---

Je veux que à la ligne 14 colonne i, il y a la formune "=J12/(J13+J12)" mais pas pour J. A la place de J je veux la lettre correspondant a la colonne i.
J'espere etre suffisament claire. :?

En fin bref quand j'execute ma macro j'obtiens la formule:
='L12'/('L13'+'L12')

La lettre est correcte mais il s'est glisser des ' ', ce qui fait que ma formule ne marche pas. J'ai donc deux questions:
- Pk des ' ' ceux sont glissés dans ma formule?
- Comment faire pour les enlever?

Merci d'avance :)

Moi j'utiliserais plutot le copy qui mettra tout seul les bonnes lettres

Code:

---

1 2 3 4 5

Range("N2").FormulaLocal = "=J2/(J2+J2)" Range("N2").Copy Range("N3:N" & i).Select Selection.PasteSpecial

---

Merci Jfontaine d'avoir repondu a ma question.

Cependant j'avoue que je comprends pas tres bien ton code:

Code:

---

1 2 3 4 5

Range("N2").FormulaLocal = "=J2/(J2+J2)" Range("N2").Copy Range("N3:N" & i).Select Selection.PasteSpecial

---

Pour moi, avec ce code tu mets la formule "=J2/(J2+J2)" dans la cas N2
puis tu la copie dans la case N3 jusqu'a la ligne i:
-Pour N3 on aura la formune "=J3/(J3+J3)"
-Pour N4 on aura la formune "=J4/(J4+J4)"
-un si de suite jusqu'a la ligne i

Or moi i ne represente pas une ligne mais une colonne.
Par exemple, si i vaut 7 ca veut dire qu'il faut que je mette ma formule a la colonne "L", ligne 14 (Ligne 14 est toujours fixe pour mon application)

J'ai trouvé dans un forum une fonction qui permet de faire la conversion de la colonne i qui est chiffre en lettre grace a la fonction LettreColonne()

Re-voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function LettreColonne(NumCol As Integer) As String Dim reste, quotient As Integer quotient = Int(NumCol / 26) reste = NumCol Mod 26 If quotient = 0 And reste = 0 Then Exit Function End If If quotient = 0 Then LettreColonne = Chr(64 + reste) Else If reste = 0 Then quotient = quotient - 1 If quotient = 0 Then LettreColonne = Chr(64 + 26) Else LettreColonne = Chr(64 + quotient) & Chr(64 + 26) End If Else LettreColonne = Chr(64 + quotient) & Chr(64 + reste) End If End If End Function

---

Et re-Voila comment j'implemente ma macro:

Code:

---

1 2 3 4 5 6

'Mettre % disponible /ex: "=J12/(J13+J12)" Cells(14, i).Select Lettre = LettreColonne(i) Formule0 = "=" & Lettre & "12/(" & Lettre & "13+" & Lettre & "12)" ActiveCell.FormulaR1C1 = Formule0

---

Je veux que à la ligne 14 colonne i, il y a la formune "=J12/(J13+J12)" mais pas pour J. A la place de J je veux la lettre correspondant a la colonne i.

Quand j'execute ma macro pour i=7 (7-->L) j'obtiens la formule:
='L12'/('L13'+'L12')

La lettre est correcte mais il c'est glisser des ' ', ce qui fait que ma formule ne marche pas.

C'est assez bizzard comme erreur car les ' ' ne se sont pas glissé au niveau de la lettre. Je veux dire que je n'obtiens pas la formule:
='L'12/('L'13+'L'12)
Auquel cas ca aurait voulu dire que j'ai une erreur dans fonctionLettre().
Mais c'est pas le cas puisque j'ai en retour la formule:
='L12'/('L13'+'L12')
On dirait que vba me rebidouille ma chaine de caractaire pour faire une formule qui marche pas...
Quelqu'un a deja eu ce genre de probleme? Comment faire pour enlever les ' '?
Ou alors comment faire pour ecrir cette formule d'une autre manière (sachant que j'ai la colonne par un entier i)?

:help:

utilise formulalocal a la place de formular1c1

Oui ca marche!

Merci :P

Salut, Dereck et Jérome

Déreck, je te remercie grandement, parce que ne sachant pas comment définir moi même une fonction, j'étais bloqué depuis un moment !:lol:
Donc çà, c'est cool !

Par contre, moi je n'arrive pas à faire fonctionner le tout

Voià mon code (enfin une partie !!)

Code:

---

CellCoura.OffSet(3, 1).FormulaLocal = "=Traitement!L24*Produit" & p & "!" & LettreColonne(4 * i - 1) & "6"

---

(erreur défine par l'application ou par l'objet)

Ou faut-il écrire la fonction LettreColonne ? Dans la macro, ou à l'extérieur. Dans quel piège suis-je tombé ?

est ce que a un moment donné ta lettre ne pourrait pas (avec ta formule) etre inférieur a 1? si i =0 par exemple

Exact ! Je me suis planté dans le comptage de mes indices. En remplaçant -1 par +3, je n'ai plus de souci.
Bien vu Jérome, et merci (doublement...) pour le temps que tu passes à m'aider !