Discussion :

[ChNoirhomme]

Voila je doit créer une boucle avec les paramètres suivant:
La valeur K1 est déterminée dans un calcul précédent et est constant.
La boucle se fait sur les cellules E7 a E75, mais la valeur dans la cellule E peux être égale a 0

If Range("K1").Value <> 0 Or Range("E7").Value <> 0 Then
Range("K7").Value = Range("k1").Value * Range("E7").Value * Range("L3").Value

Merci en avance

Bien à vous

[78chris]

Bonjour

Si j'ai bien compris

Code :

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

1
2
3
4
5
6
 
For y=7 to 75
  If Range("K1").Value <> 0 Or Range("E" & y).Value <> 0 Then
    Range("K" & y).Value = Range("k1").Value * Range("E" & y).Value * Range("L3").Value
  end if
Next y

Mai j'ai un doute sur L3 et je pense qu'il faut remplacer OR par AND car si Ey vaut 0 la multiplication n'a pas d'intérêt...

[ChNoirhomme]

Super
Merci mais j'ai encore un petit problème,
Dans les cellules E je peux aussi avoir Qty a la place d'une valeur.
Et alors sa bloque.
Que puis-je faire pour que cela continue jusqu’à la cellule E75

En avance merci

[ChNoirhomme]

Merci j'ai ajouté un argument et cela marche merveilleusement.
Sub Macro003()
Dim y As Integer


For y = 7 To 85

If Range("K1").Value <> 0 And Range("E" & y).Value <> 0 And Range("E" & y) <> "Qty" Then
Range("K" & y).Value = Range("k1").Value * Range("E" & y).Value * Range("L3").Value
End If
Next y
End Sub

Encore merci