Fonction SI et VBA

[steph71]

Bonjour à tous,

voila ma problématique :

je chercher le code VBA me permettant de traduire ceci :
Dans une feuille EXCEL,
Si B10 n'est pas = TOTO
Si B11 n'est pas = TATA
Alors les cellules C16 et C17 = 0
Sinon = 30

Merci pour votre aide et bon we à tous

 

[marco57]

Bonjour Steph 71 et le Forum,

Ce code devrait répondre à ta demande:

Sub Test()
  With Sheets('Feuil1')
    If .Range('b10') <> 'TOTO' And .Range('b11') <> 'TATA' Then
      .Range('c16:c17').Value = 0
    Else
      .Range('c16:c17').Value = 30
    End If
  End With
End Sub

Bonne programmation

Marco

 

[STEPH71]

merci pour cette réponse rapide
je ne sais pas où placer ce code pour qu'il s'éxécute automatiquement à chaque nouvelle saisie dans les cellules B10 et B11