Recherche la position d'un caractère dans une chaine

[Elhem]

Bonjour à tous,

Je veut avoir la position de 1 dans une chaine de type >01001000001000010000000 et avoir chaque résultat dans une colonne. Sachant que je travaille sur Excel 2003.

Merci.
Elhem

 

[RENAUDER]

Re : Recherche la position d'un caractère dans une chaine

Bonjour,
La position duquel ? le premier ?

 

[Elhem]

Re : Recherche la position d'un caractère dans une chaine

toutes les positions de 1.

Merci pour ta réponse.

 

[RENAUDER]

Re : Recherche la position d'un caractère dans une chaine

Bonjour,

La fonction personnalisée suivante doit convenir :

Function Extract(MaChaine As String)
    Application.Volatile
    Lg = Len(MaChaine)
    For i = 1 To Lg
        If Mid(MaChaine, i, 1) = 1 Then
            Position = Position & i & "-"
        Else
        End If
    Next i
    If Len(Position) > 0 Then Position = (Left(Position, Len(Position) - 1))
    Extract = Position
End Function

 

[Elhem]

Re : Recherche la position d'un caractère dans une chaine

Merci pour votre réponse mais comment je peux intégrer cette fonction ?

 

[RENAUDER]

Re : Recherche la position d'un caractère dans une chaine

Bonjour,
J'ai amélioré la fonction afin de pouvoir donner le caractère à rechercher.
Tu fais ALT+F11 pour ouvrir l'éditeur VBE puis Insertion module
Tu colles le code joint dans ce module.
Dans la feuille de calcul tu fais Insèrer une fonction (le Sigma) et tu recherches dans Fonctions personnalisées et tu trouves la fonction Extract.
Cela fonctionne comme n'importe quelle fonction.

Function Extract(MaChaine As String, Caractère As String)
    Application.Volatile
    Lg = Len(MaChaine)
    For i = 1 To Lg
        If Mid(MaChaine, i, 1) = Caractère Then
            Position = Position & i & "-"
        Else
        End If
    Next i
    If Len(Position) > 0 Then Position = (Left(Position, Len(Position) - 1))
    Extract = Position
End Function

 

[Hervé]

Re : Recherche la position d'un caractère dans une chaine

bonjour

il faut que tu la places dans un module VBA.

a partir de la fonction de RENAUDER (merci^^) meme chose mais en matriciel à valider par CTRL+SHIFT+ENTREE

Function Extractmat(MaChaine As String)
Dim i As Byte, x As Byte
Dim tablo()
    Application.Volatile
    For i = 1 To Len(MaChaine)
        If Mid(MaChaine, i, 1) = 1 Then
            ReDim Preserve tablo(x)
            tablo(x) = i: x = x + 1
        End If
    Next i
    Extractmat = tablo
End Function

salut

 

[Elhem]

Re : Recherche la position d'un caractère dans une chaine

ca marche merci beaucoup pour vos aides.
une derniére question comment je peux avoir ma résultat sur plusieurs colonnes (selon le nombre de position ex : 10-11-14-20 =>4 colonnes 1ère colonne 10/ 2ème colonne 11.. )

Merci.