Croisement de donées exotique

[kishkool]

Bonjour à tous,

Voici un petit problème sur lequel je buche depuis un certain temps.

J'ai 4 colonnes comme ceci :
1 2 3 4

11 Jean 1 Jean
13 Paul 2 Paul
15 David;Paul 3 David
16 Jean 4 Étienne


J'aimerai pouvoir remplacer les prénoms de la colonne 2 par la valeur dans la colonne 3 qui correspond au bon nom.

Vous avez des pistes? 🙄

Merci !

 

[Softmama]

Re : Croisement de donées exotique

Bonjour,

Perso, j'ai pas compris. Peux-tu donner un exemple de ce que tu souhaites obtenir concrètement ? Parce que là, pour moi, c'est vaseux. 😛

 

[kishkool]

Re : Croisement de donées exotique

Mon tableau s'est un peu aplatit après validation ^^

Alors en fait imagine que j'ai 10000 prénoms unique dans une colonne. Chaque prénom à un identifiant unique dans sa colonne adjacente.

1 Albert
2 Antoine
3 Amelie
4 Bob

..etc

Ensuite j'ai deux colonnes avec un ID dans la première et un ou plusieurs prénom dans la deuxième (séparé d'un ; )

15 Anthony
19 Barbara
20 Barbara
30 Julien
59 Jeremy;Anthony;Barbara
..
etc

Je souhaite donc que ces prénoms soit remplacés par leur ID unique (1 pour Albert, 2 pour Antoine..etc).

En gros si j'avais pas eu autant de données j'aurai juste fait rechercher remplacé. Mais la c'est pas pensable.

 

[david84]

Re : Croisement de donées exotique

Bonjour,
le plus simple est de fournir un petit fichier exemple avec les résultats attendus inscrits manuellement.
A+

 

[Softmama]

Re : Croisement de donées exotique

Bon,

je me suis résolu à te pondre ton fichier exemple....
C'est quand même plus clair avec un petit fichier, vois si ça donne ce que tu veux :

Sub test()
Dim c As Range, A, t As Long
Set c = [D1]
Do While c <> ""
    A = Split(c, ";")
    For t = LBound(A) To UBound(A)
      If Not IsError(Application.Match(A(t), Range("B1:B" & Range("B1").End(xlDown).Row), 0)) Then A(t) = [A1].Offset(Application.Match(A(t), Range("B1:B" & Range("B1").End(xlDown).Row), 0) - 1, 0)
    Next
    c = Join(A, ";")
  Set c = c.Offset(1, 0)
Loop
End Sub

Edit: Salutations David

 

[kishkool]

Re : Croisement de donées exotique

C'est majestueux 😱

Merci, c'est exactement ça et désolé pour le fichier exemple..