Microsoft 365 Remplacer les valeurs d'un tableau par leur correspondance dans un autre tableau

[Tidjyphenom]

Bonjour,

j'ai un tableau avec des identifiants utilisateurs. A droite de ce tableau j'ai un autre tableau qui permet de voir la correspondance des identifiants avec les adresses mails associés.
Je souhaite remplacer tous les identifiants de mon tableau de gauche par leur adresse email équivalente.

J'ai aussi ajouté un second cas de figure de données que je suis susceptible de rencontrer aux lignes 17, 18 et 19 du fichier joint. Dans ce cas il pourrait m'être utile de remplacer les identifiants par leur adresses email sauf que dans ce cas là le remplacement ne se fait donc pas au sein d'un tableau mais au sein d'une même cellule comportant plusieurs identifiants. Peut-être que dans ce cas là, la solution reviendrai à transformer ma celulle en tableau comme dans le 1er cas ?

Quelqu'un aurait une idée pour ces 2 options ?

 

[st007]

Bonjour,
en sélectionnant une cellule A2:E5 ???

 

[job75]

Bonjour Tidjyphenom, [Edit] salut st007,

Vous pouvez utiliser une macro de ce genre :

Sub Remplacer()
Dim c As Range
For Each c In Columns("J").SpecialCells(xlCellTypeConstants, 1)
    Range("A2:E7").Replace c, c(1, 2), xlWhole
Next
End Sub

Pour les lignes 17 18 19 il vaut mieux en effet créer un tableau.

A+

 

[job75]

La macro précédente ne donne pas des adresse email formatées, pour y remédier :

Sub Remplacer()
Dim c As Range, x$, cc As Range
Application.ScreenUpdating = False
For Each c In Columns("J").SpecialCells(xlCellTypeConstants, 1)
    x = CStr(c)
    For Each cc In Range("A2:E7")
        If CStr(cc) = x Then c(1, 2).Copy cc
Next cc, c
End Sub

 

[job75]

Ceci est plus rapide :

Sub Remplacer()
Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
For Each c In Columns("J").SpecialCells(xlCellTypeConstants, 1)
    Range("A2:E7").Replace c, "#N/A", xlWhole
    c(1, 2).Copy Range("A2:E7").SpecialCells(xlCellTypeConstants, 16)
Next c
End Sub

 

[danielco]

Bonjour,

En A9 :

=SIERREUR(MAP(A2:E7;LAMBDA(a;RECHERCHEV(a;J2:K6;2;0)));"")

En A21, à recopier vers le bas :

=LET(plg;REDUCE("";A2:E2;LAMBDA(x;y;x&","&SIERREUR(RECHERCHEV(y;J2:K6;2;0);"")));STXT(plg;2;NBCAR(plg)-2))

Daniel

 

[job75]

Bonjour danielco,

Les formules ne donnent pas des adresses mail cliquables.

A+

 

[danielco]

Bonjour job75,

A-t-on demandé qu'elles fussent cliquables ?

 

[job75]

Les adresses mail en colonne K sont cliquables, en toute logique il faut qu'elles le soient partout.

Il est facile de l'obtenir avec la fonction LIEN_HYPERTEXTE, voyez le fichier joint :

=SIERREUR(LIEN_HYPERTEXTE("mailto:"&RECHERCHEV(A2;$J:$K;2;0);RECHERCHEV(A2;$J:$K;2;0));"")

 

[danielco]

Les adresses mail en colonne K sont cliquables, en toute logique il faut qu'elles le soient partout.

Il est facile de l'obtenir avec la fonction LIEN_HYPERTEXTE, voyez le fichier joint :

=SIERREUR(LIEN_HYPERTEXTE("mailto:"&RECHERCHEV(A2;$J:$K;2;0);RECHERCHEV(A2;$J:$K;2;0));"")

 

[danielco]

Je cherchais à le faire avec une des nouvelles fonctions, sinon... pas drôle

 

[Tidjyphenom]

Que de choix. Visiblement toutes les solutions proposées fonctionnent. J'ai retenu celle de job75 car VBA.

Merci tout le monde. Vous m'enlevez une épine du pied.