Il ne s'affiche que les 2 dernieres lignes de la macro
Résolu
rimbaut
Messages postés
61
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
1 juin 2014
-
2 août 2008 à 18:41
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 2 août 2008 à 23:35
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 2 août 2008 à 23:35
A voir également:
- Il ne s'affiche que les 2 dernieres lignes de la macro
- Application de loto turbo 2 - Forum ASM
- Vba commenter plusieurs lignes ✓ - Forum Visual Basic
- Vba trouver la dernière ligne non vide ✓ - Forum Visual Basic 6
- Macro catia - Forum VBA Office (Excel, Word ...)
- Selection derniere cellule non vide plage cellule Excel - Forum Visual Basic 6
1 réponse
bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
15
2 août 2008 à 23:35
2 août 2008 à 23:35
Salut,
la ligne y2=y2+1 etait mal placee... donc voici le code corrige et simplifie
Sub TransfertAutProdexploit()
Worksheets("Balance").Activate
Dim y As Integer ' ligne dans feuille "Balance N"
Dim y2 As Integer ' Ligne dans feuille "Balance"
Dim total_annee_1 As Long
Dim total_annee_2 As Long
total_annee_1 = 0 ' Initialisation des variables
total_annee_2 = 0
y = 9
y2 = 11
With Sheets("Balance") 'ATENTION a partir d' ici tous les points sont OBLIGATOIRE
Do While Sheets("BalanceN").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule est vide
.Range("A" & y2 & ":B" & y2).Value = Sheets("BalanceN").Range("A" & y & ":B" & y).Value
.Range("c" & y2 & ":d" & y2).Value = Sheets("BalanceN").Range("e" & y & ":f" & y).Value
.Range("c" & y2 & ":d" & y2).NumberFormat = "# ##0.00"
total_annee_1 = total_annee_1 + .Cells(y2, 4).Value
total_annee_2 = total_annee_2 + .Cells(y2, 3).Value
y = y + 1 ' Compteur de la boucle, on incremente de 1
y2 = y2 + 1
Loop ' fin de la boucle
' Code qui trace les cases Total + somme des cellules et variation
.Cells(y2, 1).Value = "TOTAL" ' affectation de valeur à une cellule
.Cells(y2, 4).Value = total_annee_1
.Cells(y2, 3).Value = total_annee_2
.Range("c" & y2 & ":d" & y2).NumberFormat = "# ##0.00" ' definition du format des cellules
End With
End Sub
A+
la ligne y2=y2+1 etait mal placee... donc voici le code corrige et simplifie
Sub TransfertAutProdexploit()
Worksheets("Balance").Activate
Dim y As Integer ' ligne dans feuille "Balance N"
Dim y2 As Integer ' Ligne dans feuille "Balance"
Dim total_annee_1 As Long
Dim total_annee_2 As Long
total_annee_1 = 0 ' Initialisation des variables
total_annee_2 = 0
y = 9
y2 = 11
With Sheets("Balance") 'ATENTION a partir d' ici tous les points sont OBLIGATOIRE
Do While Sheets("BalanceN").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule est vide
.Range("A" & y2 & ":B" & y2).Value = Sheets("BalanceN").Range("A" & y & ":B" & y).Value
.Range("c" & y2 & ":d" & y2).Value = Sheets("BalanceN").Range("e" & y & ":f" & y).Value
.Range("c" & y2 & ":d" & y2).NumberFormat = "# ##0.00"
total_annee_1 = total_annee_1 + .Cells(y2, 4).Value
total_annee_2 = total_annee_2 + .Cells(y2, 3).Value
y = y + 1 ' Compteur de la boucle, on incremente de 1
y2 = y2 + 1
Loop ' fin de la boucle
' Code qui trace les cases Total + somme des cellules et variation
.Cells(y2, 1).Value = "TOTAL" ' affectation de valeur à une cellule
.Cells(y2, 4).Value = total_annee_1
.Cells(y2, 3).Value = total_annee_2
.Range("c" & y2 & ":d" & y2).NumberFormat = "# ##0.00" ' definition du format des cellules
End With
End Sub
A+
