Discussion :

[rayba89]

Bonjour,

Je pars d'une feuille excel source que je dois mettre à jour, en la comparant à une autre feuille excel ayant les memes titres de colonnes.
Pour simplifier le problème, je dois comparer deux cellules contenant plusieurs termes separés par des virgules.
Exemple:
Cell(1,1) = A,B,C,MER ci
Cell(1,2) = A,C,K
Je souhaite mettre a jour la Cell(1,2) afin d'obtenir A,C,K,B,MER ci
A noter que les termes peuvent etre des mots comme des chiffres, contenant des caracteres speciaux et des espaces.
j'arrive pas a créer une fonction pour delimiter les termes et les comparer un par un
Merci pour tout aide!!

[EngueEngue]

La fonction existe déjà l'ami! C'est split

x = Split(cells(1,1),",")
y = Split(cells(1,2),",")

après il te suffit de comparer

[rayba89]

Merci!
Etant debutant en vba, je ne connaisais pas cette fonction!

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Completer$(ByVal S1$, ByVal S2$)
         Dim SP$()
         SP = Split(S1, ",")
 
         For Each MOT In Split(S2, ",")
             If IsError(Application.Match(MOT, SP, 0)) Then
                 ReDim Preserve SP(UBound(SP) + 1)
                 SP(UBound(SP)) = MOT
             End If
         Next
 
         Completer = Join(SP, ",")
End Function
 
 
Sub Demo()
    Cells(1, 2).Value = Completer(Cells(1, 2).Value, Cells(1, 1).Value)
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[rayba89]

Merci Marc-L !
Ca marche parfaitement, mon code etait bcp plus compliqué que celui la, ca m'a permis d'apprendre des nvlles fonctions en vba aussi

Merci encore une fois!