Discussion :

[leronce]

bjr au forum
j'ai "pillé" le site pour m'aider à faire mes macros, un grand merci.
maintenant, j'ai un doute sur une de mes macros:
2 feuilles 5 & 3
- je lis les noms de la feuille 5 pour chercher une correspondance sur la 3
-pas de correspondance = exit
- correspondance: contrôle que le prénom soit le même
- le même = copier une cellule de feuille 3, col I sur feuille 5
- pas le même: ....(hum) je descend d'une ligne..... = doute

voici la macro:

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
Sub concordance()
    'vérif si un autre animal a été adopté pour mêmes nom & prénom
Dim i, L, b As Integer, A, N, P
    'L = ligne concordance, N = nom et P = prénom adoptant
With Sheets(5)  'Adoptants_Animaux_†
    For i = 2 To .Cells(100, 2).End(xlUp).Row   '2 à B100
        N = .Cells(i, 2) 'N = nom adoptant
        P = .Cells(i, 3) 'P = prénom adoptant
        On Error Resume Next
'recherche ligne concordance sur Adoptants_Animaux (3)
        L = WorksheetFunction.Match(N, Workbooks("adoptions.xls").Worksheets(3).Range("B1:B500"), 0)
            If Not L = 0 Then
                If Sheets(3).Cells(L, 3) = P Then
                A = Sheets(3).Cells(L, 9)  'colonne I
                Sheets(5).Cells(i, 14) = "a aussi adopté " & A
                    Else
                    L = L + 1       'DOUTEUX !
                    If Sheets(3).Cells(L, 3) = P Then
                    A = Sheets(3).Cells(L, 9)  'colonne I
                    Sheets(5).Cells(i, 14) = "a aussi adopté " & A  'Adoptants_Animaux_†
                    End If
                End If
            End If
        L = 0
        Next i
End With
End Sub

[casefayere]

je vois quelques incohérences, peux-tu envoyer un fichier exemple (sans vraies données, bien sur), j'ai commencé à travailler mais j'ai besoin d'une base qui me permette de comprendre