Discussion :

[Justine B]

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 :

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

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 :

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

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.

[Philippe Tulliez]

Bonjour,

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

[eriiic]

Bonjour,

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


If sur une ligne :

Code :

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

If test Then resultat1 Else résultat2

on ne met pas de End If.

If sur plusieurs lignes :

Code :

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

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

[patricktoulon]

Bonjour

Code :

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

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

[Igloobel]

Bonjour à tous,

Ah ouais le "Select Case True" fonctionne

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

je

[Justine B]

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

[Pierre Fauconnier]

Salut

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

Quelles autres perspectives que ceci?

Code :

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

1
2
3
4
5
6
7
8
9
  If a Then
 
  ElseIf b Then
 
  ElseIf c Then
 
  Else
 
  End If

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.