Dans le fichier joint, il y a un tableau avec plusieurs colonnes
Dans les cellules de la colonne H , il peut avoir une à plusieurs infos séparées par un tiret "-".
JE souhaiterais lors du clic sur le bouton macro que la feuille résultats se vide puis se remplisse avec les infos ayant été alors séparées et dans al colonne I , un degré soit inscrit
Ex : athlétisme - volley ball - basket
Re : Diviser des infos séparées par un "-" et inscrire un degré
Bonjour bebere
merci pour ton aide.
Il y a un problème dans la numérotation des degrés.
dans l'exemple, Monsieur K P a 3 activités, donc cela entraine degré1; degré2 et degré3
puis Monsieur C X a 2 activités donc degré 1 et degré 2 et non degré 4 et degré 5.
La numérotation se fait pour chaque personne, et il est important que la 1ère activité nommée soit estampillée degré1, la 2e degré2 etc...
voilà, peux tu essayer de voir ce problème de n° ?
merci
Re : Diviser des infos séparées par un "-" et inscrire un degré
Bonjour zbig, Bebere et le Forum,
Une solution pas optimale trouvée rapidement au boulot (je ne connais pas encore l'objet Dictionary. J'espère que quelqu'un va trouver une solution plus adaptée.
Remplacer le Case 9 par :
Code:
Case 9
St = Tbl(i, 8)
If e <> i Then d = NbrTirets(St)
e = i
Max = NbrTirets(St)
If e = i Then
d = d - 1
Max = Max - d
End If
.Cells(l, j) = "Degré " & Max
Fonction appelée
Code:
Function NbrTirets(St As String) As Integer
Dim k As Integer, Tirets As Integer
Tirets = 0
For k = 1 To Len(St)
If Mid(St, k, 1) = "-" Then Tirets = Tirets + 1
Next k
NbrTirets = Tirets + 1
End Function
Enfin rajouter
Code:
Dim St As String, e As Integer
A+ Jack2
Edition , désolé, ça ne marche pas, une des valeurs "Volley Ball" n'est triée ou pas dans l'ordre
Re : Diviser des infos séparées par un "-" et inscrire un degré
Bonjour
n'ayant que 200 lignes maxi en feuille info, je ne vois pas la vitesse de la macro.
les 2 me conviennent.
Si tu peux ajouter les commentaires, et encore mieux merci
est ce possible d'y insérer un quadrillage automatique? et le noms des champs de titres en ligne1?