additionner le contenu de caractere

hello, dans le module de la feuille ou tu veux ce résultat saisie :

Function AddText(Texte1 As String, Texte2 As String)

Const intTextCount = 3

Dim strPartText(1), strText(1) As String
Dim intIndexText, intIndex As Integer

strText(0) = Texte1
strText(1) = Texte2

For intIndex = 1 To Len(strText(0)) Step intTextCount + 1
strPartText(0) = Mid(strText(0), intIndex, intTextCount)
strPartText(1) = Mid(strText(1), intIndex, intTextCount)
If strPartText(0) = strPartText(1) Then
AddText = AddText & " " & strPartText(0)
Else
If Asc(Left(strPartText(0), 1)) > Asc(Left(strPartText(1), 1)) Then
AddText = AddText & " " & strPartText(1) & " " & strPartText(0)
Else
AddText = AddText & " " & strPartText(0) & " " & strPartText(1)
End If
End If
Next intIndex
End Function


puis dans une cellule de la feuille :

=AddText("aaa bbb ddd fff";"aaa bbb ccc eee")


Il me semble que cela fonctionne

dom ;-)

nom de dieu ?!! le truc de fou


merci en tout cas

Bonsoir,

Par formules : report dans une colonne du contenu de 2 autres colonnes, sans doublon et sans vide. Truc aussi fou, moins fou ou plus fou ?

salut

je n'y arrivais pas avec le code je vais essayer avec la formule

si ca marche vous me rendez un sacré service car je m'arrache les cheveux

mille merci

Bonjour,

Voici un autre système avec la fonction SOMMEPROD à la place de INDEX EQUIV.