Croisement de donées exotique

kishkool · 26 Octobre 2011

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 · 26 Octobre 2011

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 · 26 Octobre 2011

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 · 26 Octobre 2011

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 · 26 Octobre 2011

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 :

VB:

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 · 26 Octobre 2011

Re : Croisement de donées exotique

C'est majestueux 😱

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

Croisement de donées exotique

kishkool

Guest

Softmama

XLDnaute Accro

kishkool

Guest

david84

XLDnaute Barbatruc

Softmama

XLDnaute Accro

Pièces jointes

kishkool

Guest

Discussions similaires

Croisement de donées exotique

kishkool

Guest

Softmama

XLDnaute Accro

kishkool

Guest

david84

XLDnaute Barbatruc

Softmama

XLDnaute Accro

Pièces jointes

kishkool

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency