Discussion :

[Craquos]

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

[Invité]

Salut,

Tu ne peux pas avec For Each, utilise For dans ce cas.

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
 
Public Type Sites
    Nom As String
    Data As String
    Voix As String
    Range1 As Range
End Type
Private Sites(1 To 5) As Sites
 
Sub Test()
    For i = LBound(Sites) To UBound(Sites)
        Sites(i).Data = "Data" & i
    Next
    MsgBox Sites(3).Data
End Sub

[Craquos]

Salut,

Ok avec For, mais si je comprend bien pour définir les caractéristiques de chaque site, comme la data, je dois effectuer des boucles comme ceci pour chaque critère?

Car, peut être ce n'était pas assez clair, mais mon but est de pouvoir mettre en place une boucle sur ma liste d'instructions qui est assez conséquente et répétitive.

Pour ce faire j'ai besoin de généraliser toutes les infos variables (avec le type Sites), puis dans mon tableau. Tu me proposes de boucler pour renseigner ses infos c'est bien ca?

[edit]
En fait c'est bon je pense avoir trouvé la bonne méthode, merci pour le for ça marche bien en effet.

Par curiosité sais-tu pourquoi le for each ne marchait pas? Question de domaine de définition?

[Marc-L]

Bonjour, bonjour !

Mauvaise définition de la portée de la variable, facile pourtant à contrôler en mode pas à pas (via la touche F8) …

[Invité]

bonjour,
je ne suis pas sur que travailler autour d'un type personnalisé soit la meilleur solution; car je voie que tu applique ton type à un AutoFilter! que veux tu faire avec cet AutoFilter?

il pourrait être utile de nous en dire un peut là dessus!

[Craquos]

Bonjour,

Je ne l'ai pas mis encore mais j'ai résolu mon problème , tout fonctionne depuis que j'ai changé le for each avec un for next classique.

Sinon, l'Autofilter me sert à filtrer certains champs, que je copy ensuite pour effectuer des calculs dessus.

Par curiosité, par quoi remplacerais-tu le type ?