Requin | Probablement que VBA est proche de VB / VBScript, tu dois pouvoir utiliser le code suivant :
Code :
- ' Fonction qui calcule le nombre de jours dans une chaîne de caractères
- Function NombreJours(sChaine)
- ' Déclare un tableau global à deux dimensions
- Dim aJours(1,2)
- ' Déclare des variables pour les boucles
- Dim i, j
- ' Déclare une variable pour le caractère "courrant"
- Dim cComp
- ' Intialise le tableau
- ' Colonne 1 = Libellé
- ' Colonne 2 = Lettre associée
- ' Colonne 3 = Résultat
- aJours(0,0) = "RTT"
- aJours(0,1) = "R"
- aJours(0,2) = 0
- aJours(1,0) = "Formation"
- aJours(1,1) = "F"
- aJours(1,2) = 0
- ' parcours la chaîne pour chaque type de jours (première dimension)
- For i = LBound(aJours, 1) to UBound(aJours, 1)
- cComp = UCase(aJours(i, 1)
- For j = 1 To Len(sChaine)
- If cComp = UCase(Mid(sChaine, j, 1)) Then
- ' Si une corespondance est trouvée incrémente le compteur
- aJours(i, 2) = aJours(i, 2) + 1
- End If
- Next
- Next
-
- ' retourne le tableau
- Set NombreJours = aJours
- End Function
|
Je ne l'ai pas testé, donc il y a peut-être quelques erreurs de syntaxe. J'ai utilisé un tableau pour des raison de souplesse (il est facile d'y ajouter un élément). La fonction te retourne le tableau complet, tu peux assez facilement la modifier pour qu'en second paramètre tu passe la lettre qui t'intéresse et qu'elle te retourne un entier correspondant au nombre de jours.
Si jamais la documentation de VBScript :
http://msdn.microsoft.com/library/ [...] trcomp.asp Message édité par Requin le 17-11-2004 à 11:28:52
|