Discussion :

[vieuxmonsieur]

Bonjour à tous,
J'ai de grandes difficultés pour ce code apparemment simple :

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
Sub ImpZoneX()
    Sheets("ticket").Select
If (I1 = 0) Then
    Exit Sub
 
    If (I1 > 199) Then
        Call Copie3
    Else
 
    If (I1 > 99) Then
        Call Copie2
    Else
 
If (I1 > 0) Then
    Call Copie3
End If
End If
End If
End If
End Sub

Je vous remercie de me corriger

[vieuxmonsieur]

Résolu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ImpZoneX()
Select Case [i1].Value
    Case 0 To 99
    Copie1
 
    Case 100 To 199
    Copie2
 
    Case 200 To 300
    Copie3
 
End Select
End Sub

[Krovax]

BOnjour premièrement il est préférable d'utiliser les balise code pour présenter un programme
Comment baliser le code -> Sélection du code + 1 clic sur # en mode d'édition
Démonstration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImpZoneX()
Sheets("ticket").Select
If (I1 = 0) Then
   Exit Sub
end if
If (I1 > 199) Then
   Call Copie3
ElseIf (I1 > 99) Then
   Call Copie2
ElseIf (I1 > 0) Then
   Call Copie3
End If
 
End Sub

Edit : On s'est croisé le select case est aussi une solution mais la remarque sur les balise tiens toujours