la méthode value de l'objet range a échoué
Bonjour,
J'ai bien compris qu'il y a un problème d'enchainement mais la je ne vous pas comment le résoudre.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Public Sub Worksheet_Change(ByVal Target As Range)
If Range("F17").Value = "Combinée" And Range("F18").Value = "AH36" Then
Range("F19").Value = "180 MPa"
ElseIf Sheets("feuil1").Range("F17").Value = "Combinée" And Sheets("Feuil1").Range("F18").Value = "A" Then
Sheets("feuil1").Range("F19") = "119 MPa"
ElseIf Sheets("feuil1").Range("F17").Value = "Cisaillement" And Sheets("Feuil1").Range("F18").Value = "AH36" Then
Sheets("feuil1").Range("F19") = "104 MPa"
ElseIf Sheets("feuil1").Range("F17").Value = "Cisaillement" And Sheets("Feuil1").Range("F18").Value = "A" Then
Sheets("feuil1").Range("F19") = "68.9 MPa"
End If
End Sub |