Bonjour,

Dans un souci d'optimisation je souhaiterai boucler sur un tableau de type personnalisé, j'éprouve cependant des difficultés dans l'implémentation/syntaxe de ma boucle.

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
46
47
48
49
50
51
52
'Je définis mon type  "Sites"

Public Type Sites

Nom As String
Data As String
Voix As String
Range1 As Range
[etc]
End Type

'Je créer mon tableau de ce type
Sub DefinirSites()

Dim Site(5) As Sites

With Site(0)
.Nom = "Argenteuil"
.Data = "<>*TelephonieWifi*"
.Voix = "*TelephonieWifi*"
Range1 = "E9"

End With

With Site(1)

[blabla]

End With

[etc etc]

End Sub

'Ici j'essaye de parcourir ce tableau avec une boucle for each
Sub MaBoucle

For each i in Site(i)  'ici en mode débogueur il indique Sub ou Fonction non définie pour "Site(i)"...?

'On filtre selon les sites 
ActiveSheet.Range("$A$1:$Q$400000").AutoFilter Field 12, Criterial:= _
"=*" & Site(i).Nom & "*", Operator:=x1And

'On filtre selon le SSID
ActiveSheet.Range("$A$1:$Q$400000").AutoFilter Field 13, Criterial:= _
"=*" & Site(i).Data & "*", Operator:=x1And

[ensemble d'instructions]

Next i

End Sub
Voila où j'en suis, est-ce possible de boucler sur un tableau contenant des types personnalisés, et si oui avez vous des pistes ou des documents à me conseiller car avec ce que j'ai lu je n'ai pas trouvé la réponse encore...

Merci d'avance

Antoine