FormulaR1C1 Problème variable par rapport à la valeur d'une cellule
Salut, je cherche depuis un moment mais je ne trouve pas comment faire. J'aimerais remplacer C" & 1 + variable_calendrier & " par C " address d'une cellule " pour que la formule qui s'écrit dans la cellule change lorsque la cellule cible change sans relancer le code. J'ai tenté avec INDIRECT mais je pense que je n'ai pas la bonne facon de l'écrire. Si quelqu'un à une idée. (Le but étant vraiment d'avoir une formule dont la colonne dépend de la valeur d'une cellule est qui me permettent de l'adapter en fonction d'elle sans relancer un code vba par un event _change)
Code:
1
2
3
4
5
6
7
8
9
10
11
|
For Each cell In Range(Cells(i, 2), Cells(i, 2 + 30))
If Cells(1, 1).Value > 0 Then
cell.FormulaR1C1 = "=if('" & Sheets(j).name & "'!R[" & lign_form & "]C" & 1 + variable_calendrier & "="""","""",""C"")"
cell.Interior.ColorIndex = 24
If cell.Value = "C" Then
cell.Interior.ColorIndex = 3
End If
End If
ligne = ligne + 1
Next |
