Comptage particulier dans chaîne de texte Résolu/Fermé

Question

Bonjour,

Je fais une fois de plus appel à vos lumières!

Ma nouvelle problématique :

Je cherche à faire une comptage un peu particulier dans des chaînes de texte.
Les chaînes de textes sont constituées de la manière suivante :
S1/S2/S3/S4/S5A/S5B...

Les S# correspondent à un numéro de semaine de l'année.
Les S#A et S#B (ou S##A et S##B) correspondent au numéro de semaine qui sont à cheval sur 2 mois.
Le nombre de semaine dans la chaîne est variable.
Les semaines de début et de fin sont variables.
Il y a plusieurs lignes comportant des chaînes de texte différentes et sans lien les unes avec les autres.
(Ex: 
S1/S2/S3
S1A/S2/S3A/S3B/S4/S5/S6A
S2/S3A/S3B
S1B/S2/S3A/S3B/S4/S5/S6A/S6B/S7
S1B/S2/S3A/S3B/S4/S5/S6A/S6B/S7/S8/S9/S10A
S20B/S21/S22A/S23B/S24/S25/S26A/S26B/S27/S28/S29/S30A
S20A/S20B/S21/S22A/S23B/S24/S25/S26A/S26B/S27/S28/S29/S30A
...
(je met des suites au hasard))

Mon comptage doit être fait de la manière suivante :
Si on a dans la chaîne S# ou S## on doit compter 1
Si on a dans la chaîne S##A/S##B ou S#A/S#B, on doit compter 1
Si on a S#A ou S#B ou S##A ou S##B en début ou en fin de chaîne on doit compter 1
Dans l'exemple ci-dessus, ça donne
3
6
2
7
10
10
10

La chaîne de caractère est de longueur variable.
Le nombre de S##A/S##B ou S#A/S#B est variable (il peut y en avoir 0 comme 10).
La chaîne peut commencer ou pas par un A ou B, et idem pour la fin de la chaîne. 

Je souhaite que lorsque je balaye une ligne contenant une chaîne de texte de ce type, je puisse compter (selon les critères énoncés plus haut) le nombre de semaines.

J'avais l'impression que c'était facile à programmer en VBA ce genre de test mais je me rend compte que c'est bien plus complexe qu'il n'y parait (à mes yeux en tout cas).

Auriez-vous une idée?

Merci par avance.
Bien cordialement.

yg_be · Answer

bonjour, peux-tu partager le code que tu as déjà réalisé, et expliquer quelle partie du problème te bloque? 
pour compléter ta description, peux-tu indiquer les réponses attendues pour chacun des 4 exemples?
ne serait-ce pas plus simple de faire la différence entre le numéro de la dernière et celui de la première semaine, et d'ajouter 1?

eriiic · Answer

Bonjour,

une proposition avec une fonction personnalisée.
Je suis parti du principe que la syntaxe de la chaine est toujours correcte et ne nécessite aucun contrôle. Tu peux en ajouter dans la boucle.
Function nbS(ch As String) As Long
    Dim tmp, dict, i As Long
    Set dict = CreateObject("Scripting.Dictionary")
    If ch = "" Then Exit Function
    tmp = Split(Replace(Replace(Application.Trim(ch), "A", ""), "B", ""), "/")
    For i = 0 To UBound(tmp)
        dict(tmp(i)) = 1
    Next i
    nbS = dict.Count
End Function
https://mon-partage.fr/f/l4KbRWoF/
C'est une autre voie de résolution. Simplification de la chaine, découpage, et comptage sans doublon.
Que ça ne t'empêche de poursuivre avec yg_be ça a l'air formateur et tu en tireras des bénéfices.
Et pour comprendre la mienne : touche F1. C'est très formateur aussi et une bonne habitude à prendre ;-)
eric

NoviceVBA2017 · Answer

Bonjour à vous deux,


Yg_be, c'est surprenamment simple et terriblement efficace comme approche!
J'étais en train de monter une usine à gaz qui par dessus le marché ne fonctionnait pas :-)

Eriiic, merci pour cette fonction ;-) Je vais prendre le temps de la décortiquer un peu :-)

Ce "tout petit" problème était un véritable blocage pour moi car il s'agit d'une donnée vitale pour d'autres procédures.

Alors une fois encore, merci pour vos lumières, et au plaisir de ré-échanger avec vous!

Bien à vous.

Comptage particulier dans chaîne de texte

3 réponses

Discussions similaires