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 : Sélectionner tout - Visualiser dans une fenêtre à part
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