tableau/variable valeurs multiples/collection

Bonjour à tous,

Bon, vous allez me dire que je suis pas sur le bon forum mais j'y suis
quand même parce que c'est ici que je trouve les bonnes réponses, le
plus vite (que de pommade passée dans le dos!) :-)

Bon, j'ai développé une petite moulinette pour mettre en forme le n° de
téléphone du carnet de contact outlook (ex : +33 (45) 678978 serait
transformé en + 33 45 67 89 78)
.

J'ai trois questions / problèmes
- caractères inutiles à supprimer dans le n° de tel d'origine
j'utilise une variable "strNoValid" à laquelle je voudrais faire
correspondre différentes valeurs lors de l'utilisation de la fonction
replace. Quelquechose du type
strNoValid = );(;; " ";
Y a t il une syntaxe permettant donc d'associer des valeurs différentes
à une seule variable? Sinon, comment faire?

- dans les contacts figurent de nombreux champs pour saisir des n° de
téléphone.
Dans le code ci-dessous, la fonction ne s'applique qu'au n° de
téléphone "entreprise" (BusinessTelephoneNumber)alors qu'il faudrait
"balayer" tous les autres champs pouvant contenir des n° de téléphone.
Comment faire (collection?)

- un pb basique mais c'est la première fois que j'y suis confronté ("un
enfant de 3 ans pourrait le résoudre" - " qu'on m'amène un enfant de
trois ans " répondit Groucho Marx).

Voulant grouper les chiffres par groupe de deux avec un espace entre
chaque groupe, je dois calculer le nombre d'itération à effectuer sur
le n° de téléphone d'origine ("nettoyé") pour constituer ensuite des
groupes de 2 chiffres + espace. Jusque là, pas de pb.
Cependant, je dois créer un tableau (dynamique ? puisque ne connais pas
le nombre d'itérations...)pour contenir ces groupes de 2 chiffres et
les concaténer en fin de traitement.
J'y ai passé du temps mais sans succès. Comment faire??



Sub numeroPropre()
Dim olItem As ContactItem
Dim objContact As MAPIFolder
Dim oSelection ' dossier sélectionné - contacts
Dim phoneNbr As String 'numero de téléphone du bureau
Dim nbrCharact 'nombre de chiffres dans le numeo après
suppression des espaces
Dim nbrIteration As Integer ' nbre d'itération à réaliser pour
traiter tous les caractères
Dim cstIntervalle As Integer ' intervalle entre 2 séries de 2
chiffres
Dim partPhoneNumber() As String ' partie de phonenumber en cours
de traitement
Dim newPhoneNbr As String
Dim strNoValid As String 'caractères à supprimer si dans n°
tel
Dim I As Integer ' compteur item
Dim Y As Integer ' compteur itérations

' On Error Resume Next
strNoValid = " "

cstIntervalle = 2
Set objNS = Application.GetNamespace("MAPI")
Set objContact = objNS.GetDefaultFolder(olFolderContacts)
Set oSelection = objContact.Items

For I = 1 To oSelection.Count
Set olItem = oSelection.Item(I)
xxx = olItem.FirstName ' pour repérage durant dvpt
phoneNbr = olItem.BusinessTelephoneNumber ' numero de
téléphone "bureau"

If phoneNbr <> "" Then ' si n° de tel présent
phoneNbr = Replace(phoneNbr, " ", "") 'supprime les
espaces
nbrCharact = Len(phoneNbr) 'longueur du n° de tel
nbrIteration = Round(((Len(phoneNbr)) / 2), 0)
'détermine le nombre d'iterations à faire
If nbrCharact <> 0 Then 's il y a un numero de
téléphone
cstIntervalle = 0 'initialiation de la
valeur
For Y = 1 To nbrIteration
cstIntervalle = cstIntervalle + 2
partPhoneNumber(Y) = Mid(phoneNbr,
(nbrCharact + 1 - cstIntervalle), 2)
newPhoneNbr = partPhoneNumber(Y) &
" " & newPhoneNbr
Next Y
' phoneNbr = newPhoneNbr
' save
newPhoneNbr = "" 'pour dvpt
uniquement
' Y = 0
End If
End If '/si n° de tel présent
Next '/I = 1 To oSelection.Count

End Sub



Merci pour vos conttributions éclairées et à bientôt.