Ecrire formule "if" dans celulle
Résolu
Bonjour,
Voici mon code :
For test = 1 To 5
For j = 1 to 20
Cells(4, j).Formula = "=If (Cells(4, 36+test) = 0,0,1 )"
Next j
Next test
J'ai bien compris que le problème se trouvait dans l'écriture de ma fonction "if" mais je n'ai pas réussi à trouver la syntaxe correcte sur internet.
De plus je ne veux pas utiliser un If...then car une fois la formule écrite je l'étend sur mes autres cellules.
J'espère que ce que je demande est possible.
Merci d'avance
Voici mon code :
For test = 1 To 5
For j = 1 to 20
Cells(4, j).Formula = "=If (Cells(4, 36+test) = 0,0,1 )"
Next j
Next test
J'ai bien compris que le problème se trouvait dans l'écriture de ma fonction "if" mais je n'ai pas réussi à trouver la syntaxe correcte sur internet.
De plus je ne veux pas utiliser un If...then car une fois la formule écrite je l'étend sur mes autres cellules.
J'espère que ce que je demande est possible.
Merci d'avance
3 réponses
-
bonjour,
for test = 1 To 5
For j = 1 to 20
Cells(4, j).FormulaR1C1 = "=IF(R[4]C[" & 36 + test & "]=1,1,0)"
Next j
Next test -
Super ça a fonctionné, j'ai cependant dû changer les valeurs entre crochets pour que ça corresponde mais parfait, merci beaucoup.
Comme j'ai simplifié mon programme j'aurai juste une dernière question :
Comment mettre une cellule fixe dans la formule? En effet, car si la condition est respectée je ne veux pas écrire 1 mais faire référence à une cellule qui ne changera pas en colonne tout au long de la boucle.
Cells(4, j).FormulaR1C1 = "=IF(R[0]C[" & test - 8 & "]=1,Cells(4,3),0)"
Et encore merci -
Bonjour,
Il faut enlever les [ pour que la cellule soit fixe
