Boucle sur checkbox (module de classe)

Version imprimable

Voir 40 message(s) de cette discussion en une page

27/04/2014, 08h44
Invité

Bonjour Mercatog,:ccool:

Je ne te remercierai jamais assez. En effet, la mise à jour de BD1 est lente (11-12s) chez moi. Elle est moins lente chez toi (7-8s).
Car j'ai un vieux tacot Acer encore sous XP et auquel j'ai dû rajouter de la Ram.

Avec tout ce que j'ai pu découvrir avec toi, les tableaux étaient beaucoup plus rapidement. Dans ce cas je constate que cela dépend aussi du traitement effectué.

C'est exactement le résultat que j'attendais, pour la célérité je n'ai pas le choix je vais faire avec.

Je ne vais t'en demander plus, encore merci et bon dimanche.

Cordialement,

Améliore la rapidité de la mise à jour en remplaçant la procédure TestOnOff par celle-ci. Moins jolie mais plus rapide

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
46
47
48
Sub TestOnOff(ByVal App As String, ByVal Etat As Boolean, Optional OCK As Boolean)
Dim LastLigD As Long, LastLigB As Long, i As Long, j As Long
Dim Ws As Worksheet
Dim Tb, Td
 
With ThisWorkbook.Worksheets("APP")
    LastLigD = .Cells(.Rows.Count, "A").End(xlUp).Row
    Td = .Range("A2:F" & LastLigD)
End With
 
If OCK Then
    Set Ws = ThisWorkbook.Worksheets("BD1")
Else
    Set Ws = ThisWorkbook.Worksheets("BD")
End If
 
With Ws
    LastLigB = .Cells(.Rows.Count, "B").End(xlUp).Row
    Tb = .Range("B2:L" & LastLigB)
    For i = 1 To LastLigD - 1
        For j = 1 To LastLigB - 1
        If Td(i, 6) = App Then
            If Td(i, 1) = Tb(j, 1) Then
                If Td(i, 2) = Tb(j, 2) Then
                    If Td(i, 3) = Tb(j, 3) Then
                        If Int(Td(i, 4)) = Int(Tb(j, 4)) Then
 
                            If Etat Then
                                If InStr(Tb(j, 6), App) = 0 Then Tb(j, 6) = Trim(Tb(j, 6) & " " & App)
                                If OCK Then Tb(j, 11) = Trim(Replace(Tb(j, 11), App, ""))
                            Else
                                Tb(j, 6) = Trim(Replace(Tb(j, 6), App, ""))
                                If OCK Then
                                    If InStr(Tb(j, 11), App) = 0 Then Tb(j, 11) = Trim(Tb(j, 11) & " " & App)
                                End If
                            End If
 
                        End If
                    End If
                End If
            End If
        End If
        Next j
    Next i
    .Range("B2:L" & LastLigB) = Tb
End With
Set Ws = Nothing
End Sub

28/04/2014, 08h15
Invité

Bonjour Mercatog,

Tu m'épates de plus en plus au fil des discussions. Bravo, c'est très gentil de ta part. Non c'est trop gentil.

Citation:

Bon voila le résultat qu'on on ne demande pas à comprendre et à ré-utiliser un code car comme tu le constate et je l'avais déjà mentionné il ne suffit pas de tester un code qu'on partage avec toi mais c'est une piste pour pouvoir étudier en profondeur le langage.

Vois-tu, j'ai passé toute la journée d'hier à essayer de comprendre ton code. J'ai consulté l'aide, personnellement je trouve que pour certaines choses les explications données le sont pour un public ayant un niveau avancé.

Sans être indiscret, ça fait combien de temps que tu pratiques le VBA? Est-ce que tu as suivi une formation ou es-tu autodidacte? Comme moi.
Encore moi, j'apprends à mon rythme, doucement le matin et pas trop vite le soir, ça m’essouffle. Là je plaisante.

Moi je trouve que ton dernier code est joli et efficace. "Joli", c'est de l'artifice, c'est le résultat qui compte. Et il est là, encore bravo. Je ne remercierai jamais assez.

Je te souhaite une très bonne semaine.

Cordialement,

Voir 40 message(s) de cette discussion en une page