Fonction SI et VBA

steph71 · 20 Août 2005

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 · 20 Août 2005

Bonjour Steph 71 et le Forum,

Ce code devrait répondre à ta demande:

Code:

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 · 20 Août 2005

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

Fonction SI et VBA

steph71

Guest

marco57

XLDnaute Occasionnel

STEPH71

Guest

Discussions similaires