Recherche donnée dans autre feuille

michigan

XLDnaute Nouveau
Bonjour,

à partir de ma colonne C dans feuil1, je souhaite qu'il apparaisse le chiffre 1 dans la colonne G si l'identifiant correspond à la colonne A dans la feuil 2 sinon mettre 0 dans la colonne H.
 

Pièces jointes

  • test.xls
    93.5 KB · Affichages: 33

cathodique

XLDnaute Barbatruc
Comme ceci, code à mettre dans un module standard.
VB:
Option Explicit

Sub test()
    Dim dL1 As Integer, dL2 As Integer
    Dim i As Integer, j As Integer
    dL1 = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    dL2 = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
    With Feuil1
        For i = 1 To dL2
            For j = 2 To dL1
                If .Cells(j, 3).Value = Feuil2.Cells(i, 1).Value Then
                    .Cells(j, 7).Value = 1
                Else
                    .Cells(j, 8).Value = 0
                End If
            Next j
        Next i
    End With
 
    MsgBox "Procédure terminée!", vbInformation
End Sub
edit: pas vu. Bonjour Pierrejean:), Mutzik:), Denis132:)
 
Dernière édition:

Discussions similaires

Réponses
22
Affichages
757

Membres actuellement en ligne

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16