Bonjour à vous,

je vous sollicite car j'ai un petit souci avec mon code ci-dessous, j'ai une erreur 1004 sur la ligne 19 du code.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub CalculTVS()


Dim i As Integer, carre As Integer, rond As Integer

i = 57

Do While Range("R" & i) <> ""

carre = Range("R" & i - 1)
rond = Range("R" & i)
    
    Select Case carre
        Case 0 To 50
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J6)
        Case 51 To 100
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J7)
        Case 101 To 120
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J8)        
        Case 121 To 140
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J9)
        Case 141 To 160
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J10)
        Case 161 To 200
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J11)
        Case 201 To 250
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J12)
        Case Else
        Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range(J13)
    End Select
     
    Select Case rond
    Case 0 To 50
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K6)
       Case 51 To 100
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K7)
       Case 101 To 120
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K8)
       Case 121 To 140
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K9)
       Case 141 To 160
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K10)
       Case 161 To 200
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K11)
       Case 201 To 250
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K12)
       Case Else
       Range("S" & i) = Sheets("Montant TVS et bonus malus 2013").Range(K13)
    End Select

Range("T" & i - 1) = Range("S" & i - 1) * Range("R" & i - 1)

Range("T" & i) = Range("S" & i) * Range("R" & i)

i = i + 2

Loop
End Sub
J'ai deux véhicules sur deux lignes differentes et en fonction de leur émission de CO2 j'aimerai recuperer leur taux qui se situe sur l'autre feuille d'ou l'utilisation d'un Select Case. Bien entendu j'ai plusieurs couple de véhicules a comparer d'ou le pas de 2 dans ma boucle. Merci d'avance

Cordialement.