Bonjour à tous,
J'ai des cellules qui contiennent parfois plusieurs fois la même chose...
Par exemple :
0701144215+0802147947+0802147947+0802147947
Je souhaiterais pouvoir tester cette cellule afin de n'obtenir que :
0701144215+0802147947
C'est à dire supprimer les données qui se retrouvent plusieurs fois. Toutes les chaines de caractères sont séparées par "+"
Ou sinon, si l'on peut modifier ce code VBA pour qu'il affiche directement ce que je souhaite:
Function RechTous(v, champRech As Range, ChampRetour As Range)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & "+"
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Sachant que mon résultat est "Champ retour".
En fait le code devrait tester tous les champs retour et ne les retourner qu'une fois...
J'espère avoir été compréhensible...
D'avance merci pour votre aide.
J'ai des cellules qui contiennent parfois plusieurs fois la même chose...
Par exemple :
0701144215+0802147947+0802147947+0802147947
Je souhaiterais pouvoir tester cette cellule afin de n'obtenir que :
0701144215+0802147947
C'est à dire supprimer les données qui se retrouvent plusieurs fois. Toutes les chaines de caractères sont séparées par "+"
Ou sinon, si l'on peut modifier ce code VBA pour qu'il affiche directement ce que je souhaite:
Function RechTous(v, champRech As Range, ChampRetour As Range)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & "+"
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Sachant que mon résultat est "Champ retour".
En fait le code devrait tester tous les champs retour et ne les retourner qu'une fois...
J'espère avoir été compréhensible...
D'avance merci pour votre aide.