Ecrire formule "if" dans celulle

Résolu
viclaet Messages postés 3 Statut Membre -  
viclaet Messages postés 3 Statut Membre -
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
A voir également:

3 réponses

melanie1324 Messages postés 1561 Statut Membre 155
 
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
0
viclaet Messages postés 3 Statut Membre
 
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
0
melanie1324 Messages postés 1561 Statut Membre 155
 
Bonjour,

Il faut enlever les [ pour que la cellule soit fixe
0
viclaet Messages postés 3 Statut Membre
 
C'est bon tout fonctionne!
Merci t'es au top :)
0