Discussion :

[david71]

Bonjour,

Je dispose d'un fichier EXCEL avec une série d'onglets dont un nommé "Feuil1".

Je m'intéresse aux colonnes A et E de cette feuille pour les comparer aux autres onglets.

En fait ce que je cherche plutôt à faire : c'est par exemple mettre en colonne
K de la feuille 1 un indicateur pour dire si le couple (colonne A, Colonne E) de la feuille 1 existe dans certains des autres onglets: existe (indicateur = 1), n'existe pas (indicateur=0). Sachant que la recherche dans les autres onglets doit se faire uniquement sur certains onglets (ceux qui commencent par CA) et le couple (colonne A, Colonne E) de la feuille 1 doit correspondre au couple
(Colonne B, Colonne BI) des onglets commençant par CA.

Merci sur une indication sur la façon de procéder.

[david71]

Bon voilà une macro qui marche pas mal : mon problème c'est que je n'arrive pas à mémoriser mon client et mon montant du coup il ne rentre jamais dans la partie "trouve" du code car le client n'est pas celui de la feuille 1 mais celui de la feuille courante !

Comment puis-je faire ? Merci pour toute information.

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
 
Sub test_f()
    Dim F As Worksheet
    Dim client As String
    Dim montant As Double
    Dim i, j As Integer
 
    For i = 2 To 3000
        client = Cells(i, 1)
        montant = Cells(i, 5)
        Cells(i, 11) = "non trouve"
        If (client <> "0") Then
            For Each F In Sheets
                If (F.Name <> "Feuil1" And Left(F.Name, 2) = "CA") Then
                    Sheets(F.Name).Select
                For j = 7 To 1000
                    'Debug.Print "client " & Cells(j, 2) & "colonne BI : " & Cells(j, 61)
                    If (Cells(j, 2) = "10001") Then
                        Debug.Print "trouve"
                        Debug.Print Round(Cells(j, 61), 2)
                    End If
 
                    If (Cells(j, 2) = client And Round(Cells(j, 61), 2) = montant) Then
                        Cells(i, 11) = "trouve"
                        Exit For
                    End If
 
                Next j
                End If
            Next F
        End If
        If (client <> "0") Then
            Sheets("Feuil1").Select
        End If
 
    Next i
 
End Sub

[Godzestla]

Code :

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

1
2
3
 
        client = Sheets("Feuil1").Cells(i, 1)
        montant = Sheets("Feuil1").Cells(i, 5)