boucle "for " en vba

Question

Bonjour,
j'ai programmer pour excel en vba ce programme :

Sub condition()

If Range("b8") <= 6 Then
If Range("c8") <= 6 Then
Range("d8") = 3
Range("e8") = 4
End If
End If
End Sub

C'est un programme qui m'ecrit 3 dans la case d8 et 4 dans la case e8 si je rentre des chiffres inferieurs a 6 en b8 et c8.
Je voudrais obtenir la meme chose de la ligne 8 a la ligne 12,(exemple si je rentre des chiffres inferieur a 6 en b12 et c12 j'obtiens 3 en d12 et 4 en e12,j'ai alors essayer de faire une boucle comme ceci:

Sub condition()

For i = 8 To 12
Next i

If Range("bi") <= 6 Then
If Range("ci") <= 6 Then
Range("di") = 3
Range("ei") = 4

End If
End If
End Sub
Ce programme m'ecrit une erreur "1004",qq'un aurait une astuce pour m'aider?
merci

michel_m · Answer

bonjour,

if cells(i,2)<6 AND Cells(i,3)<6
cells(i,4)=3
cells(i,5)=4

nikoleboss13 · Answer

re,
voici mon nouveau programme :

 Sub condition()

For i = 8 To 12
Next i

If Cells(i, 2) < 6 And Cells(i, 3) < 6 Then
Cells(i, 4) = 3
Cells(i, 5) = 4
End If
End Sub

Le probleme est que moi je voudrais que s'il il y par exemple le chiffre 2 b8 et 2 en c8 ce programme ecrive 3 en d8 et 4 en e8,
or si je met 2 en b8 et 2 en c8 le programme m'ecrit 3 en d13 et 4 en c13.
?????????
merci.

michel_m · Answer

For i = 8 To 12


If Cells(i, 2) < 6 And Cells(i, 3) < 6 Then
Cells(i, 4) = 3
Cells(i, 5) = 4
End If

Next i
End Sub

nikoleboss13 · Answer

ok merci ca amrche!!

Boucle "for " en vba

4 réponses

Votre réponse

Discussions similaires

Newsletters