Discussion :

[demichoux]

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

[MarcelG]

Bonjour,

2 coseils au préalable
La méthode Select Case rendrait le code beaucoup plus clair
L'utilisation du bloc With permet de mieux attacher les objets (ici Range à leur feuille Parent)

Quelle ligne de code le débuggeur met-il en évidence (généralement surlignée en jaune)?

[demichoux]

Merci de ta réponse MarcelG

Je ne connais pas du tout la méthode dont tu me parle, j'ai appris en autodidacte la VBA, je n'utilise surement pas la bonne méthode dsl.

Tout dépend ce qui est indiqué dans les cellules, si on prend pour exemple celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("F17").Value = "Combinée" And Range("F18").Value = "AH36" Then

Le debugger vas mettre en jaune la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F19").Value = "180 MPa"

[MarcelG]

Salut,

j'ai appris en autodidacte la VBA

Moi aussi, comme beaucoup.

Je ne connais pas du tout la méthode dont tu me parle

Aide sur Select Case

La feuille n'est-elle pas protégée?
S'il te plaît, rattache les objets Range

Tu peux par exemple écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With ThisWorkbook.Worksheets("lafeuille")
if .[F19] = ....

[demichoux]

La feuille n'est-elle pas protégée?

La feuille n'est pas protégée.

S'il te plaît, rattache les objets Range

Justement c'est une chose que je ne connais pas.

Je vais faire un test par rapport a ce que tu m'a indiquée

[MarcelG]

Justement c'est une chose que je ne connais pas.

C'est la base de tout développement.
Un objet Range s'attache à une feuille qui elle-même s'attache à un classeur.
Le rattachement s'effectue par un "."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Thisworkbook.Worksheets("lafeuille")
  If .[A5] = 2 Then Msgbox Prompt:="Vous avez gagné!"
  If .[A6] = ...
End With

[Algoplus]

Bonjour demichoux, MarcelG,


Une solution en décomposant les tests ( en rajoutant les attachements...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Range("F17").Value = "Combinée" Then
     If Range("F18").Value = "AH36" then Range("F19").Value = "180 MPa"
     If Range("F18").Value = "A" Then Range("F19") = "119 MPa" 
End If

même codage pour "Cisaillement" .

F17 peut il avoir d'autres valeurs que "Cisaillement" et "Combinée" ?
F18 peut il avoir d'autres valeurs que "AH36" et "A" ?

A+

[demichoux]

Bonjour Algoplus,

Je viens de faire un test, j'ai toujours le message d'erreur.

F17 peut il avoir d'autres valeurs que "Cisaillement" et "Combinée" ?
F18 peut il avoir d'autres valeurs que "AH36" et "A" ?

Pour F17 et F18 non que ces valeurs.

[Algoplus]

Si les deux cellules ne peuvent avoir que deux valeurs on pourrait écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
If Range("F17").Value = "Combinée" Then
     If Range("F18").Value = "AH36" then 
          Range("F19").Value = "180 MPa"
     Else
          Range("F19") = "119 MPa" 
     End if
Else
     If Range("F18").Value = "AH36" then 
          Range("F19").Value = "104 MPa"
     Else
          Range("F19") = "68.9 MPa" 
     End if
End If

Mais ce n'est pas la manière d'écrire les tests qui résoudra l'erreur .

Est ce qu'il y a d'autres lignes de codes dans la Sub Worksheet_Change ?

[joe.levrai]

Bonjour,

essaye de formater tes cellules au format "Texte" s'ils sont en standard

[zenpbb]

Bonjour,
Pour éviter une procédure événementielle qui se déclenche elle-même à l'infini (jusqu'à ce que la pile des appels sature), il faut désactiver les événements le temps de son exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 
...
 
Application.EnableEvents = True
End Sub

[demichoux]

Algoplus

Est ce qu'il y a d'autres lignes de codes dans la Sub Worksheet_Change ?

Non il y a juste le code que j'ai mis au debut.

joe.levrai

essaye de formater tes cellules au format "Texte" s'ils sont en standard

Je pensais que cela venait du format des cellules est non, celle-ci sont bien en texte.

[MarcelG]

Salut demichoux,

Comme nous sommes au 12ème post, je pense que tu peux joindre un fichier simplifié, bien entendu épuré de données confidentielles.

[demichoux]

Ci-joint le fichier
Tableau charges.V3(test)-copie.xlsm

zenpbb

Je n'avais pas vu t'a réponse, je vais tester.

[MarcelG]

Salut,

Je n'ai pas d'explication plus approfondie.
J'ai remarqué l'absence d'erreur s'il y a test sur l'objet Target
(à adapter)

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
Public Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column <> 12 Then Exit Sub
 
With ThisWorkbook.Worksheets("Feuil1")
 
        Select Case .[F17]
                Case "combinée"
                          .Range("F19").Value = IIf(.[F18] = "AH36", "180 MPa", "119 MPA")
                Case Else
                          .Range("F19").Value = IIf(.[F18] = "AH36", "104 MPa", "68.9 MPA")
        End Select
 
End With
 
End Sub

[demichoux]

Merci MarcelG et zenpbb vos solutions fonctionne

J'avais juste une question MarcelG, pourquoi mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Column <> 12 Then Exit Sub

Et pas la colonne correspondant directement ?

[MarcelG]

Salut,

Comme je l'ai indiqué, il te faut adapter sur
- l'adresse de la cellule
- son appartenance à un champ défini (Intersect n'est pas rien)
etc....

D'où l'importance de comprendre le code au préalable.

Bonne remarque znpb

[Algoplus]

Pour le fun :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub Worksheet_Change(ByVal Target As Range)
Dim a As Variant
 a = [{"180 MPa","119 MPa";"104 MPa","68.9 MPa"}]
 Application.EnableEvents = False
 With ThisWorkbook.Worksheets("Feuil1")
  .Range("F19").Value = a((.Range("F17").Value = "Combinée") + 2, (.Range("F18").Value = "AH36") + 2)
 End With
 Application.EnableEvents = True
End Sub

avec l'utilisation de Application.EnableEvents comme suggéré par zenpbb, pour éviter de redéclencher Worksheet_Change lorsque F19 est modifié

[demichoux]

Bonjour,

Merci à vous tous pour votre contribution est aide

Je vais pouvoir clôturer la discussion

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Algoplus,

Pourrais-tu expliciter cette notation.

[{

et l'argumentation de a qui suit.
Je n'ai, pour ma part, jamais utilisé ce genre d'écriture..