Je ne comprends pas que ça ne marche pas ...
J'ai fait :
Code :
Set CodeChantier = New RegExp CodeChantier.Pattern = "[a-z][.]?[a-z][a-z]{ }?[0]?[0-9][0-9][0-9][0-9][0-9][0-9]" CodeChantier.IgnoreCase = True CodeChantier.Global = False For k = LigneDebutBalayage To LigneFinBalayage CodeChantierPotentiel = FeuilleJour.Cells(k, 3) Set occurrences = CodeChantier.Execute(CodeChantierPotentiel) If occurrences.Count = 1 Then CodeChantierValide = CodeChantierPotentiel End If Next
|
Ce code sert (normalement ) à regarder si dans la feuille"FeuilleJour", les cellules(k,3) où k représente une valeur de balayage s'incrémentant contiennent une valeur correspondant au regex défini. Si c'est le cas, CodeChantierValide doit prendre cette valeur, sinon, le balayage continue.
Le problème : occurences ne change jamais de valeur alors que CodeChantierPotentiel prend des valeurs qui correspondent au regex (CFR 589745 par exemple).
Vous sauriez m'aider ?
Message édité par Xocs le 25-05-2007 à 08:21:16