Bonjour à tous!
Je souhaite analyser plusieurs chaînes de caractères (par exemple 1000 sur la colonne 1) et ne retenir que celles comportant 8 chiffres consécutifs.
Il me manque une fonction qui me permette d'analyser la position d'un caractère dans la chaine, sauriez vous si elle existe? Voici un exemple pour mieux voir:
For i = 1 To 1000
u = 0
nbr_caracteres = Len(Cells(i, 1))
For j = 1 To nbr_caracteres
If position(cells(i,1),j) = 0 Or position(cells(i,1),j) = 1 Or position(cells(i,1),j) = 2 Or position(cells(i,1),j)= 3 Or position(cells(i,1),j) = 4 Or position(cells(i,1),j) = 5 Or position(cells(i,1),j) = 6 Or position(cells(i,1),j) = 7 Or position(cells(i,1),j) = 8 Or position(cells(i,1),j) = 9 Then
tableau(u)=position(cells(i,1),j)
u = u + 1
If u = 8 Then
clef = True
End If
Else
u = 0
End If
Next
tableau2(r)=tableau(0)+tableau(1)+tableau(2)+tableau(3)+tableau(4)+etc+tableau(7)
r=r+1
Next
Merci d'avance pour vos réponses
Je souhaite analyser plusieurs chaînes de caractères (par exemple 1000 sur la colonne 1) et ne retenir que celles comportant 8 chiffres consécutifs.
Il me manque une fonction qui me permette d'analyser la position d'un caractère dans la chaine, sauriez vous si elle existe? Voici un exemple pour mieux voir:
For i = 1 To 1000
u = 0
nbr_caracteres = Len(Cells(i, 1))
For j = 1 To nbr_caracteres
If position(cells(i,1),j) = 0 Or position(cells(i,1),j) = 1 Or position(cells(i,1),j) = 2 Or position(cells(i,1),j)= 3 Or position(cells(i,1),j) = 4 Or position(cells(i,1),j) = 5 Or position(cells(i,1),j) = 6 Or position(cells(i,1),j) = 7 Or position(cells(i,1),j) = 8 Or position(cells(i,1),j) = 9 Then
tableau(u)=position(cells(i,1),j)
u = u + 1
If u = 8 Then
clef = True
End If
Else
u = 0
End If
Next
tableau2(r)=tableau(0)+tableau(1)+tableau(2)+tableau(3)+tableau(4)+etc+tableau(7)
r=r+1
Next
Merci d'avance pour vos réponses