Discussion :

[NassMcN]

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.

[EngueEngue]

Il faut que tu mettes des " " dans tous tes ranges, l'erreur est là mais aurrait pu être ailleurs.

Code :

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

Range("S" & i - 1) = Sheets("Montant TVS et bonus malus 2013").Range("J8")

et ainsi desuite pour tous tes ranges

[NassMcN]

Merci, ça marche nickel, j'avais fais la meme erreur sur plusieurs autres programmes en attente, tu viens de me liberer

[Arnias]

Bonjour,

Pourriez vous me faire parvenir votre fichier de calcule de tvs si cela ne vous dérange pas s’il vous plaît,
Je viens tout juste de commencer à programmer vba, et ce n’es Pas facile du tout,
Cordialement