Comment écrire un code pour plusieurs "worksheet_change"?

Bonjour,

Étant assez débutante dans le VBA je ne sais pas comment écrire adéquatement une ligne de code pour une opération assez simple. J'aimerai être en mesure d'ajouter plusieurs "worksheet_change" sur un même code, mais je ne sais pas comment.

Quand j'en écris un seul sa fonctionne:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False   If Not Intersect(Target, Range("G51:G54")) Is Nothing Then Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula   End If Application.EnableEvents = True End Sub

---

mais quand j'essai d'ajouter une ligne, cela cause un erreur. Je suis consciente que c'est surement à cause que je ne m'y prend pas de la bonne manière, mais je ne sais pas comment l'ajouter. Voici ce que j'essai de faire et qui ne fonctionne pas de toute évidence:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False   If Not Intersect(Target, Range("G51:G54")) Is Nothing Then Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula If Not Intersect(Target, Range("L52:L55")) Is Nothing Then Worksheets("PRESCRIPTION").Range("M52:M55").Formula = Worksheets("PRESCRIPTION").Range("AH52:AH55").Formula   End If Application.EnableEvents = True End Sub

---

Au plaisir.

Bonjour,

Citation:

---

mais quand j'essai d'ajouter une ligne, cela cause un erreur. Je suis consciente que c'est surement à cause que je ne m'y prend pas de la bonne manière, mais je ne sais pas comment l'ajouter. Voici ce que j'essai de faire et qui ne fonctionne pas de toute évidence:

---

Lorsqu'il y a une erreur, un message l'accompagne. En principe dans ce cas ci "Enf If sans bloc If"
Il y a dans ces quelques lignes deux If et un seul End If d'où l'erreur. Pour le reste je n'ai pas regardé

Pour obtenir de l'aide, il serait important de savoir ce que vous voulez faire exactement

Bonjour,

pour compléter il y a 2 écritures pour If.


If sur une ligne :

Code:

---

If test Then resultat1 Else résultat2

---

on ne met pas de End If.

If sur plusieurs lignes :

Code:

---

1 2 3 4 5 6 7

If test1 Then resultat1 ' suite du code si besoin Else resultat2 ' suite du code si besoin End If

---

là le End If est nécessaire puisque tu peux avoir plusieurs lignes de code.
eric

Bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Select Case True Case Not Intersect(Target, Range("G51:G54")) Is Nothing Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula   Case Not Intersect(Target, Range("L52:L55")) Is Nothing Worksheets("PRESCRIPTION").Range("M52:M55").Formula = Worksheets("PRESCRIPTION").Range("AH52:AH55").Formula   Case Else '........ End Select Application.EnableEvents = True End Sub

---

Bonjour à tous,

Ah ouais le "Select Case True" fonctionne 8O

du coup je vais le potassé un peu le truc parce que cela m'ouvre des perspectives pour mon propre code



En en apprend tous les jours 8-)

je :plusser:

Merci beaucoup de votre aide. En plus je viens de comprendre bien des choses pour mes futures lignes de codes. C'est génial!

Salut

Citation:

---

Envoyé par Igloobel

[...]cela m'ouvre des perspectives pour mon propre code[...]

---

Quelles autres perspectives que ceci?

Code:

---

1 2 3 4 5 6 7 8 9

If a Then   ElseIf b Then   ElseIf c Then   Else   End If

---

:koi:

Select Case... a été créé pour tester les différentes valeurs possibles d'une même expression, autrement dit si la condition porte sur la même expression, pour ne pas avoir à la répéter dans les ElseIf. Select Case... Case... Case Else... End Select n'est jamais qu'une forme spécialisée de If... ElseIf... Else... End If. Mais lorsque les expressions testées sont différentes, ce qui est le cas ici, l'imbrication des ElseIf existe et "l'astuce" d'un Select Case True n'apporte rien du plus qu'une éventuelle confusion.