portée d'une variable

**nsqualli** · 03/12/2008, 17h48

Bonjour,

SVP, j'ai un probleme avec les variables.

Code :

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

1
2
3
4
5
6
7
For LigP = 4 To DerLig
 
                Select Case .Range("G" & LigP).Value
 
                    Case "Janvier"
                        DebJanvier = LigP
                        MsgBox (DebJanvier)

DebJanvier me retourne la valeur de LigP entre le select et le end select.
mais si je l'appele en dehors de select end select j'ai une valeur 0.
comment je peux faire pour la rendre visible partout?

Merci bcp

**pgz** · 03/12/2008, 18h03

La variable LigP change de valeur sur l'instruction 'Next'.
Il faudrait que tu montres à quel endroit du code tu en as besoin sans la trouver.

PGZ

**nsqualli** · 03/12/2008, 18h11

et coment je peux faire cela?

**patbou** · 03/12/2008, 18h20

bonjour,

Peux tu nous montrer ton code complet.

**nsqualli** · 03/12/2008, 18h25

ok

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
 
Sub planningOctobre(iIndexMois As Long)
'-----------------------------------------------------------------------------------------
'                                Déclarations
'-----------------------------------------------------------------------------------------
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
 
Dim Nchaine As String, Ndebut As String, Nfin As String
Dim Mchaine As String, Mdebut As String, f1mois As String
Dim name As String, namechemin As String
Dim Repertoire As String
Dim fPnom As String, fPnom1 As String, f1nom As String
Dim valListe As Double, valAbs As Double
Dim valListe1 As Double, valAbs1 As Double
 
Dim DerLig As Long, LigP As Long
Dim DerLig1 As Long, Lig1 As Long
'Dim DebJanvier As Long, DebFevrier As Long
Dim LigBo As Long, DerCel As Long, DerCel1 As Long
Dim listeRH As Worksheet
'-----------------------------------------------------------------------------------------
'                                 Traitements
'-----------------------------------------------------------------------------------------
Repertoire = Worksheets("Plannings Absences").Range("AP" & 518).Value
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
Set listeRH = Sheets("Liste des ressources & Activité")
 
'Boucle sur tous les fichiers du répertoire
    For Each FileItem In SourceFolder.Files
    name = FileItem.name
    namechemin = Repertoire & FileItem.name
 
        'fnom renvoie le nom extrait du nom de fichier
        Nchaine = FileItem.name
        Ndebut = InStr(1, Nchaine, " ", vbTextCompare) + 1
        Nfin = InStr(1, Nchaine, "_", vbTextCompare)
        f1nom = Mid(Nchaine, Ndebut, Nfin - Ndebut)
 
        'fmois renvoie le mois extrait du nom du fichier
        Mchaine = FileItem.name
        Mdebut = Right(Mchaine, 9)
        f1mois = Mid(Mdebut, 1, 2)
 
        'récupération de l'indice du mois
        If iIndexMois = "01" Then
            mois = "Janvier"
        End If
 
        If iIndexMois = "02" Then
            mois = "Février"
        End If
 
        If iIndexMois = "03" Then
            mois = "Mars"
        End If
 
        If iIndexMois = "04" Then
            mois = "Avril"
        End If
 
        If iIndexMois = "05" Then
            mois = "Janvier"
        End If
 
        If iIndexMois = "06" Then
            mois = "Juin"
        End If
 
        If iIndexMois = "07" Then
            mois = "Juillet"
        End If
 
        If iIndexMois = "08" Then
            mois = "Aout"
        End If
 
        If iIndexMois = "09" Then
            mois = "Septembre"
        End If
 
        If iIndexMois = "10" Then
            mois = "Octobre"
        End If
 
        If iIndexMois = "11" Then
            mois = "Novembre"
        End If
 
        If iIndexMois = "12" Then
            mois = "Décembre"
        End If
 
        'DerLig = Sheets("Plannings Absences").Range("A" & Rows.Count).End(xlUp).Row
        'MsgBox (DerLig)
 
        With Sheets("Plannings Absences")
 
            For LigP = 4 To DerLig
 
            Select Case .Range("G" & LigP).Value
 
                Case "Janvier"
                    DebJanvier = LigP
 
                Case "Février"
                    DebFevrier = LigP
 
                Case "Mars"
                    DebMars = LigP
 
                Case "Avril"
                    DebAvril = LigP
 
                Case "Mai"
                    DebMai = LigP
 
                Case "Juin"
                    DebJuin = LigP
 
                Case "Juillet"
                    DebJuillet = LigP
 
                Case "Aout"
                    DebAout = LigP
 
                Case "Septembre"
                    DebSeptembre = LigP
 
                Case "Octobre"
                    DebOctobre = LigP
 
                Case "Novembre"
                    DebNovembre = LigP
 
                Case "Décembre"
                    DebDecembre = LigP
 
                Case Else
 
            End Select
        next LigP
    end with
Next FileItem
End Sub

moi je veux reccupérer les valeurs des DebMois, car j'en aurai besoin apres dans mon traitement

**ucfoutu** · 03/12/2008, 18h35

Bonjour,

Plutôt dur à avaler, tout çà !...

Regarde un peu iuci, déjà :

tout celà

I

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
f iIndexMois = "01" Then
            mois = "Janvier"
        End If
 
        If iIndexMois = "02" Then
            mois = "Février"
        End If
 
        If iIndexMois = "03" Then
            mois = "Mars"
        End If
 
        If iIndexMois = "04" Then
            mois = "Avril"
        End If
 
        If iIndexMois = "05" Then
            mois = "Janvier"
        End If
 
        If iIndexMois = "06" Then
            mois = "Juin"
        End If
 
        If iIndexMois = "07" Then
            mois = "Juillet"
        End If
 
        If iIndexMois = "08" Then
            mois = "Aout"
        End If
 
        If iIndexMois = "09" Then
            mois = "Septembre"
        End If
 
        If iIndexMois = "10" Then
            mois = "Octobre"
        End If
 
        If iIndexMois = "11" Then
            mois = "Novembre"
        End If
 
        If iIndexMois = "12" Then
            mois = "Décembre"
        End If

se remplace par (tout simplement) :

Code :

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

mois = Format(DateSerial(1, Val(iIndexMois), 1), "mmmm")

au lieu de tous ses ifs à n'en plus finir ...

Je continue à regarder ...

EDIT :Et celà ??

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
Select Case .Range("G" & LigP).Value
 
                Case "Janvier"
                    DebJanvier = LigP
 
                Case "Février"
                    DebFevrier = LigP
 
                Case "Mars"
                    DebMars = LigP
 
                Case "Avril"
                    DebAvril = LigP
 
                Case "Mai"
                    DebMai = LigP
 
                Case "Juin"
                    DebJuin = LigP
 
                Case "Juillet"
                    DebJuillet = LigP
 
                Case "Aout"
                    DebAout = LigP
 
                Case "Septembre"
                    DebSeptembre = LigP
 
                Case "Octobre"
                    DebOctobre = LigP
 
                Case "Novembre"
                    DebNovembre = LigP
 
                Case "Décembre"
                    DebDecembre = LigP
 
                Case Else
 
            End Select

Je suis à peu près certains de ce que tu sauras, là aussi, te montrer plus astucieux que ce que tu as fait là ...

**patbou** · 03/12/2008, 18h37

tu as quoi ici

Code :

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

1
2
3
 
For LigP = 4 To DerLig
msgbox "ligp = " & LigP  & "derlg = " & derlig

portée d'une variable

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager