Discussion :

[relishman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[enernaej]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[relishman]

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