parcours de tableau a plusieurs entrées (algo)

Version imprimable

28/05/2009, 09h53
cesium

parcours de tableau a plusieurs entrées (algo)

Bonjour a tous,

je post aujourd'hui pour un problème d'algorithmie sur le parcours d'un tableau.

voici mon tableau à la base :

http://nsa07.casimages.com/img/2009/...3552559821.jpg

ce que je souhaite est d'arriver a ce point :

http://nsa07.casimages.com/img/2009/...4442635993.jpg

explication : pour chaque user je voudrais savoir si on retrouve VAL dans la Colonne VAL1 correpondant a l'utilisateur,si oui je met un 1 sur la meme ligne Colonne A,

et meme chose pour la colonne VAL 2 :
pour chaque user je voudrais savoir si on retrouve VAL dans la Colonne VAL2 correpondant a l'utilisateur,si oui je met un 1 sur la même ligne Colonne B,

contrainte (si c'est vraiment une contrainte): il peut y avoir plus de ligne pour un meme user dans tableau 1 que dans tableau 2 et vice versa

j'aurai besoin d'aide pour savoir quelles sont les boucles à utiliser (for, do loop...)
et comment les imbriquer

ps: (tableau 1 fait 33000 lignes)

merci à tous

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub test()
 
For i = 2 To Worksheets("Feuil2").Range("A1").End(xlDown).Row
    If Worksheets("Feuil2").Cells(i, 1).Value = "U2" Then
        For j = 2 To Worksheets("Feuil1").Range("A1").End(xlDown).Row
            If Worksheets("Feuil1").Cells(j, 1).Value = "U2" Then
                If Worksheets("Feuil2").Cells(i, 2).Value = Worksheets("Feuil1").Cells(j, 2).Value Then
                    Worksheets("Feuil1").Cells(j, 4).Value = "1"
                End If
            End If
        Next
    End If
    If Worksheets("Feuil2").Cells(i, 1).Value = "U3" Then
        For k = 2 To Worksheets("Feuil1").Range("A1").End(xlDown).Row
            If Worksheets("Feuil1").Cells(k, 1).Value = "U3" Then
                If Worksheets("Feuil2").Cells(k, 2).Value = Worksheets("Feuil1").Cells(k, 2).Value Then
                    Worksheets("Feuil1").Cells(k, 4).Value = "1"
                End If
            End If
        Next
    End If
Next
 
End Sub

Testé et ça marche. Tableau 1 est sur Feuil1 et Tableau 2 est sur Feuil2.

Tu n'as plus qu'à adapter pour :
- Si jamais tu veux rajouter des choses dans ton tableau 2
- Je ne l'ai fait que pour Val1. Tu n'as que du copier/coller à faire pour Val2 en remplaçant

Code:

Worksheets("Feuil1").Cells(j, 2).Value

par

Code:

Worksheets("Feuil1").Cells(j, 3).Value

Code:

Worksheets("Feuil1").Cells(j, 4).Value = "1"

par

Code:

Worksheets("Feuil1").Cells(j, 5).Value = "1"

et pareil pour k.

C'est moche (je l'admets) mais j'avais la flegme de faire plus. Si quelqu'un veut optimiser :roll:

Bonne chance pour la suite !

28/05/2009, 14h00
cesium

c'est plus que de l'aide que tu me donnes là...

merci infiniment,

je test...
28/05/2009, 16h08
Minick

Salut,

Une solution par formule peut aussi faire l'affaire :

Code:

=SOMMEPROD((Feuil2!$A$2:$A$10=Feuil1!$A2)*(Feuil2!$B$2:$B$10=Feuil1!B2)*1)

En D2 et glisser en E2
++
Minick
28/05/2009, 17h45
cesium

merci pour cette solution aussi.

c'est vrai que la solution par fonction est plus efficace et plus rapide a mettre en oeuvre.

mes 2 tableaux ont 33000 entrées chacuns.

j'ai utilisé la fonction concatener pour concatener le matricule et la val1 et pareil pour la val2

pareil pour le 2 eme tableau.

ca m'a permis d'avoir un identifiant unique. ensuite avec un rechercheV classique ca fonctionne....

OUF...
30/05/2009, 22h10
AlainTech

Citation:

Envoyé par cesium

ca fonctionne....
OUF...

Un petit clic sur le bouton :resolu:?

Merci
30/05/2009, 23h10
Qwazerty

Salut
Et avec une formule?
Cette formule considère que ton 1er tableau commence en colonne A, que le 2eme et séparé du 1er par une seul colonne (il commence donc en G)
Les entêtes de colonnes se trouvent sur la ligne 2

Place cette formule dans la 1er cellule juste sous le "A" et étends la en bas et sur la gauche.

Code:

=SI(ESTERREUR(EQUIV(B3;DECALER(DECALER($G$1;EQUIV($A3;$G:$G;0)-1;0);0;1;NB.SI($G:$G;"=" & $A3));0));"";1)

Si je n'ai pas fais d'erreur elle réalise ce que tu souhaite sans avoir besoin de passer par le vba.

A++
Qwaz