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

[noviceAG]

Bonsoir cher Forum,
Avec ce code, je divise la somme de chaque cellule de la plage par 7
Trouvant quand même le déroulement des opérations un peu longuet, y a-t-il possibilité de l'accélérer ?

For Each Cellule In Range("AD3:AM751")
Cellule = Cellule / 7
Next Cellule

Je vous en remercie tous.

 

[CBernardT]

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

 

[noviceAG]

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

 

[jeanpierre]

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

 

[noviceAG]

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é....

 

[jeanpierre]

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

Re, Bernard,

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

 

[noviceAG]

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.

 

[soenda]

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

Bonsoir le fil, NoviceAG, CBernardT, jeanpierre

Une autre solution VBA

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

A plus

 

[noviceAG]

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.

 

[CBernardT]

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 !