Ecrire formule "if" dans celulle Résolu/Fermé

Question

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

melanie1324 · Answer

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

viclaet · Answer

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

melanie1324 · Answer

Bonjour,

Il faut enlever les [ pour que la cellule soit fixe

Ecrire formule "if" dans celulle

3 réponses

Discussions similaires