Traduction fonction excel en VBA

[kalek93]

Bonjour,

La question doit être très simple pour vous mais comment puis-je convertir cette fonction en VBA ?

=SI(X2="SPSP";10;SI(X2="DTDT";10;SI(W2="CL";Oui;Non))

J'ai fait ceci, mais il doit y avoir car la 2e condition écrase la 1ère...

If X2 = "SPSP" Or X2 = "DTDT" Then
     Range("I2") = 10
          
    Else
        
     If W2 = "CL" Then
     
            Range("I2") = Oui
      Else
            Range("I2") = Non
    
     End If
    
 End If

Et comment appliquer ceci à une colonne entière, et non pas à une seule ligne?

Merci d'avance

 

[kjin]

Re : Traduction fonction excel en VBA

Bonsoir,
Il y a surtout un pb dans la formule si j'ai bien compris

=SI(OU(X2="SPSP";X2="DTDT");10;SI(W2="CL";"Oui";"Non"))

...il te reste à boucler sur les cellules concernées

Sub toto()
Dim i&
For i = 2 To 10
    If Range("X" & i) = "SPSP" Or Range("X" & i) = "DTDT" Then
        Range("I" & i) = 10
    ElseIf Range("W" & i) = "CL" Then
        Range("I" & i) = "Oui"
    Else
        Range("I" & i) = "Non"
    End If
Next
End Sub

...ou par formule

Sub tata()
Dim c As Range
Set c = Range("I2:I10")
With c
    .Formula = "=IF(OR(X2=""SPSP"",X2=""DTDT""),10,IF(W2=""CL"",""Oui"",""Non""))"
    .Value = .Value
End With
End Sub

A+
kjin

 

[kalek93]

Re : Traduction fonction excel en VBA

Merci beaucoup Kjin pour ta rapidité et efficacité !!