Inserer une variable dans une formule (VBA)

Bonjour,

J'ai un petit souci, pourriez-vous m'aider, svp ?

Je cherche a modifier la formule d'une cellule, pour qu'elle renvoit une valeur d'une autre feuille du classeur (la feuille "calcul"). Cependant, en inserant une variable (la variable increment) dans la formule, ca ne marche pas. Et je ne sais pas pourquoi.

Sub Macro1()
    Dim ligne As Single
    Dim colonne As Single
    Dim increment As Single
    For ligne = 5 To 27
        For colonne = 3 To 27
            Cells(ligne, colonne).Select
                ActiveCell.Formula = _
                    "=IF(Calcul!R6Cincrement<>0,Calcul!R6Cincrement,"""")"
            ActiveCell.Offset(1, 0)
                ActiveCell.Formula = _
                    "=IF(Calcul!R7Cincrement<>0,Calcul!R7Cincrement,"""")"
            ActiveCell.Offset(-1, 0)

increment = increment + 1

colonne = colonne + 2

Next

ligne = ligne + 4

Next

End Sub

Auriez-vous une idee ?

Merci d'avance

Bonjour

Il faut séparer ta variable increment de la formule

        ActiveCell.Formula = _
                    "=IF(Calcul!R6C" & increment & "<>0,Calcul!R6C" & increment & ","""")"

Si pas ça