Probleme debutant VBA

Version imprimable

Bonjour a tous,

Desole pour le titre mais je ne savais pas comment expliquer mon probleme simple en quelques mots.

Aux lignes 53, 58, 63 j'essai de modifier la cellule a quoi correspond ma variable Cel2. J'aimerais la modifer en prenant la cellule qui est juste en dessous. Ai-je bien code ces lignes pour que cela reponde a ce que je souhaite faire ?

Merci d'avance !

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Sub Test()
 
Dim Cel1 As Range
Dim Cel2 As Range
Dim Plage As Range
Dim Cel As Range
Dim mydate As Date
Dim Month_date(2) As Integer
 
Month_date(0) = 0
Month_date(1) = 0
Month_date(2) = 0
 
Set Cel1 = Sheet2.Range("B2")
Set Cel2 = Sheet3.Range("J18")
Set Plage = Range("B2:B20")
 
For Each Cel In Plage
 
    If InStr(Cel.Value, "LP_LME") <> 0 Then
 
        For i = 0 To 2
 
            mydate = Cel1.Offset(i, 3).Value
 
            If Month(mydate) = 8 Then
 
                Month_date(0) = 1
 
            ElseIf Month(mydate) = 9 Then
 
                Month_date(1) = 1
 
            ElseIf Month(mydate) = 10 Then
 
                Month_date(2) = 1
 
            End If
 
        Next i
 
    End If
 
Next Cel
 
 
 
For n = 0 To 2
 
    If Month_date(n) = 1 And n = 0 Then
 
        Cel2.Offset(0, 0).Value = "August"
        Set Cel2 = Cel2.Offset(1, 0)
 
    ElseIf Month_date(n) = 1 And n = 1 Then
 
        Cel2.Offset(0, 0).Value = "September"
        Set Cel2 = Cel2.Offset(1, 0)
 
    ElseIf Month_date(n) = 1 And n = 2 Then
 
        Cel2.Offset(0, 0).Value = "October"
        Set Cel2 = Cel2.Offset(1, 0)
 
    End If
 
Next n
 
 
End Sub

07/07/2015, 14h45
Quentin77170

Salut à toi,

Oui.

Je ne sais pas quoi dire d'autre, obtiens-tu une erreur ? Ta syntaxe me paraît bonne, mis à part ton ".offset(0,0)" qui ne sert à rien...

Range1 = Range2 affecte la valeur de Range2 à Range1
Set Range1 = Range2 affecte l'objet Range2 à l'objet Range1
Donc après cette dernière ligne, "Range1 Is Range2" te renverra True

Peux-tu poser une question plus spécifique, car je ne vois a priori rien à redire dans ton code :)

Quentin

Bonjour,

Tu affecte bien ta variable objet à la cellule de dessous mais pour en faire quoi après ?

Code:

1
2
 
Set Cel2 = Cel2.Offset(1, 0)

J'ai l'impression que ton code mouline pour rien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
For n = 0 To 2
 
    If Month_date(n) = 1 And n = 0 Then
 
        Cel2.Offset(0, 0).Value = "August"
        Set Cel2 = Cel2.Offset(1, 0)
 
    ElseIf Month_date(n) = 1 And n = 1 Then
 
        Cel2.Offset(0, 0).Value = "September"
        Set Cel2 = Cel2.Offset(1, 0)
 
    ElseIf Month_date(n) = 1 And n = 2 Then
 
        Cel2.Offset(0, 0).Value = "October"
        Set Cel2 = Cel2.Offset(1, 0)
 
    End If
 
Next n

Peut être qu'avec la fonction Choose ça éviterait la boucle si tu défini la position ordinale :

Code:

1
2
 
Cel2.Value = Choose(Position, "August", "September", "October")

Ici, tu ne parente pas ton Range :

Code:

1
2
 
Set Plage = Range("B2:B20")

sur quelle feuille, Sheet2 ou Sheet3 ?

Hervé.

J'ai pris en compte ce que tu m'as dit Theze pour ma plage de cellule.
Sinon je n'ai pas d'autres soucis sur ce code la :)

Cependant j'aimerais faire quelque chose de nouveau. J'ai cree un tableau, je voudrais faire une boucle For, des que ma condition est verifie, ma premiere case du tableau augmente de 1 sachant que les cases de mon tableau ont ete initialise a 0. Donc ce que je ne sais pas faire c'est comment augmente de 1 la valeur qui est dans mon tableau des que la condition est verifie.

En gros dans mon code des que Month(mydate) = 1, je voudrais rajouter +1 a Number_Month_Copper(0).

Voici la partie de mon code qui pourrait vous interesse

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Dim Number_Month_Copper(11) As Integer
 
Number_Month_Copper(0) = 0
Number_Month_Copper(1) = 0
Number_Month_Copper(2) = 0
Number_Month_Copper(3) = 0
Number_Month_Copper(4) = 0
Number_Month_Copper(5) = 0
Number_Month_Copper(6) = 0
Number_Month_Copper(7) = 0
Number_Month_Copper(8) = 0
Number_Month_Copper(9) = 0
Number_Month_Copper(10) = 0
Number_Month_Copper(11) = 0
 
For Each Cel In Plage
 
    If InStr(Cel.Value, "LP_LME") <> 0 Then
 
        mydate = Cel.Offset(0, 4).Value
 
            If Month(mydate) = 1 Then
 
                Month_Copper(0) = 1
 
            ElseIf Month(mydate) = 2 Then
 
                Month_Copper(1) = 1
 
            ElseIf Month(mydate) = 3 Then
 
                Month_Copper(2) = 1
 
            ElseIf Month(mydate) = 4 Then
 
                Month_Copper(3) = 1
 
            ElseIf Month(mydate) = 5 Then
 
                Month_Copper(4) = 1
 
            ElseIf Month(mydate) = 6 Then
 
                Month_Copper(5) = 1
 
            ElseIf Month(mydate) = 7 Then
 
                Month_Copper(6) = 1
 
            ElseIf Month(mydate) = 8 Then
 
                Month_Copper(7) = 1
 
            ElseIf Month(mydate) = 9 Then
 
                Month_Copper(8) = 1
 
            ElseIf Month(mydate) = 10 Then
 
                Month_Copper(9) = 1
 
            ElseIf Month(mydate) = 11 Then
 
                Month_Copper(10) = 1
 
            ElseIf Month(mydate) = 12 Then
 
                Month_Copper(11) = 1
 
            End If
 
    End If
...

07/07/2015, 15h31
Theze
De cette façon :
Code:

1 2 Month_Copper(0) = Month_Copper(0) + 1
Hervé.
07/07/2015, 16h31
Tchapeto

Merci beaucoup ;)