Problème de variable

**phanoulevoyou** · 18/03/2014, 18h20

Bonjour à tous,

j'ai effectué un petit programme ou j'utilise plusieurs variables. Au premier abord mon programme fonctionne, le hic si hic il y a, quand je fais fonctionner mon programme "pas à pas" je m'aperçois que je passe par une variable qui se remet à chaque fois à "zéro" et donc repart depuis le début.
Ce que je souhaiterai c'est de garder en mémoire la dernière ligne pour que ma variable reparte de ce point là. Ma variable dans le code ci-dessous est "LigneVac"
Suis je clair ?

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
Private Sub CmdTransfert_Click() ' BOUTON DE COMMANDE POUIR LE TRANSFERT
 
Dim Tableau As Workbook
Dim Vacation As Workbook
Dim NomRubrique As Byte
Dim ligne As Byte
Dim ligneVac As Byte
Dim NomOnglet
Dim arret
 
Set Tableau = ThisWorkbook 
Set Vacation = ActiveWorkbook 
 
    For NomRubrique = 2 To 9
 
 
        For ligne = 3 To 25
 
        NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 7).Value 'NomOnglet prend le nom de la rubrique
 
            If Tableau.Sheets("tableau").Cells(ligne, 1) <> "" And Tableau.Sheets("tableau").Cells(ligne, 1) = NomOnglet Then
            NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 8).Value
 
            Vacation.Sheets(NomOnglet).Activate
 
  'LigneVac = variable posant problème...          
                For ligneVac = 5 To 25
 
                    If Vacation.Sheets(NomOnglet).Cells(5, 1).Value = "" Or Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = "" And Vacation.Sheets(NomOnglet).Cells(ligneVac - 1, 1) = Tableau.Sheets("tableau").Cells(ligne, 2).Value Then
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = Tableau.Sheets("tableau").Cells(ligne, 2).Value 'matricule
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 2).Value = Tableau.Sheets("tableau").Cells(ligne, 3).Value _
                    & " " & Tableau.Sheets("tableau").Cells(ligne, 4).Value 'nom + prenom
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 4).Value = CDate(Left(Tableau.Sheets("tableau").Cells(ligne, 5).Value, 10)) 'date debut
 
                    Exit For
                    Else
                    If Vacation.Sheets(NomOnglet).Cells(ligneVac, 1) = "" And Vacation.Sheets(NomOnglet).Cells(ligneVac - 1, 1) <> Tableau.Sheets("tableau").Cells(ligne, 2).Value _
                    And Vacation.Sheets(NomOnglet).Cells(ligneVac + 1, 1) = "" Then
                    ligneVac = ligneVac + 1
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = Tableau.Sheets("tableau").Cells(ligne, 2).Value 'matricule
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 2).Value = Tableau.Sheets("tableau").Cells(ligne, 3).Value _
                    & " " & Tableau.Sheets("tableau").Cells(ligne, 4).Value 'nom + prenom
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 4).Value = CDate(Left(Tableau.Sheets("tableau").Cells(ligne, 5).Value, 10)) 'date debut
 
                    Exit For
                    End If
                    End If
 
            Next ligneVac
 
           End If
            Next ligne
 
            Next NomRubrique
 
 Set Tableau = Nothing
 Set Vacation = Nothing
End Sub

Une fois que ma variable "LigneVac" a trouvé les infos, on passe à la variable "Ligne" qui s'incrémente de 1, et l'idéal serait que "LigneVac" reste avec la dernière valeur et ne reparte pas à "5"

Je vous remercie d'avance de votre aide,

Cdlt, PLV.

**Theze** · 18/03/2014, 18h46

Bonjour,

Il te faut alors utiliser une variable compteur indépendante pour pouvoir incrémenter "ligneVac" dans la boucle sans que sa valeur soit changée par For Next :

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
 
Dim I As Long
 
ligneVac = 5
 
For I = 5 To 25
 
    If Vacation.Sheets(... then
        ...
        ligneVac = ligneVac + 1
        ...
 
    End If
 
Next I

Hervé.

**phanoulevoyou** · 18/03/2014, 19h24

Bonsoir Hervé,

Alors ok pour le compteur sauf que je ne vois pas la solution, car si je rajoute ton 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
Dim I As Long
 
ligneVac = 5
 
For I = 5 To 25
 
    If Vacation.Sheets(... then
        ...
        ligneVac = ligneVac + 1
        ...
 
    End If
 
Next I

il m'incrémente bien 1 à I mais vu que dans ma requête "Si..." ça ne convient pas il passe directement à "End if" sans passer par "ligneVac = ligneVac+1" donc mes lignes ne changent pas. Peut-être ai-je mal suivi tes conseils !!!

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
 For NomRubrique = 2 To 9
 
        ligneVac = 5
        For ligne = 3 To 25
        NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 7).Value 'NomOnglet prend le nom de la rubrique
            If Tableau.Sheets("tableau").Cells(ligne, 1) <> "" And Tableau.Sheets("tableau").Cells(ligne, 1) = NomOnglet Then
            NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 8).Value
 
            Vacation.Sheets(NomOnglet).Activate
 
                For i = 5 To 25
 
                    If Vacation.Sheets(NomOnglet).Cells(5, 1).Value = "" Or Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = "" And Vacation.Sheets(NomOnglet).Cells(ligneVac - 1, 1) = Tableau.Sheets("tableau").Cells(ligne, 2).Value Then
 
                    (...)
 
                    ligneVac = ligneVac + 1
                    End If
                    End If
 
            Next i
           End If
            Next ligne
 
            Next NomRubrique

**Qwazerty** · 18/03/2014, 21h22

Salut

Comme ça peut-être mais je ne comprend pas bien le but du code, qu'est ce que le code fait exactement? N'hésite pas à expliquer, nous aurons peut-être une solution plus simple à te proposer.

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
Private Sub CmdTransfert_Click() ' BOUTON DE COMMANDE POUIR LE TRANSFERT
 
Dim Tableau As Workbook
Dim Vacation As Workbook
Dim NomRubrique As Byte
Dim ligne As Byte
Dim ligneVac As Byte, MemoVac As Byte
Dim NomOnglet
Dim arret
Dim F_Data As Worksheet, F_Tableau As Worksheet
 
Set Tableau = ThisWorkbook
Set Vacation = ActiveWorkbook
 
'Les deux définitions peuvent-être supprimées en changeant directement le CodeName des feuilles en question (c'est transprent pour l'utilisateur). Voir le screenshot lié à la conversation
Set F_Data = Tableau.Sheets("bd")
Set F_Tableau = Tableau.Sheets("tableau")
 
MemoVac = 5
    For NomRubrique = 2 To 9
        For ligne = 3 To 25
            NomOnglet = F_Data.Cells(NomRubrique, 7).Value 'NomOnglet prend le nom de la rubrique
 
            If F_Tableau.Cells(ligne, 1) <> "" And F_Tableau.Cells(ligne, 1) = NomOnglet Then
                NomOnglet = F_Data.Cells(NomRubrique, 8).Value
 
                With Vacation.Sheets(NomOnglet) '.Activate 'Pas besoin d'activer pour travailler dessus, sauf si tu veux l'afficher pour l'utilisateur
 
                   'LigneVac = variable posant problème...
                   For ligneVac = MemoVac To 25
                       MemoVac = ligneVac
                       If .Cells(5, 1).Value = "" Or .Cells(ligneVac, 1).Value = "" And .Cells(ligneVac - 1, 1) = F_Tableau.Cells(ligne, 2).Value Then
                           .Cells(ligneVac, 1).Value = F_Tableau.Cells(ligne, 2).Value 'matricule
                           .Cells(ligneVac, 2).Value = F_Tableau.Cells(ligne, 3).Value _
                           & " " & F_Tableau.Cells(ligne, 4).Value 'nom + prenom
                           .Cells(ligneVac, 4).Value = CDate(Left(F_Tableau.Cells(ligne, 5).Value, 10)) 'date debut
 
                           Exit For
                       ElseIf .Cells(ligneVac, 1) = "" And .Cells(ligneVac - 1, 1) <> F_Tableau.Cells(ligne, 2).Value _
                       And .Cells(ligneVac + 1, 1) = "" Then
                           ligneVac = ligneVac + 1
                           .Cells(ligneVac, 1).Value = F_Tableau.Cells(ligne, 2).Value 'matricule
                           .Cells(ligneVac, 2).Value = F_Tableau.Cells(ligne, 3).Value _
                           & " " & F_Tableau.Cells(ligne, 4).Value 'nom + prenom
                           .Cells(ligneVac, 4).Value = CDate(Left(F_Tableau.Cells(ligne, 5).Value, 10)) 'date debut
 
                           Exit For
                       End If
                    Next ligneVac
                End With
 
            End If
        Next ligne
 
    Next NomRubrique
 
Set Tableau = Nothing
Set Vacation = Nothing
End Sub

Comme indiqué dans le code en commentaire, tu peux utiliser le CodeName des feuilles directement, ça alége le code.
Nom : 2014-03-18_173916.jpg
Affichages : 153
Taille : 135,2 Ko

Nom : 2014-03-18_173916.jpg
Affichages : 153
Taille : 135,2 Ko

++
Qwaz

**keygen08** · 18/03/2014, 22h08

Bonjour
En changeant trois fois rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'LigneVac = variable posant problème...
                If x = 0 Then x = 5
                For ligneVac = x To 25
                    If ........
 
                    Exit For
                    End If
                    End If
 
            Next ligneVac
x = ligneVac

**phanoulevoyou** · 18/03/2014, 22h40

Bonsoir Qwazerty,

Alors comment fonctionne ma bidouille...

J'ai un premier fichier contenant des données (Tableau). Ces données sont récupérés pour être mis dans un second fichier(Vacation) contenant plusieurs onglets et chaque onglet comporte le même tableau. Chaque nom d'onglet correspond au NomRubrique et chaque donnée dans mon Tableau va être classé dans l'onglet qui lui correspond.

Le but étant d'identifier dans un premier temps le NomRubrique, de sélectionner l'onglet qui lui correspond. Puis regarder dans Vacation, selon la condition (requête) transférer les données. Une fois les données insérées, on retourne dans Tableau pour faire la ligne suivante, si le NomRubrique correspond, insertion dans Vacation...ici on reprend à la dernière ligne enregistré auparavant (ligneVac), puis selon la condition...etc.

Ensuite, changement de NomRubrique et on recommence la procédure.

Depuis j'ai fait avancé mon code en m'inspirant de l'idée de Theze. Ca à l'air de marcher.

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
 
Dim Tableau As Workbook
Dim Vacation As Workbook
Dim NomRubrique As Byte
Dim ligne, i As Byte
Dim ligneVac, VacLigne As Byte
Dim NomOnglet
Dim arret
 
 
 
 Workbooks("vacations GOS SAL 2014.xlsx").Activate 'active le fichier Vacations...
 
Set Tableau = ThisWorkbook 'Fichier ou se trouve la macro ici Test SAL.
Set Vacation = ActiveWorkbook 'Fichier avec lequel on échange les données ici Vacations...
 
    For NomRubrique = 2 To 9
 
       i = 5
 
        For ligne = 3 To 25
 
        NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 7).Value 'NomOnglet prend le nom de la rubrique
 
            If Tableau.Sheets("tableau").Cells(ligne, 1) <> "" And Tableau.Sheets("tableau").Cells(ligne, 1) = NomOnglet Then
            NomOnglet = Tableau.Sheets("bd").Cells(NomRubrique, 8).Value
 
            Vacation.Sheets(NomOnglet).Activate
 
               For ligneVac = 5 To 25
                    ligneVac = i
                    If Vacation.Sheets(NomOnglet).Cells(5, 1).Value = "" Or Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = "" And Vacation.Sheets(NomOnglet).Cells(ligneVac - 1, 1) = Tableau.Sheets("tableau").Cells(ligne, 2).Value Then
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = Tableau.Sheets("tableau").Cells(ligne, 2).Value 'matricule
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 2).Value = Tableau.Sheets("tableau").Cells(ligne, 3).Value _
                    & " " & Tableau.Sheets("tableau").Cells(ligne, 4).Value 'nom + prenom
 
                ' ...encore du code blabla
 
                    i = ligneVac
                    Exit For
 
                    ElseIf Vacation.Sheets(NomOnglet).Cells(ligneVac, 1) = "" And Vacation.Sheets(NomOnglet).Cells(ligneVac - 1, 1) <> Tableau.Sheets("tableau").Cells(ligne, 2).Value _
                    And Vacation.Sheets(NomOnglet).Cells(ligneVac + 1, 1) = "" Then
                    ligneVac = ligneVac + 1
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 1).Value = Tableau.Sheets("tableau").Cells(ligne, 2).Value 'matricule
                    Vacation.Sheets(NomOnglet).Cells(ligneVac, 2).Value = Tableau.Sheets("tableau").Cells(ligne, 3).Value _
                    & " " & Tableau.Sheets("tableau").Cells(ligne, 4).Value 'nom + prenom
 
                    '... blablabla...
 
                    i = ligneVac
                    Exit For
                    Else
                    i = i + 1
                    End If
 
            Next ligneVac
           End If
            Next ligne
 
            Next NomRubrique
 
 Set Tableau = Nothing
 Set Vacation = Nothing

Il me reste maintenant à alléger mon code comme tu me l'as indiqué.
Je pense bien que mon bout de code à moi peut être certainement simplifié, je ne demande qu'à apprendre et j'essaie le plus possible de m'inspirer de vos réponses pour poursuivre mon apprentissage dans la programmation...Merci à vous.

Par contre je n'ai pas trop compris le CodeName ???

Dès que je pense avoir suivi ton conseil pour épurer mon code je te l'envoie afin que je puisse profiter d'une correction de plus pour éventuellement amaigrir encore un peu mon code et m'enrichir de tes connaissances.

Merci pour l'aide,
Cdlt, PLV

**phanoulevoyou** · 18/03/2014, 23h26

Voici mon code amaigri...avec le code qui fonctionne.

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
Private Sub CmdTransfert_Click() ' BOUTON DE COMMANDE POUR LE TRANSFERT
 
 
Dim Tableau As Workbook
Dim Vacation As Workbook
Dim NomRubrique As Byte
Dim ligne, i As Byte
Dim ligneVac, VacLigne As Byte
Dim NomOnglet
Dim F_Tableau As Worksheet, F_BD As Worksheet
 
Set Tableau = ThisWorkbook 
Set Vacation = ActiveWorkbook 
 
 
Set F_Tableau = Tableau.Sheets("tableau")
Set F_BD = Tableau.Sheets("BD")
 
    For NomRubrique = 2 To 9
 
       i = 5
 
        For ligne = 3 To 25
 
        NomOnglet = F_BD.Cells(NomRubrique, 7).Value 'NomOnglet prend le nom de la rubrique
 
            If F_Tableau.Cells(ligne, 1) <> "" And F_Tableau.Cells(ligne, 1) = NomOnglet Then
            NomOnglet = F_BD.Cells(NomRubrique, 8).Value
 
            With Vacation.Sheets(NomOnglet) '.Activate
 
               For ligneVac = 5 To 25
 
                    ligneVac = i
 
                    If .Cells(5, 1).Value = "" Or .Cells(ligneVac, 1).Value = "" And .Cells(ligneVac - 1, 1) = F_Tableau.Cells(ligne, 2).Value Then
                        .Cells(ligneVac, 1).Value = F_Tableau.Cells(ligne, 2).Value 'matricule
                        .Cells(ligneVac, 2).Value = F_Tableau.Cells(ligne, 3).Value _
                        & " " & F_Tableau.Cells(ligne, 4).Value 'nom + prenom
                        .Cells(ligneVac, 4).Value = CDate(Left(F_Tableau.Cells(ligne, 5).Value, 10)) 'date debut
                        .Cells(ligneVac, 5).Value = Right(F_Tableau.Cells(ligne, 5).Value, 8) 'heure debut
                        .Cells(ligneVac, 6).Value = CDate(Left(F_Tableau.Cells(ligne, 6).Value, 10)) 'date fin
                        .Cells(ligneVac, 7).Value = Right(F_Tableau.Cells(ligne, 6).Value, 8) 'heure fin
                        .Cells(ligneVac, 9).Value = CDate(F_Tableau.Cells(ligne, 13).Value) 'heure
                    i = ligneVac
                    Exit For
 
                    ElseIf .Cells(ligneVac, 1) = "" And .Cells(ligneVac - 1, 1) <> F_Tableau.Cells(ligne, 2).Value _
                    And .Cells(ligneVac + 1, 1) = "" Then
                    ligneVac = ligneVac + 1
                        .Cells(ligneVac, 1).Value = F_Tableau.Cells(ligne, 2).Value 'matricule
                        .Cells(ligneVac, 2).Value = F_Tableau.Cells(ligne, 3).Value _
                        & " " & F_Tableau.Cells(ligne, 4).Value 'nom + prenom
                        .Cells(ligneVac, 4).Value = CDate(Left(F_Tableau.Cells(ligne, 5).Value, 10)) 'date debut
                        .Cells(ligneVac, 5).Value = Right(F_Tableau.Cells(ligne, 5).Value, 8) 'heure debut
                        .Cells(ligneVac, 6).Value = CDate(Left(F_Tableau.Cells(ligne, 6).Value, 10)) 'date fin
                        .Cells(ligneVac, 7).Value = Right(F_Tableau.Cells(ligne, 6).Value, 8) 'heure fin
                        .Cells(ligneVac, 9).Value = CDate(F_Tableau.Cells(ligne, 13).Value) 'heure
                    i = ligneVac
                    Exit For
                    Else
                    i = i + 1
                    End If
 
            Next ligneVac
            End With
           End If
            Next ligne
 
            Next NomRubrique
 
 Set Vacation = Nothing
 Set Tableau = Nothing
End Sub

Question : Dois-je effectuer également un Set F_Tableau = Nothing et Set F_BD = Nothing ?

Cdlt, PLV

Problème de variable

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager