Macro avec plusieurs conditions!

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un problème concernant un macro que j’essaie de réaliser. voici le code que j'ai écrit mais y'a pas mal d'erreur apparemment vu que je viens de débuter en VBA.

Code:

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
Sub Macro1()
Dim cel As Range
Dim plage As Range
Dim plage1 As Range
With Sheets("Sheet1")
 
Set plage = .Range("A2:A197")
Set plage1 = .Range("C2:C197")
For Each cel In plage
    If cel.Offset(0,6).value < 500 Then
        if cel.Offset(0,7).Value=1 and cel.Offset(0,8).Value=1
        then cel.Offset(0,9).Value=1.68
        End If
        if cel.Offset(0,7).Value=1 and cel.Offset(0,8).Value=0
        then cel.Offset(0,9).Value=1.68
        End If
         if cel.Offset(0,7).Value=2 and cel.Offset(0,8).Value=0
        then cel.Offset(0,9).Value=1.67
        End If
         if cel.Offset(0,7).Value=2 and cel.Offset(0,8).Value=1
        then cel.Offset(0,9).Value=2
        End If
 
    End If
    If cel.Offset(0,6).value < 1000 and cel.Offset(0,6).value > 500
        if cel.Offset(0,7).Value=1 and cel.Offset(0,8).Value=1
        then cel.Offset(0,9).Value=1.5
        End If
        if cel.Offset(0,7).Value=1 and cel.Offset(0,8).Value=0
        then cel.Offset(0,9).Value=1.6
        End If
         if cel.Offset(0,7).Value=2 and cel.Offset(0,8).Value=0
        then cel.Offset(0,9).Value=1.67
        End If
         if cel.Offset(0,7).Value=2 and cel.Offset(0,8).Value=1
        then cel.Offset(0,9).Value=2.2
        End If
    End If
 
    Application.Goto Reference:="Macro1"
 
 
End Sub

Enfait ce que je veux faire c'est de tester si la longueur est < 500 alors :
Si terminals = 1 et seals= 1 alors time=1,68
Si terminals= 1 et seals = 0 alors time=..
si terminals = 2 et seals = 1 alors ..
si terminals = 2 et seals = 0 alors..

Si longueur > 500 et longueur < 1000 alors
// meme traitement

merci

Bonjour,

Découpe ton code.

Ensuite il te manque à mon avis un lien ici
Code:

1 2 3 If cel.Offset(0,6).value < 1000 and cel.Offset(0,6).value > 500 if cel.Offset(0,7).Value=1 and cel.Offset(0,8).Value=1 then cel.Offset(0,9).Value=1.5
Au lieu de faire une macro du en fait 3 et tu appels tes macro dans ta macro principale.

Merci had4789,

Mais j'ai trouvé une méthode qui fonctionne

Code:

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
Sub Macro1()
 
Dim DerLig As Long
Dim Cel As Range, Plage As Range
    Application.ScreenUpdating = False
    With Sheets("Sheet1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("A2:A" & DerLig)
        For Each Cel In Plage
            If Cel.Offset(0, 6).Value < 500 Then
                'Si terminals = 1 et seals= 1 alors time=1,68
               If Cel.Offset(0, 7).Value = 1 And Cel.Offset(0, 8).Value = 1 Then
                    Cel.Offset(0, 9).Value = 1.68
                End If
                'Si terminals = 1 et seals= 0 alors time=1,68
               If Cel.Offset(0, 7).Value = 1 And Cel.Offset(0, 8).Value = 0 Then
                    Cel.Offset(0, 9).Value = 1.68
                End If
                'Si terminals = 2 et seals= 0 alors time=1,67
               If Cel.Offset(0, 7).Value = 2 And Cel.Offset(0, 8).Value = 0 Then
                    Cel.Offset(0, 9).Value = 1.67
                End If
                'Si terminals = 2 et seals= 1 alors time=2
               If Cel.Offset(0, 7).Value = 2 And Cel.Offset(0, 8).Value = 1 Then
                    Cel.Offset(0, 9).Value = 2
                End If
            ElseIf Cel.Offset(0, 6).Value < 1000 Then
                If Cel.Offset(0, 7).Value = 1 And Cel.Offset(0, 8).Value = 1 Then
                    Cel.Offset(0, 9).Value = 1.5
                End If
                If Cel.Offset(0, 7).Value = 1 And Cel.Offset(0, 8).Value = 0 Then
                    Cel.Offset(0, 9).Value = 1.6
                End If
                If Cel.Offset(0, 7).Value = 2 And Cel.Offset(0, 8).Value = 0 Then
                    Cel.Offset(0, 9).Value = 1.67
                End If
                If Cel.Offset(0, 7).Value = 2 And Cel.Offset(0, 8).Value = 1 Then
                    Cel.Offset(0, 9).Value = 2.2
                End If
            End If
        Next Cel
    End With
 
    Application.Goto Reference:="Macro1"
 
    Application.Goto Reference:="Macro1"
End Sub