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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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