Optimisation du code

Version imprimable

Bonjour, voici un code que j'utilise dans une macro :

J'exécute la macro tant que la cellule n'est pas vide (do while loop).
Ensuite je vérifie si la valeur de la combobox1 est égale à la cellule recherchée,
si oui je vérifie si la valeur de la combobox2 est égale à tous alors j'ajoute 1 à val.
sinon si la valeur de la combobox2 est égale à la cellule recherchée alors j'ajoute 1 à val.
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 Private Sub ComboBox1_Change() Dim d As String Dim d2 As Date Dim val As Single d = Worksheets("Feuil1").ComboBox2.Value d2 = Worksheets("Feuil1").ComboBox1.Value Worksheets("copie warehouse").Activate Sheets("copie warehouse").Range("DR1").Activate Do While ActiveCell(4, 1) <> "" If ActiveCell(4, 1) = d2 Then If d = "Tous" Then val = val + 1 End If If ActiveCell.Offset(3, -34) = d Then val = val + 1 End If End If ActiveCell.Offset(1, 0).Select Loop Worksheets("Feuil1").Activate Range("G8").Activate ActiveCell(1, 1) = val val = 0 End Sub
J'aimerai optimiser ce code parce que j'ai 10-15 codes similaires dans une macro qui va s'effectuer sur les combobox. Dans la base de données il y a 1000 lignes excel.
Est-ce que quelqu'un pourrait m'aider?
Merci.

16/05/2007, 11h42
ouskel'n'or

Déjà, change le nom de ta variable Val. C'est un mot clé, un fonction de surcroît, et il est toujours déconseillé de les utiliser comme variables.
Je regarde le reste de ton code.

Tiens, juste pour le principe. J'ai eu du mal avec tes offset (!)

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
Private Sub ComboBox1_Change()
Dim d As String
Dim d2 As Date
Dim Laval As Single
Dim Fl1 as worksheet
Dim Plage as range, Cell as range
     Set Fl1 = Worksheets("Feuil1")
     d = FL1.ComboBox2.Value
     d2 = FL1.ComboBox1.Value
     Set Plage = Fl1.Range("DR4:DR" & FL1.Range("DR4").End(xlDown).Row)
    For Each Cell In Plage 'ou cell est la cellule "examinée"
    'Comme Plage démarre à DR4, tes offsets doivent le prendre en compte.
    'J'ai essayé de comprendre pour adapter mais tu vérifies.
    'Pour ça, il suffit de savoir que Cell.row te donne le N° de ligne en cours
    
        If Cell.Offset(0, 1) = d2 Then
            If d = "Tous" Then
                 LaVal = LaVal + 1
            End If
    
            If Cell.Offset(-1, -34) = d Then '
                 LaVal = LaVal + 1
            End If
     
        End If
    Next
    
    Worksheets("Feuil1").Range("G8").Offset(1, 1) = LaVal
    LaVal = 0

End Sub

A+

16/05/2007, 12h25
titelou

Merci je vais tester cela.
J'ai tellement de code sur cette macro qu'elle prend un temps fou parce que je dois vérifier d'autre chose également donc il faut que j'optimise au max mon code. Merci pour ton aide!
16/05/2007, 12h38
titelou

Voila, j'ai testé mais j'ai une erreur.

Code:

d = Fl1.ComboBox2.Value

Il me met erreur de compilation :
Membre de méthode ou de données introuvable.

Je ne sais pas trop pourquoi.

Désolé, je t'ai fourvoyé, :oops: j'ai oublié que ton combo est dans une feuille de calculs et que son code est dans la feuille de code de celle-ci.
Garde ta syntaxe mais garde l'instance de la feuille, tu en as besoin pour Plage.
Code:

1 2 3 4 5 6 7 8 9 Private Sub ComboBox1_Click() Dim d As String Dim d2 As Date Dim Laval As Single Dim FL1 Dim Plage As Range, Cell As Range Set FL1 = Worksheets("Feuil1") d = Worksheets("Feuil1").ComboBox2.Value d2 = Worksheets("Feuil1").ComboBox1.Value
Désolé
A+