Extraire des chiffres d'une chaine de caractère à une autre Résolu/Fermé

Question

Bonjour à tous, 

J'espère que vous allez tous bien en cette période de confinement. Pour ma part je cherche de quoi m'occuper et très vite je me retrouve bloqué. Je me suis lancer dans une "aide sudoku". 
Je cherche en vain une solution à ces deux problématiques : comment extraire les chiffres en double dans une chaine de caractère puis comment les extraire dans une autre chaine de caractère. Ex : 

A1 : 6767
A2 : 67 (sans doublon)
B1 : 136 (extraire en B1 le ou les chiffres en A2)
C1 : 13 (ce que je souhaite obtenir)

ou

A1 : 69693737
A2 : 6937 (sans doublon)
B1 : 1639 (extraire en B1 le ou les chiffres en A2)
C1 : 1 (ce que je souhaite obtenir)

En A et B la longueur de la chaine est variable mais que des chiffres.

Je vous souhaite une très bonne journée et par avance merci.

Ludwig

Configuration: Macintosh / Safari 13.1

yg_be · Answer

bonjour, moi je réaliserais cela en écrivant deux fonctions en VBA.
Option Explicit

Function sansdoublon(entree As String) As String
Dim car As String, i As Integer
For i = 1 To Len(entree)
    car = Mid(entree, i, 1)
    If InStr(sansdoublon, car) = 0 Then
        sansdoublon = sansdoublon + car
    End If
Next i
End Function
Function extrait(entree As String, filtre As String) As String
Dim car As String, i As Integer
For i = 1 To Len(entree)
    car = Mid(entree, i, 1)
    If InStr(filtre, car) = 0 Then
        extrait = extrait + car
    End If
Next i
End Function
en B1: =sansdoublon(A1)
en C1: =extrait(A2;B1)
il est possible de faire plus simple su tu n'as pas besoin de la valeur en B1

Louloude74 · Answer

Bonjour,

J'avoue qu'une fonction serait super mais mes connaissances ne me permette pas d'en réaliser. 

Par contre j'ai réussi à obtenir un résultat qui me convient pour la deuxième partie de ma problématique avec entre autre " ESTERREUR " et " TROUVE ". 

Me reste l'histoire des chiffres en doublon.

Encore merci.

Ludwig

Extraire des chiffres d'une chaine de caractère à une autre

2 réponses

Discussions similaires