[VBA Excel] identifier un motif récurrent

Version imprimable

19/10/2007, 18h57
Mourne

[VBA Excel] identifier un motif récurrent

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!!
19/10/2007, 19h12
jfontaine

1 pièce(s) jointe(s)

peut être que cela suffira
Pièce jointe 20680
19/10/2007, 20h12
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.

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:

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