Discussion :

[magyaddello]

Bonjour à tous,
J'ai besoin de vos lumières pour ce problème: j'ai une colonne de données (A2: A1000) et un paramètre fixe (cellule B2), je souhaite écrire dans le champ (C2:C1000) en utilisant une boucle la formule en abrégé :
For i=1 to 1000
Si (valeur de la cellule (i) dans la colonne A +B2 >=0;0;1)
next i
J'ai essayé ces deux codes distinctement mais ils ne donnent rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & i).Formula = "=IF(Range("A" & i & ").value+B2>= 0,0,1)"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & i).Formula = "=SI(" & Range("C" & i).Value & "+" & "M2" & ">=0,0,1)"

Merci de vos réponses

[mayekeul]

bonjour,

tu devrais plus faire genre ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 2 To 1000
    Cells(I, 3).Formula = "=SI(A" & I & "+ $B$2>0,0,1)"
Next I

[magyaddello]

Merci pour ta réponse mayekeul la encore ça donne des erreurs, le problème est que la formule obtenue commence par un Si (ou la lettre i est miniscule) alors qu'il faudrait qu'elle soit majuscule. Aussi ton code ne répond pas à ma question qui est d'insérer une valeur dans chaque formule pour lier au minimum les cellules
Exemple:
=SI(3,0945242+B2>0;0;1)

[TonyRc]

Salut,

Je te propose la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim a,b as variant
 
For I = 0 To 1000
    a = Cells(2 + I, 1)
    b = Range("b2").Value
 
    If a + b > 0 Then
    Cells(2 + I, 3) = 1
    Else: Cells(2 + I, 3) = 0
    End If
Next I

[mayekeul]

et en faisant cela?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 2 To 1000
    Cells(I, 3).Formula = "=IF(A" & I & "+ $B$2>0,0,1)"
Next I