Problème de variable

Version imprimable

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:

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.

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:

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é.

Bonsoir Hervé,

Alors ok pour le compteur sauf que je ne vois pas la solution, car si je rajoute ton code,

Code:

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:

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

1 pièce(s) jointe(s)

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:

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.
Pièce jointe 140814

++
Qwaz

Bonjour
En changeant trois fois rien.

Code:

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

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:

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

Epuration du code

Voici mon code amaigri...avec le code 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
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

18/03/2014, 23h33
phanoulevoyou

Bonsoir Keygen08,

Désolé je n'ai pas essayé ton bout de code, qui j'en suis sur fonctionne, je le garde sous le coude tout de même, et merci de ta contribution pour m'enrichir en programmation VBA.

Bonne soirée,

Cdlt, PLV

Salut

Il me semblait bien que tu recherchais la dernière ligne vierge pour placer tes données, c'est inutile de faire une boucle (5 à 25), il y a une méthode bien plus simple.
Je n'ai pas beaucoup de temps mais voici ce qui remplacera ta boucle dans le principe

Code:

1
2
3
4
5
6
7
8
 
                With Vacation.Sheets(NomOnglet) '.Activate 'Pas besoin d'activer pour travailler dessus, sauf si tu veux l'afficher pour l'utilisateur
 
                    With .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                        'La 1ère ligne vide est pointée
                        .Value = "MaCellule Colonne A"
                        .Offset(0, 1) = "MaCellule Colonne B"
                        .Offset(0, 2) = "MaCellule Colonne C"

++
Qwaz

19/03/2014, 11h01
phanoulevoyou

Bonjour Qwazerty,

j'avais déjà essayé cette méthode avec .end(xlup), mon problème est que dans mon fichier Vacation qui contient les différents Onglets avec la même structure de tableau, il y a du texte après la ligne 25. j'ai du Texte en A28 et en A30. Donc à chaque fois ça me prend en compte la mauvaise cellule, puisque la première trouvée est A31...
J'ai cherché quelque chose pour limiter cette recherche aux lignes de 5 à 25 en utilisant End.(xlUp) mais j'ai rien trouvé.

Merci à toi, bonne journée

PLV
19/03/2014, 18h29
Qwazerty
Salut

Il suffit tout simplement de débuter à la ligne 29
Code:

1 2 With .Cells(29, "A").End(xlUp).Offset(1)
ou
Code:

1 2 With .Range("A29").End(xlUp).Offset(1)
++
Qwaz
21/03/2014, 15h30
phanoulevoyou

Merci...

Merci à toi Qwazerty pour ton aide. Ta proposition fonctionne à merveille et il est vrai que ça éclaircit mon bout de code.

Merci également à ceux qui ont contribué à me faire avancer, keygen08 et Theze.
Bonne journée à tous.

Cdlt, PLV.