Discussion :

[Mourne]

Bonjour à tous,

Dans une colonne Excel, j'ai une liste de 40 000 lignes du type:
T021
T026
T023
...


Je souhaite récupérer le nombre de séquences identiques.
Pour étre plus clair, je souhaite connaitre combien de fois, par ex, l'enchainement T021->T026 apparait dans ma colonne.

J'espère avoir été clair, n'hésitez pas à me solliciter pour avoir plus d'explications.

Je vous remercie d'avance pour tt ce que vous pourrez faire pour moi!!

[jfontaine]

peut être que cela suffira
Classeur1.xls

[Mourne]

Merci pour ton aide.

Ta solution ne me permet toutefois pas d'identifier les différentes séquences. En effet, j'ai 20000 lignes à analyser et j'ai donc besoin q'il m'affiche les différentes séquences identifiées... et leur nombre.

Merci encore pour les pistes que tu pourras me suggérer.

[jfontaine]

Essai avec ce code

La liste étant en colonne A
La colonne B servant a concatener la cellule A de la précédente ligne à la A de la ligne en cours
La colonne G étant la colonne de destinationdes liste unique
H comptant le nombre de suite trouvées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim i As Long
 
i = 1
 
'Insere la conactenation
Do While Range("A" & i).Value <> ""
    If i > 1 Then
        Range("B" & i).Value = Range("A" & i - 1).Value & Range("A" & i).Value
    End If
    i = i + 1
Loop
 
'Insere en G la liste des suites trouvées
Range("B2:B" & i - 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
    "G1"), Unique:=True
 
'Compte le nombre de suite
i = 1
Do While Range("G" & i).Value <> ""
    Range("H" & i).FormulaLocal = "=NB.SI(B:B;G" & i & ")"
    i = i + 1
Loop

J'espère que ca t'aideras