methode select de la classe range a échoué
bonjour,
Ma solution souffrait un inconvénient pour un nombre de lignes situé entre 50 et 100.
la solution ci-dessous encore plus simplifiée donne totale satisfaction selon mes essais
cerise sur le gateau, les deux lignes précédemment rajoutées après feuil2............. deviennent inutiles.
je pense que c'est ce que voulait faire comprendre Bbil en écrivant : "ben je crois que tu as la solution"
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Last = Feuil2.Range("A" & Application.Rows.Count).End(xlUp).Row
If Feuil2.Cells(Last, "A") <> "Total Général" Then
Feuil2.Cells(Last + 1, "A").EntireRow.Insert (xlShiftDown) '**Permet d'étendre la zone d'impression
Feuil2.Cells(Last + 1, "A") = "Total Général"
With Feuil2.Range(Feuil2.Cells(Last + 1, "A"), Feuil2.Cells(Last + 1, "E"))
.Interior.ColorIndex = 45
.Font.Bold = True
End With
If I = 0 Then Set Cpb = Feuil2.Cells(2, 1)
Feuil2.Cells(Last + 1, "C") = "=SUM(C" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":C" & Last & ")+C5"
Feuil2.Cells(Last + 1, "D") = "=SUM(D" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":D" & Last & ")+D5"
Feuil2.Cells(Last + 1, "E") = "=SUM(E" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":E" & Last & ")+E5"
End If |
Cordialement
methode select de la classe range a échoué
bonjour,
Je n'ai pas constaté de calculs erronés sur les essais que j'ai fait.
Par contre, j'ai constaté un comportement erratique de la boucle "for pb in .....".
A savoir, que souvent elle ne fait qu'un premier passage et de ce fait ignore certains sous totaux.
Je suis allé voir dans l'aide EXCEL et j'ai recopié l'exemple donné. le comportement semble tout aussi aléatoire.
Peut-être des membres du forum pourraient-ils répondre à ce hic.
En attendant, je pense qu'il serait préférable de boucler sur le résultat entier de la division "nbr lignes fichier / nbr lignes page".
code de l'aide microsoft:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub essai()
Feuil1.Select
ActiveSheet.ResetAllPageBreaks 'mon ajout qui semble avoir amélioré le comportement
'Range("a2").CurrentRegion.Select
Feuil1.PageSetup.PrintArea = "$A$1:" & Range("E" & Rows.Count).End(xlUp).Address 'mon ajout
cfull = 0: cpartial = 0
For Each pb In Feuil1.HPageBreaks
If pb.Extent = xlPageBreakPartial Then
cfull = cfull + 1
Else
cpartial = cpartial + 1
End If
Next
MsgBox cfull & " full-screen page breaks, " & cpartial & _
" print-area page breaks"
End Sub |
cordialement,
methode select de la classe range a échoué
re.....,
Problème sous totaux au comportement erratique.
Il parait certain que cela ne fonctionne correctement que si l'ensemble du fichier est visible à l'écran.
Pour ce faire, rajouter les trois premières lignes du code ci-dessous avant l'instruction existante (4ème ligne) décrivant l'adresse de la plage à imprimer
Code:
1
2
3
4
| Feuil2.ResetAllPageBreaks 'purge les sauts de page existants
Feuil2.Range("a2").CurrentRegion.Select 'selection l'ensemble du fichier
ActiveWindow.Zoom = True 'fait un zoom total
Feuil2.PageSetup.PrintArea = "$A$2:" & Range("E" & Rows.Count).End(xlUp).Address '"$F$52" |
A la sortie restituer un zoom 100%
Code:
1
2
| ActiveWindow.Zoom = 100
End Sub |
Sinon, j'ai recontrôlé les résultats: pour ce qui me concerne, ils sont bons.
Par contre, il y a un réglage à faire sur la position des sous totaux et des reports.
En effet, le premier sous total additionne 50 cellules et les suivants 48 cellules.
Même si l'on tient compte du fait que le calcul commence à la deuxième ligne, il reste un écart de 1 ligne.
cordialement.
