Comparaisons de deux liste de caractères
Ringo_64
Messages postés
1
Statut
Membre
-
Ringo_64 -
Ringo_64 -
Bonjour,
J'espère que vous pourrez m'aider, je ne m'en sors pas.
J'ai une cellule A avec une liste de mots séparées par une virgule.
Dans une cellule B j'ai une liste de mots qui est une sous-liste de la cellule A.
Ce que je cherche à faire c'est avoir une cellule avec les mots qui manquent das la cellule B.
Les mots sont toujours dans le même ordre.
Merci !
Exemple 1
Cellule A : TATA, TITI, TOTO, TUTU
Cellule B : TATA, TUTU
Résultat : TITI, TOTO
Exemple 2:
Cellule A : TATA, TITI, TOTO, TUTU
Cellule B : TATA, TOTO, TUTU
Résultat : TITI
J'espère que vous pourrez m'aider, je ne m'en sors pas.
J'ai une cellule A avec une liste de mots séparées par une virgule.
Dans une cellule B j'ai une liste de mots qui est une sous-liste de la cellule A.
Ce que je cherche à faire c'est avoir une cellule avec les mots qui manquent das la cellule B.
Les mots sont toujours dans le même ordre.
Merci !
Exemple 1
Cellule A : TATA, TITI, TOTO, TUTU
Cellule B : TATA, TUTU
Résultat : TITI, TOTO
Exemple 2:
Cellule A : TATA, TITI, TOTO, TUTU
Cellule B : TATA, TOTO, TUTU
Résultat : TITI
2 réponses
-
Bonjour
A l'aide d'une fonction personnalisée :Function reste(plage1 As Range, plage2 As Range) nv = plage1 '1ere plage tablo2 = Split(plage2, ",") 'decoupe 2eme plage For n = 0 To UBound(tablo2) ' boucle sur items 2eme plage nv = Application.WorksheetFunction.Substitute(nv, tablo2(n) & ",", "") 'remplace l'item de la2eme plage et la virgule par du vide dans la 1ere plage Next reste = nv End Function
ALT+F11 pour ouvrir l'éditeur VBA - Insertion - Module - Copier et coller la macro ci-dessus dans la page -Fermer l'éditeur
La fonction s'utilise ensuite selon la syntaxe =reste(cellule liste1;cellule liste2)
Cdlmnt
Via
-
