Nombre d’occurrence dans une cellule + insertion de ligne
Bonjour à tous,
Ci_joint un exemple du fichier excel sur lequel je travail :
Description du besoin :
Dans un premier temps pour chaque cellule de la colonne "S", (on prend une variable X compris en 0 et 9)
je cherche à compter le nombre d'occurrences Y commençant par : "XX-XX-XXXX XX:XX:XX - "
Si par exemple il y a Y = 3 occurrences dans la cellule, je voudrais que Y-1 lignes s'ajoutent en dessous de la ligne concerné.
Dans un secondes temps j'aimerais que les lignes suivantes insérées, recopies les informations de chaque colonne de la ligne principale, sauf pour les cellule "S" ou il faudrait que n’apparaissent que les chaînes de caractères commençant par une occurrence Y.
Exemple :
S1= "30-01-2015 11:09:04 - Kadoc PERCEVAL (Additional comments) "Bonjour, ...t" 30-01-2015 11:05:04 - Bruno SOLO (Work notes) Suivi 08/01/15 16:50"
Action Macro :
S1 = 30-01-2015 11:09:04 - Kadoc PERCEVAL (Additional comments) "Bonjour, ...t"
S2 = 30-01-2015 11:05:04 - Bruno SOLO (Work notes) Suivi 08/01/15 16:50"
En attente de vos réponses, je reste disponible pour des compléments d'informations.
Je m'excuse pour mes faibles connaissances en la matière et vous remercie par avance de votre aide.
Bonjour,
un essai.
Les chaines se retrouvent en sens inverse de leur apparition dans la cellule.
Si c'est impératif de conserver l'ordre il faudra compléter le code.
eric
Bonjour,
D'abord merci à toi Eric, j'ai pas mal bossé sur ton code (j'ai surtout passé ma mâtiné à le déchiffrer ^^)
En effet c'est impératif qu'il soit conservé dans l'ordre, du coup j'ai bossé sur ta base mais je rencontre un problème et je bloque.
Contrairement à toi, les lignes créées ne sont pas prises en compte dans ma boucle, pour appliquer une nouvelle insertion
Ci joint mon export avec la macro modifiée :
Il me faudrait une insertion de ligne avec un listing en cellule "S" comme ceci :
XX-XX-XXXX XX:XX:XX - Kadoc PERCEVAL
XX-XX-XXXX XX:XX:XX - Bruno SOLO
XX-XX-XXXX XX:XX:XX - Carlos ROBERT
XX-XX-XXXX XX:XX:XX - Elie SEMOUN
XX-XX-XXXX XX:XX:XX - Jean COLUCHE
XX-XX-XXXX XX:XX:XX - Florence FORESTI
XX-XX-XXXX XX:XX:XX - Laetitia CASTA
XX-XX-XXXX XX:XX:XX - Joséphine ARMAND
Voici mon code :
Option Explicit
Sub traiter()
Dim lig As Long, s As String, pos As Long
For lig = Cells(Rows.Count, "S").End(xlUp).Row To 1 Step -1
s = Cells(lig, "S")
Do
pos = InStr(Mid(s, 23), " - ")
If pos Then
Rows(lig).Copy
Rows(lig).Insert Shift:=xlDown
Cells(lig + 1, "S") = Right(s, Len(s) - (pos + 2))
s = Left(s, pos)
Else
Cells(lig, "S") = s
End If
Loop Until pos = 0
Next lig
End SubMerci de vos retours
- est-ce que les seuls ":" sont ceux des heures ?
- est-ce que les seuls "-" sont ceux du séparateur ou des dates ?
- est-ce que " - " peut se retrouver dans les chaines découpées ?
- peut-on insérer une colonne pour séparer date-heure de la chaine ?
eric
Bonjour Eric et merci de ta réponse rapide,
- est-ce que les seuls ":" sont ceux des heures ?
Non malheureusement chaque personne peut y entrer manuellement un commentaire ou un action qui peut incorporer des ":"
- est-ce que les seuls "-" sont ceux du séparateur ou des dates ?
Non plus pour les mêmes raisons
- est-ce que " - " peut se retrouver dans les chaines découpées ?
Oui pour les mêmes raisons
Sinon le tri doit-il être date-heure ? Si oui :
- peut-on insérer une colonne pour séparer date-heure de la chaine ?
Non désolé, il faut garder exactement le même formalisme de colonne
Tout ceci est pour un export logiciel en csv (cette partie de macro est OK)
Globalement le format de séparation est bien celui-ci : "XX-XX-XXXX XX:XX:XX - "
Bonjour jean-baptiste et eriic,
un essai de ma part à tester.
CTRL+d pour l'acdtiver.
Cordialement.
Si toutes les dates sont le même jour c'est une bonne idée bigdaddy.
Sinon ma nouvelle version.
eric
Nikel, c'est exactement ce qu'il me fallait
Un grand merci à vous deux
Bien joué Eriic j'avais pas pensé chapeau