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