Optimisation du VBA

A tous, bonsoir du Québec
Premierement merci a toute la communauté de Developpez. Depuis peu je travaille sur un projet et vos post m'ont permis de progresser avec assurance. Prenez pour acquis que je ne connaissais absolument rien du VBA voila 3 semaines... Que de chemin parcouru.

Ceci dit, voici mon probleme: J'ai le code suivant que je dois répeter 16 fois dans ma page ( en changeant les references bien sûr). En fait je récupere la valeur de cellules différentes en lui attribuant une valeur de 1 a 3. En fait la valeur de la cellule ''x'' ne change pas tandis que la valeur de la cellule "z" change. Je sais pas mal bizarre, mais c'est la seule facon que j'ai trouvé de faire fonctionner tout ça..
Est-il possible de simplifier ce code car ma page se rafraichit pas mal trop longtemps a mon gout en scintillant 8 a 10 secondes pendant l'éxécution de ce vba... J'ai tenter d'imbriquer les If mais ca foire...

Merci pour les réponses

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

If Sheets("pg").Range("x59").Value = 1 And Sheets("pg").Range("z56") = 1 Then Worksheets("pg").Range("am56").Value = 2 Else Worksheets("pg").Range("am56").Value = 0 End If If Sheets("pg").Range("x59").Value = 1 And Sheets("pg").Range("z57") = 1 Then Worksheets("pg").Range("an56").Value = 2 Else Worksheets("pg").Range("an56").Value = 0 End If If Sheets("pg").Range("x59").Value = 1 And Sheets("pg").Range("z58") = 1 Then Worksheets("pg").Range("ao56").Value = 3 Else Worksheets("pg").Range("ao56").Value = 0 End If If Sheets("pg").Range("x59").Value = 1 And Sheets("pg").Range("z59") = 1 Then Worksheets("pg").Range("ap56").Value = 3 Else Worksheets("pg").Range("ap56").Value = 0 End If

---

Bonjour,
Il y a bien sûr moyen de simplifier le code par exemple en travaillant avec une boucle mais cela ne changera rien à ton problème de "scintillement".
Pour cela, il suffit de faire précéder le code par l'instruction

Code:

---

Application.ScreenUpdating = False

---

et en fin de procédure tu remets la propriéié du ScreenUpdating à True. Ce n'est pas obligatoire mais c'est plus propre.

Bonjour,

Avec la réponse de Philippe, on supprime le scintillement et on a toujours le même temps d'exécution que la zone modifiée soit visible ou non.
Si on veut optimiser le traitement, il faut passer par une copie en mémoire et regrouper de ce fait le accès aux cellules. Par exemple avec :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Dim reference As Integer Dim index_entree As Integer Dim tableau_entree() As Variant Dim tableau_sortie() As Variant   Application.ScreenUpdating = False   With Sheets("pg") reference = .Range("x59").Value tableau_entree = .Range("z56:z59").Value ReDim tableau_sortie(LBound(tableau_entree) To UBound(tableau_entree))   reference = .Range("x59").Value tableau_entree = .Range("z56:z59").Value ReDim tableau_sortie(LBound(tableau_entree) To UBound(tableau_entree))   index_entree = LBound(tableau_entree)   If reference = 1 And tableau_entree(index_entree, 1) = 1 Then tableau_sortie(index_entree) = 2 Else tableau_sortie(index_entree) = 0 End If If reference = 1 And tableau_entree(index_entree + 1, 1) = 1 Then tableau_sortie(index_entree + 1) = 2 Else tableau_sortie(index_entree + 1) = 0 End If If reference = 1 And tableau_entree(index_entree + 2, 1) = 1 Then tableau_sortie(index_entree + 2) = 3 Else tableau_sortie(index_entree + 2) = 0 End If If reference = 1 And tableau_entree(index_entree + 3, 1) = 1 Then tableau_sortie(index_entree + 3) = 3 Else tableau_sortie(index_entree + 3) = 0 End If .Range("am56:ap56").Value = tableau_sortie End With   End With   Application.ScreenUpdating = True

---

C'est plus rapide mais c'est surement moins lisible.

ouchh... ReDim, LBound, Ubound... je vais être obligé de me défragmenter pour bien absorber tout ça.. lol

Merci pour le screenupdating. Je comprends maintenant qu'il me faut utiliser des variables dans mon VBA. Implacable logique... j'essai vos astuces assuréments..