Vba - Accélérer la procédure ?

CBernardT

XLDnaute Barbatruc

• 27 Mars 2010

• #2

Re : Vba - Accélérer la procédure ?

Bonsoir noviceAG et le forum,

essaye avec cette macro ou la division s'effectue dans un tableau dynamique :

Sub DiviserParSept()
Dim i As Integer, j As Integer, Tablo
Tablo = Range("AD3:AM751")
For i = 1 To UBound(Tablo, 1)
For j = 1 To UBound(Tablo, 2)
Tablo(i, j) = Tablo(i, j) / 7
Next j
Next i
Range("AD3:AM751") = Tablo
End Sub

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 27 Mars 2010

• #3

Re : Vba - Accélérer la procédure ?

Bonsoir CBernardT,
Je te remercie de t'être penché sur ma demande et te souhaite une bonne soirée ainsi qu'un bon dimanche

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Mars 2010

• #4

Re : Vba - Accélérer la procédure ?

Bonsoir noviceAG,

Pas ton fichier pour tester le temps... mais,

saisir 7 dans une cellule vide et un Copier dessus.

Selection de ta plage AD3:AM751 et Collage spécial, cocher division, c'est instantané.....

Voir à mettre ceci sous macro, avec l'enregistreur..... si ta plage est fixe.

Bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 27 Mars 2010

• #5

Re : Vba - Accélérer la procédure ?

Bonsoir jeanpierre,
Je te remercie de ce que tu m'indique, mais au moment ou je fais Edition Colla spécial est en grisé....

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Mars 2010

• #6

Re : Vba - Accélérer la procédure ?

Re, Bernard,

En grisé, n'aurais-tu pas une macro évenementielle par hasard..???

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 27 Mars 2010

• #7

Re : Vba - Accélérer la procédure ?

Exact grand maître.
Je te remercie de m'avoir montré mon ignorance déjà grande.
Mais c'est enregistré.
Au plaisr.

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 28 Mars 2010

• #8

Re : Vba - Accélérer la procédure ?

Bonsoir le fil, NoviceAG, CBernardT, jeanpierre

Une autre solution VBA

Code:

Sub b
  [AD3:AM751] = [AD3:AM751 / 7]
End Sub

A plus

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 28 Mars 2010

• #9

Re : Vba - Accélérer la procédure ?

Re,
Je te remercie soenda.
Cependant maintenant, en plus de trois solutions possible, je suis dans l'embarras.
Laquelle prendre ?
Cruel dilemne !
Merci à vous tous et bon dimanche.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 28 Mars 2010

• #10

Re : Vba - Accélérer la procédure ?

Bonjour au fil,

Afin de t'aider dans ton embarras, j'ai réalisé un test sur 12 millions de cellules. C'est la macro de soenda qui, sur ma bécane, est plus rapide de 10%.

Syntaxe que je garde au chaud pour de futures macros, merci ! 🙂

 

Vote positif 0 Vote négatif