Traduction en langage VBA

Bonjour le forum,

je débute en vba (vraiment vraiment débutant ! ) et je galère un peu...

Mon besoin est le suivant :

En cliquant sur un bouton, je souhaite que :

- si B34>=1 alors affiche "0.50" en I29 sinon affiche "0.00" en I29

- si C34>=1 alors affiche "0.50" en I30 sinon affiche "0.00" en I30

- si D34>=1 alors affiche "0.50" en R29 sinon affiche "0.00" en R29

- si E34>=1 alors affiche "0.50" en R30 sinon affiche "0.00" en R30

- si H34=1 alors affiche "0.30" en H31 sinon affiche "0.00" en H31

- si H34=2 alors affiche "0.50" en H32 sinon affiche "0.00" en H32

- si H34>=3 alors affiche "0.80" en H33 sinon affiche "0.00" en H33

Merci pour votre aide précieuse

Bonjour,

Pour démarrer, tu peux tester ce code ...

Sub Test()
  If Range("B34").Value >= 1 Then
    Range("I29").Value = 0.5
  Else
    Range("I29").Value = 0
  End If
End Sub

Bonsoir Alf, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Range("I29").Value = IIf(Range("B34").Value = 1, "0.50", "0.00")
Range("I30").Value = IIf(Range("C34").Value = 1, "0.50", "0.00")
Range("R29").Value = IIf(Range("D34").Value = 1, "0.50", "0.00")
Range("R30").Value = IIf(Range("E34").Value = 1, "0.50", "0.00")
Range("H31").Value = IIf(Range("H34").Value = 1, "0.30", "0.00")
Range("H32").Value = IIf(Range("H34").Value = 2, "0.50", "0.00")
Range("H33").Value = IIf(Range("H34").Value = 3, "0.80", "0.00")
End Sub

IIf fonctionne comme ça : IIF(Condition, si condition vrai, si condition faux)

[Édition]

Bonsoir James on s'est croisé...

merci james 007 ca fonctionne