Macro de recherche sur 2 colonnes en excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Alors voilà j'aimerai faire une recherche sur 2 colonnes en excel. Sur le fichier en annexe j'aimerai faire une recherche des données de troupeau-id-1 dans la colonnes troupeau-id-2 et ensuite une fois que je l'ai trouvé je compare pour voir si le nombre dans la colonne brebis-1 est le même que dans la colonne brebis-2

Un exemple, on va dire que avec ma macro de recherche je suis arrivé à la cellule A8 qui contient BE25012575. Je vais donc aller chercher mon id dans la colonne troupeau-id-2 et je vois que lui se trouve en E9. A partir de cette recherche j'aimerai comparer les deux nombres pour les colonnes brebis et donc on voit que en B8 le nombre est 72 et que en F9 le nombre est 72 aussi Donc c'est OK

Donc voilà un peu ce que j'aimerai pouvoir faire c'est de comparer ces deux chiffres et de vérifier si ils sont les mêmes.

Donc j'ai commencé ce code-ci en regardant à gauche à droite:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Range("E2:E291") For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 12) = x Next y Next x End Sub
Donc voilà ici j'arrive à faire ma recherche mais une fois que j'arrive sur le bon X et le bon Y je n'arrive pas à utiliser leurs coordonnées pour comparer les deux colonnes brebis.

pouvez-vous m'aider ?

Un grand merci d'avance ^^

Peut être la solution

Bonsoir ,

Regarde ce code ... Peut être retrouvera-tu tes brebis !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub brebisperdu()
 
Dim numéro As Integer
Dim brebis2 As Range
Dim ligne As Integer
Dim col As Integer
 
brebis1 = Selection
 
    Set brebis2 = Range("E2:E291").Find(brebis1, lookat:=xlWhole)
 
        If brebis2 Is Nothing Then
            MsgBox ("pas trouvé")
        Else
            ligne = brebis2.Row
            col = brebis2.Column
            MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
    End If
 
End Sub

Bonjour,

vu la proposition d'Eric accomplissant la moitié du travail et quand on n'arrive pas à atteindre son but en pur VB,
mieux vaut reconsidérer la problématique via des fonctions d'Excel, même si elles répondent partiellement au besoin,
c'est d'autant plus rapide et efficace !

Voici une p'tite démonstration indiquant dans la colonne C le numéro de ligne dans le tableau ID_2
correspondant aux colonnes A et B :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Demo() With Feuil1 Application.ScreenUpdating = False .Cells(5).CurrentRegion.Columns(1).Offset(, 3).Formula = "=E1&""¤""&F1" With .Cells(1).CurrentRegion.Columns(1).Offset(, 2) .Formula = "=MATCH(A1&""¤""&B1," & .Parent.Cells(8).CurrentRegion.Address & ",0)" .Formula = .Value End With Union(.Cells(3), .Cells(8).CurrentRegion).Clear End With End Sub
Sans correspondance, la colonne C affiche #N/A. Evidemment en adaptant la formule, OUI comme NON peuvent s'afficher …

_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

28/05/2015, 11h20
legna986

Bonjour à tous les deux,

Un grand merci pour vos réponses elles m'ont été toutes les deux très utiles pour résoudre mon problème =)