au secours, trop de calcul sur une feuille !!!

stanmat · 9 Février 2010

Qui pourrais m'aider?
je vient de créer une entreprise de peinture en bâtiment ,et j'utilise un classeur excel pour réaliser mes devis et factures, ce classeur je l'ai fait tout seul ou presque , puisque j'ai utiliser le forum pour la réalisation de quelques macros et présentations de formules...
mon classeur fonctionne , mais reste très lent et souvent ce met à planter avec la perte de mes données
j'ai en moyenne 7 cellules qui contiennent différents calculs sur environ 500 lignes, tous ça pour tenir compte des différentes pièces et différents supports ainsi que les différents qualités de travail demander .
Et le tous se renvois toujours a d'autre feuilles de mon classeur
Au final ça rame ? beaucoup .
De plus ma feuille "client" avec liste de chois ne fonctionne plus , pourquoi ?
donc si une personne pourrais m'aider , HELP ME !!!
je posterais mon fichier si vous en faite la demande!
bien cordialement stanmat

fhoest · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

bonjour,
voici le code pour effacer ou plutot masquer tes lignes L=0

Code:

Sub Masquage_Ligne[COLOR="Red"]L[/COLOR]()
For i = 21 To Range("f65536").End(xlUp).Row
If Cells(i, [COLOR="Red"]12[/COLOR]) = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub

pour moi inutile de mettre
Rows(i & ":" & i).Select juste ceci suffit : Rows(i).Select.

Pour ton affichage de toutes les lignes tu utilises 3 boutons différents et 3 sub différents avec le même code
Sub Affichage_Toutes_Lignes() supprime les deux autres sub() et redéfinis à tes boutons de commande des diverses feuilles le même sub ci-dessus.
la même chose pour le masquage de tes lignes 3 boutons (3 sub() )
tu va encore gagner des Ko sur ton fichier.

A bientot

Staple1600 · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

Bonsoir

A bas les Select 😉

On peut encore réduire
(voir ci-dessous)

Code:

Sub Masquage_LigneL()
For i = 21 To Range("f65536").End(xlUp).Row
Rows(i).Hidden = (Cells(i, 12) = 0) 
Next i
End Sub

fhoest · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

bonjour staple
de nouveau a bas les "select"
question pourquoi es ce qu'il ralentissent un code es ce qu'il prenne beaucoup de mémoire ou de place..
A+

Staple1600 · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

Bonsoir

S'il s'agit de masquer les lignes vides

Code:

Sub Masquage_LigneL2()
[F21].Resize([F65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Si tu t'intéresses à la question de l'optimisation du code VBA, je te conseille (entre autre) la lecture de ceci

stanmat · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

Merci pour vos suggestion , je les test dessuite.
mon entreprise demarre bien c'est pour cela que je ne suis pas tours présent quand vous poster un message, mais je vous en remercie encore de votre aide

stanmat · 12 Février 2010

Re : au secours, trop de calcul sur une feuille !!!

merci ça marche , je vous souhait un bon week-end et a plus si j'ai encore besoin d'aide

au secours, trop de calcul sur une feuille !!!

stanmat

Guest

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

stanmat

Guest

stanmat

Guest

Discussions similaires

au secours, trop de calcul sur une feuille !!!

stanmat

Guest

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

stanmat

Guest

stanmat

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency