Extraire des chiffres d'une chaine de caractère à une autre
Résolu/Fermé
Louloude74
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
-
5 avril 2020 à 10:46
Louloude74 Messages postés 62 Date d'inscription mercredi 1 août 2018 Statut Membre Dernière intervention 17 avril 2024 - 5 avril 2020 à 17:50
Louloude74 Messages postés 62 Date d'inscription mercredi 1 août 2018 Statut Membre Dernière intervention 17 avril 2024 - 5 avril 2020 à 17:50
A voir également:
- Extraire des chiffres d'une chaine de caractère à une autre
- Extraire une video youtube - Guide
- Caractère ascii - Guide
- Caractere speciaux - Guide
- Extraire son d'une video - Guide
- Caractère spéciaux - Guide
2 réponses
yg_be
Messages postés
22708
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2024
1 474
Modifié le 5 avril 2020 à 11:34
Modifié le 5 avril 2020 à 11:34
bonjour, moi je réaliserais cela en écrivant deux fonctions en VBA.
en B1:
en C1:
il est possible de faire plus simple su tu n'as pas besoin de la valeur en B1
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
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
1
5 avril 2020 à 11:46
5 avril 2020 à 11:46
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
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
5 avril 2020 à 13:10
C'est dingue ça à l'air si simple. Merci beaucoup !
La fonction fonctionne à merveille et fait exactement ce que je souhaitais. En ce qui concerne la fonction extrait je dois la tester.
Encore merci !
Bon dimanche.
Ludwig
5 avril 2020 à 17:02
Question bonus : peut-on avec la fonction sans doublon avoir le résultat dans l'ordre croissant ?
Par avance merci. ☺️
Ludwig
5 avril 2020 à 17:40
Function sansdoublon(entree As String) As String Dim car As String, i As Integer, cars() As String, ncars As Integer, j As Integer, tmp As String For i = 1 To Len(entree) car = Mid(entree, i, 1) If InStr(tmp, car) = 0 Then ncars = ncars + 1 ReDim Preserve cars(1 To ncars) cars(ncars) = car tmp = tmp + car End If Next i For i = 1 To ncars For j = i + 1 To ncars If cars(i) > cars(j) Then tmp = cars(i) cars(i) = cars(j) cars(j) = tmp End If Next j Next i For i = 1 To ncars sansdoublon = sansdoublon + cars(i) Next i End Function5 avril 2020 à 17:50
Ça marche terriblement bien. C'est très gentil à toi. Merci.
Encore merci. ????
Ludwig