Discussion :

[cesium]

Bonjour a tous,

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

voici mon tableau à la base :



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




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

[DeaD78]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne chance pour la suite !

[cesium]

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

merci infiniment,

je test...

[Minick]

Salut,

Une solution par formule peut aussi faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

En D2 et glisser en E2
++
Minick

[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...

[AlainTech]

ca fonctionne....
OUF...

Un petit clic sur le bouton ?

Merci

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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