Discussion :

[issoram]

Bonjour,

Je n'arrive pas à comprendre pourquoi la dernière ligne du code ci-dessous ne fonctionne pas. Impossible d'accèder à un élément de la collection par un index?....(ne fonctionne pas comme une collection classique?)

L'erreur générée est alors : "Argument ou appel de procédure incorrect"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option base 1
Dim reg As VBScript_RegExp_55.RegExp
Dim Matches As VBScript_RegExp_55.MatchCollection
 
Set reg = New VBScript_RegExp_55.RegExp
reg.Pattern = "bla"
Set Matches = reg.Execute("blabla")
 
debug.print Matches(1).Value

alors que le code suivant fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option base 1
Dim reg As VBScript_RegExp_55.RegExp
Dim Match As VBScript_RegExp_55.Match
Dim Matches As VBScript_RegExp_55.MatchCollection
 
Set reg = New VBScript_RegExp_55.RegExp
reg.Pattern = "bla"
Set Matches = reg.Execute("blabla")
 
For Each Match In Matches
         debug.print Match.Value
next Match

Merci d'avance

[pgz]

Bonjour.

L'indexation commence à 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Matches(0).Value

Cordialement,

PGZ

[issoram]

Merci,

Effectivement ça venait de ça, pourtant je travaillais avec l'option

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option base 1

qui n'affecte le comportement des indices uniquement pour les tableaux à priori

Du coup ça m'amène àune autre question: comment faire pour que les indices commencent à 1 aussi pour les collections?

Cordialement.

[pgz]

Bonjour.

L'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Base 1

ne concerne que les tableaux VBA.
A ma connaissance, il n'y a rien de tel pour les collections. MAis ce n'est pas du tout gênant. Au lieu d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to maCol.count
    ... macol(i)
NExt i

Tu peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 to maCol.count - 1
    ... macol(i)
NExt i

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to maCol.count
    ... macol(i-1)
NExt i

Cela ne fait pas grand pb, non?

PGZ

[issoram]

Oui effectivement pas d'intérêt majeur.

Juste une question d'harmonisation des écritures dans le code.

Merci pour ces réponses.