Optimisation possible ? VBA sur ExcelRésolu

Question

ATitus_

Bonjour .

En regardant ici et la sur le net , j'ai pu bricoler ce petit bout de code .
(En fait j'avais demand&#233; un petit coup de main plus bas sur le Forum ).

Ce truc sert &#224; chercher sur une Plage de donn&#233;es et ligne par ligne le nombre de fois ou sont sorties 3 Valeurs Ensembles , ces  valeurs etant au choix de l'utilisateur.

En fin de Calcul on affiche le nombre de sorties trouv&#233;es &#224; 0 / 1 / 2 / 3 

Ici je passe par un tableau mis en memoire, ce qui largement plus rapide que la lecture ecriture sur Cellules de la Feuille.

Toutefois est'il possible d'optimiser encore ce code,  soit pour le rendre plus rapide , soit pour avoir un "Code plus Propre" ?

Merci pour toute infos .

'------------
Dim Tabl
Dim I As Long, J As Long
Dim x1 As Integer, x2 As Integer, x3 As Integer
Dim Qt&#233;0 As Integer, Qt&#233;1 As Integer, Qt&#233;2 As Integer, Qt&#233;3 As Integer
'------------
VAL1 = Range("l1").Value
VAL2 = Range("M1").Value
VAL3 = Range("N1").Value
Tabl = Range("A1:J20000").Value
'----------------------------------------------------
        For I = 1 To 20000  '<=-1------LIGNES TT
            For J = 1 To 10 '<=-2------Colonnes TT
'---------------------------------------------------
 If Tabl(I, J) = VAL1 Then '<----Valeur 1 L1
   x1 = 1
 '
 ElseIf Tabl(I, J) = VAL2 Then '<----Valeur 2 M1
   x2 = 1
 '
 ElseIf Tabl(I, J) = VAL3 Then '<----Valeur 3 N1
   x3 = 1
 '
 End If
  '
  Next J '<=-2----------------Boucle COLONNES
  '
         If x1 + x2 + x3 = 1 Then
          Qt&#233;1 = Qt&#233;1 + 1
  
     ElseIf x1 + x2 + x3 = 2 Then
          Qt&#233;2 = Qt&#233;2 + 1

     ElseIf x1 + x2 + x3 = 3 Then
          Qt&#233;3 = Qt&#233;3 + 1
 
     Else: Qt&#233;0 = Qt&#233;0 + 1

     End If
       x1 0: x2 0: x3 = 0
   '
Next I '<=-1-----------------Boucle Lignes
'
'------------SORTIE BOUCLE & AFFICHAGE RESULTAT
'
[O1] = Qt&#233;0: [P1] = Qt&#233;1: [Q1] = Qt&#233;2: [R1] = Qt&#233;3
'
'
End Sub

ATitus_

Afyn · Accepted Answer

He bien commence par remplacer tes integer par des long

A+

Afyn - Navedac

mrdep1978 · Answer

Pour la propret&#233;, il faudrait :
- d&#233;clarer les variables val1, val2, val3
- Modifier la d&#233;claration de Tabl pr qu'on sache ce qu c'est : Dim Tabl() As Variant
- Je pr&#233;f&#232;re des Select ... Case ... End Select &#224; des If .... Elsif ....End If, mais c'est une question de choix
 Select Case Tabl(I, J)
        Case Val1   '<----Valeur 1 L1
            x1 = 1
        Case Val2   '<----Valeur 2 M1
            x2 = 1
        Case val3   '<----Valeur 3 N1
            x3 = 1
        Case Else
End Select

Pour l'optim, si tu n'as pas besoin des 20000 lignes, je te conseille ceci pour d&#233;finir ton tableau :
'Tabl = Range("A1:J20000").Value
'Travaille avec la derni&#232;re ligne utilis&#233;e de la feuille Excel
Tabl = Range("A1:J" & UsedRange.Rows.Count).Value
'----------------------------------------------------
For I = 1 To UBound(Tabl, 1) '20000  '<=-1------LIGNES TT
    For J = 1 To UBound(Tabl, 2) '10 '<=-2------Colonnes TT
'---------------------------------------------------

Aspect d'optim, mais qui apporte un gain proche de 0 :
Ca &#233;vite de faire 4 fois le calcul x1 + x2 + x3 (il le faisait &#224; chaque test)
A la place de         
   If x1 + x2 + x3 = 1 Then
          Qt&#233;1 = Qt&#233;1 + 1
  
     ElseIf x1 + x2 + x3 = 2 Then
          Qt&#233;2 = Qt&#233;2 + 1

     ElseIf x1 + x2 + x3 = 3 Then
          Qt&#233;3 = Qt&#233;3 + 1
 
     Else: Qt&#233;0 = Qt&#233;0 + 1

     End If

Faire :
   li_Tot = x1 + x2 + x3
    Select Case li_Tot
        Case 1
            Qt&#233;1 = Qt&#233;1 + 1
        Case 2
            Qt&#233;2 = Qt&#233;2 + 1
        Case 3
            Qt&#233;3 = Qt&#233;3 + 1
        Case Else
            Qt&#233;0 = Qt&#233;0 + 1
    End Select

mrdep1978 · Answer

Euh Afyn, c'est pas l'inverse que tu veux dire ? Remplacer les long par des Integer ?

cs_ATitus · Answer

ATitus_

Bonjour .

Merci pour les conseils, je vais parfaire le Macro .

@ + 

ATitus_

Afyn · Answer

- > mrdep

Non je pense que c'est plus rapide avec des long (32bits)

-> Atitus

Poste un fichier excel d'exemple, on verra ce qu'il est possible de faire

A+

Afyn

Optimisation possible ? VBA sur Excel

5 réponses

Discussions similaires