Discussion :

[Nebrawk]

Bonjour,

Je voudrais faire un index equiv en vba avec 2 conditions*, c'est-à-dire "si tu trouves dans la colonne 2 et dans la colonne 23 la même chose que dans l'autre feuille, alors tu affiches"

J'ai essayé plusieurs façon mais en vain. J'ai donc essayé un .Index .Match & .Match mais il m'affiche que 1/10 des éléments que je souhaiterais avoir

Si quelqu'un peut m'aider...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Application.WorksheetFunction
        For I = 8 To Range("C100000").End(xlUp).Row
            For k = 1 To 7
 
              Cells(I, k + 6) = .Index([Tab], ((.Match(Cells(I, 2), [art], 0) & (.Match(Cells(I, 23), [par], 0)))), k + 6)
 
            Next k
        Next I
    End With

art = colonne article dans feuille origine
par = colonne article parent dans feuille origine

*dans le meilleur des cas j'ai même trois conditions mais si ça marche pour deux, ça devrait marcher pour 3

[Theze]

Bonjour,

Une piste :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub Test()
 
    Dim FePlages As Worksheet
    Dim FeCritere As Worksheet
    Dim PlageColB As Range
    Dim PlageColW As Range
    Dim Plage As Range
    Dim CelColB As Range
    Dim CelColW As Range
    Dim Cel As Range
 
    'feuille où sont recherchés les mots
    Set FePlages = Worksheets("Feuil1")
 
    'feuille où sont les mots
    Set FeCritere = Worksheets("Feuil2")
 
    'défini les plages sur les colonnes B et W (2 et 23)
    With FePlages: Set PlageColB = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With
    With FePlages: Set PlageColW = .Range(.Cells(1, 23), .Cells(.Rows.Count, 23).End(xlUp)): End With
 
    'défini la plage des mots recherchés sur la colonne A
    With FeCritere: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For Each Cel In Plage
 
        Set CelColB = PlageColB.Find(Cel.Value, , xlValues, xlWhole)
        Set CelColW = PlageColW.Find(Cel.Value, , xlValues, xlWhole)
 
        'ce que tu demandes :
        '"si tu trouves dans la colonne 2 et dans la colonne 23 la même chose que dans l'autre feuille, alors tu affiches"
        If Not CelColB Is Nothing And Not CelColW Is Nothing Then
 
            MsgBox "La valeur '" & _
                    Cel.Value & _
                    "' de la feuille '" & _
                    FeCritere.Name & _
                    "' a été trouvée dans les 2 colonnes (B et W) de la feuille '" & _
                    FePlages.Name & _
                    "' en ligne '" & _
                    CelColB.Row & _
                    "' de la colonne B et ligne '" & CelColW.Row & "' de la colonne W !"
 
        End If
 
    Next Cel
 
End Sub

[Nebrawk]

Merci en effet avec quelques modifs ça fonctionne, j'avais déjà trouvé une autre solution mais merci pour la réponse !