additionner le contenu de caractere

[julien]

boujour,


j'ai deux colonnes de caractères avec des codes :

dans la colonne 1 : AAA BBB CCC EEE
dans la colonne 2 : AAA BBB DDD FFF

j'aimerais que la troisieme colonne additionne les valeures manquantes et runissent toutes les valeurs qui manquent dans l'une ou l'autre :

AAA BBB CCC DDD EEE FFFF

comment faire avec un recherchev peut etre

merci de votre reponse

 

[jaccard]

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 ;-)

 

[julien]

nom de dieu ?!! le truc de fou


merci en tout cas

 

[Monique]

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 ?

 

[julien]

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

 

[Monique]

Bonjour,

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