la méthode value de l'objet range a échoué

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

11/03/2019, 13h01
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)?
11/03/2019, 13h17
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:

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

Le debugger vas mettre en jaune la ligne suivante

Code:

Range("F19").Value = "180 MPa"
11/03/2019, 13h30
MarcelG
Salut,

Citation:

j'ai appris en autodidacte la VBA

Moi aussi, comme beaucoup.

Citation:

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:

1 2 With ThisWorkbook.Worksheets("lafeuille") if .[F19] = ....
11/03/2019, 13h38
demichoux

Citation:

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

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

Citation:

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
11/03/2019, 13h45
MarcelG
Citation:

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:

1 2 3 4 With Thisworkbook.Worksheets("lafeuille") If .[A5] = 2 Then Msgbox Prompt:="Vous avez gagné!" If .[A6] = ... End With
11/03/2019, 13h52
Algoplus
Bonjour demichoux, MarcelG,

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

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+
11/03/2019, 14h04
demichoux

Bonjour Algoplus,

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

Citation:

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.

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

Code:

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 ?

11/03/2019, 14h49
joe.levrai

Bonjour,

essaye de formater tes cellules au format "Texte" s'ils sont en standard
11/03/2019, 14h53
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:

1 2 3 4 5 6 7 Public Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ... Application.EnableEvents = True End Sub
11/03/2019, 14h54
demichoux

Algoplus

Citation:

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

Citation:

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.
11/03/2019, 15h43
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.
11/03/2019, 16h14
demichoux

1 pièce(s) jointe(s)

Ci-joint le fichier
Pièce jointe 456861

zenpbb

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

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:

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

11/03/2019, 17h11
demichoux

Merci MarcelG et zenpbb vos solutions fonctionne ;)

J'avais juste une question MarcelG, pourquoi mettre

Code:

If Target.Column <> 12 Then Exit Sub

Et pas la colonne correspondant directement ?
11/03/2019, 17h32
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 :plusser:

Pour le fun :

Code:

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é

12/03/2019, 08h04
demichoux

Bonjour,

Merci à vous tous pour votre contribution est aide :D

Je vais pouvoir clôturer la discussion
12/03/2019, 08h54
MarcelG

Bonjour à vous, Bonjour au Forum,

Algoplus,

Pourrais-tu expliciter cette notation.

Citation:

[{

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

Voir 40 message(s) de cette discussion en une page