vb variable dynamique

Version imprimable

Bonjour à tous !

Voici ma procédure :

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
Private Sub btn_dupliquer_Click()
Dim i As Integer
Dim dateAmortDero As String
Dim DerniereLigne As Long

DerniereLigne = Cells(Rows.Count, 1).End(xlUp).RowdateAmortDero = "31/12/2009"

 For i = 13 To DerniereLigne
    If Range("A" & i).Value <> "" Then
        If Range("A" & i).Value = Range("A" & i + 1).Value Then
            'Insertion de deux lignes cas où deux lignes existent déjà
            Call Insertion_Amort2Lignes(i)
            Range("B" & i + 2).Value = dateAmortDero
            '-Montant + VNC
            Range("J" & i + 2).Value = -Range("J" & i).Value + Range("N" & i)
            Range("C" & i + 2).Value = "Amortissement"
            Range("C" & i + 2).EntireRow.Copy
            Selection.Insert Shift:=xlDown
            Range("B" & i + 3).Value = dateAmortDero
            '-Dero
            Range("J" & i + 3).Value = -Range("R" & i).Value
            Range("C" & i + 3).Value = "Dérogatoire"
            'Incrémenter le i de façon à reprendre le parcours après les lignes insérées
            Rows(i + 2).Select
            Selection.Copy
            Rows(i + 4).Select
            Selection.Insert Shift:=xlDown
            Range("M" & i + 4).Value = "COMPTA"
            Rows(i + 3).Select
            Selection.Copy
            Rows(i + 5).Select
            Selection.Insert Shift:=xlDown
            Range("M" & i + 5).Value = "COMPTA"
            i = i + 5
            DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row        Else
            'Insertion d'une ligne cas avec une ligne
            Call Insertion_Amort1Ligne(i)
            Range("B" & i + 1).Value = dateAmortDero
            '- Montant + VNC
            Range("J" & i + 1).Value = -Range("J" & i).Value + Range("N" & i)
            Range("C" & i + 1).Value = "Amortissement"
            'Incrémenter le i de façon à reprendre le parcours après les lignes insérées
            i = i + 1
            DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row        End If
    End If
 Next i

En gros cette procédure me permet d'ajouter des lignes dans un tableau et de procéder à une mise en forme.
Je fais donc une boucle POUR pour parcourir mon tableau je parcours jusqu'à la fin de mon tableau (DerniereLigne)... cependant comme je fais des ajouts ma fin de tableau change ...j'ai donc recalculé la fin de tableau à chaque fin de traitement (dans ma variable DerniereLigne) cependant ma boucle pour ne le prend pas en compte...

Comment faire??

Merci d'avance

15/11/2010, 15h59
aliasjadawin

Est que se passe t'il si tu mets cette instruction au début de ta boucle for ?
15/11/2010, 16h01
juju1988

L'instruction

Code:

DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

?
Si je la supprime de mes deux boucles et que je la met juste sous le for ???

Si c'est ça cela ne change rien ... :calim2:
15/11/2010, 16h19
aliasjadawin

désolé... alors essaye de déclarer explicitement cette variable et utilise la commande set pour la réinitialiser.
Sinon je ne vois rien d'autre...
Et est ce qu'il ne vaut mieux pas définir ta variable comme ça:

DerniereLigne=Rows.Count

Il me semble que cela revient au même.
15/11/2010, 16h25
juju1988

Non le rows.count me compte toutes les lignes de mon tableau je ne veux que celles qui sont remplies ...
Tu veux dire :

Code:

Set DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

??

Si oui cela ne fonctionne pas mais me met une erreur : "Objet Requis"

Pas sur que le for permette une modification en dynamique de la limite finale. Déjà, les modifications en dynamique du compteur sont hautement déconseillées.

un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 i = 13 DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row dateAmortDero = "31/12/2009" do until i >= DerniereLigne If Range("A" & i).Value <> "" Then (.../...) End If i = i + 1 loop
me parait plus adapté. le i=i+1 est à mettre EN PLUS des éventuels i=i+1 que tu as déjà. Le (.../...) correspond au contenu de ton grand if/endif.

Salut.

@ alias... : Rows.count renvoie le nombre de lignes de la feuille (65536 XL<2007, 1048576 XL >=2007)...

juju

Le prolème, c'est que tu ajoutes des lignes durant ta boucle, donc, tu as un problème avec DerniereLigne.

Perso, j'imaginerais mieux une boucle du style
Code:

1 2 3 4 5 6 7 8 9 DerniereLigne = cells(rows.count,1).end(xlup).row i = 13 do while i <= DerniereLigne ' ou <, à voir selon le contexte ... ... Insertion_Amort2Lignes(i) ' Call n'est pas nécessaire DerniereLigne = DerniereLigne + 2 ... loop

15/11/2010, 16h30
babaothe

salut

- il n'est jamais vraiment adroit de modifier la valeur du paramètre "compteur" ta variable i) au sein d'une boucle.
Tu as des problèmes avec tes insertions de lignes ? Je créerais à la place un simple tableau dynamique. Dans sa première colonne : le N° de ligne et dans la seconde, le nombre de lignes à insérer). Une fois ma boucle terminée, j'insèrerais mes lignes, en partant du bas, et en exploitant les données de monb tableau
Du coup, je traiterais par une boucle sur la plage (définie d'emblée), du genre

Code:

For each cellule in laplage

et utiliserais Offset partout où tu utilises des formules genre

Code:

Range("B" & i + 2).Value = dateAmortDero

Voilà déjà, parmi d'autres remarques (moins importantes)

J'ai modifié ma procédure en utilisant à la place du For un Do While puisque effectivement si je me rappelle bien mes cours de BTS on utilise la boucle for quand on sait le nombre de fois qu'on veut l'utiliser donc bon voilà :

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
Private Sub btn_dupliquer_Click()
Dim i As Integer
Dim dateAmortDero As String
Dim DerniereLigne As Long
 
DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
dateAmortDero = "31/12/2009"
MsgBox (DerniereLigne)
i = 13
Do While i <= DerniereLigne
 
        If Range("A" & i).Value = Range("A" & i + 1).Value Then
            'Insertion de deux lignes cas où deux lignes existent déjà
            Call Insertion_Amort2Lignes(i)
            Range("B" & i + 2).Value = dateAmortDero
            '-Montant + VNC
            Range("J" & i + 2).Value = -Range("J" & i).Value + Range("N" & i)
            Range("C" & i + 2).Value = "Amortissement"
            Range("C" & i + 2).EntireRow.Copy
            Selection.Insert Shift:=xlDown
            Range("B" & i + 3).Value = dateAmortDero
            '-Dero
            Range("J" & i + 3).Value = -Range("R" & i).Value
            Range("C" & i + 3).Value = "Dérogatoire"
            'Incrémenter le i de façon à reprendre le parcours après les lignes insérées
            Rows(i + 2).Select
            Selection.Copy
            Rows(i + 4).Select
            Selection.Insert Shift:=xlDown
            Range("M" & i + 4).Value = "COMPTA"
            Rows(i + 3).Select
            Selection.Copy
            Rows(i + 5).Select
            Selection.Insert Shift:=xlDown
            Range("M" & i + 5).Value = "COMPTA"
            i = i + 6
            DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
        Else
            'Insertion d'une ligne cas avec une ligne
            Call Insertion_Amort1Ligne(i)
            Range("B" & i + 1).Value = dateAmortDero
            '- Montant + VNC
            Range("J" & i + 1).Value = -Range("J" & i).Value + Range("N" & i)
            Range("C" & i + 1).Value = "Amortissement"
            'Incrémenter le i de façon à reprendre le parcours après les lignes insérées
            i = i + 2
            DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
        End If
Loop
End Sub

En plus, je vois que c'est ce que la plupart d'entre vous me proposent ... donc c'est cool :)
Si vous avez des remarques y'a pas de soucis ... ma procédure fonctionne sinon :)
Merci pour vos réponses