Identification mêmes cellules VBA

Résolu
BE-NAMCO Messages postés 3 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour à tous,

J'aimerai avoir une macro qui me permet d'identifier les cellules identiques d'une colonne A à B.

Admettons, sur la colonne A j'ai plusieurs données (il peut y avoir plusieurs cellules identiques sur cette colonne), en colonne B également (chaque cellule est unique sur cette colonne). A chaque fois qu'une cellule de la Colonne A est identique à une des cellules de la colonne B. Il va récupérer en colonne C l'information qui correspond à la cellule identique, puis il va coller en colonne D sur la même ligne que la valeur identique de la colonne A l'information récupérer en colonne C.

Exemple :

Colon A | Colon B | Colon C | Colon D
XR | BH | BLABLA | BLIBLI
XR | ZA | BLOBLO | BLIBLI
ZA | XR | BLIBLI | BLOBLO
ZB | ZB | COCO | COCO
ZB | ZC | TOTOTO | COCO


Je ne sais pas si vous avez compris ce que je souhaite faire mais je l'espère, je vous ai mis un exemple pour que vous puissiez comprendre.

En vous remerciant par avance de votre aide

Bien cordialement

BE-NAMCO

2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

Je ne sais pas si j'ai compris : en D2
=INDEX(C:C;EQUIV(A2;B:B;0))

Cdlmnt
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
Et en VBA 

Const lideb = 2

Public Sub OK()
Dim li As Long, lifin As Long, obj As Object, s As String, ss As String, lis As Long
With ActiveSheet
  lifin = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
  For li = lideb To lifin
    s = .Cells(li, 1).Value
    Set obj = .Columns(2).Find(s, , , xlWhole)
    If obj Is Nothing Then
      MsgBox s & " non trouvé en colonne 2"
    Else
      lis = obj.Row
      ss = .Cells(lis, 3).Value
      .Cells(li, 4).Value = ss
    End If
  Next li
End With
End Sub

Cdlmnt
0
BE-NAMCO Messages postés 3 Statut Membre > ccm81 Messages postés 11033 Statut Membre
 
Merci beaucoup ccm81 ça marche à merveille. T'es le meilleur ^^ !!
0
Réponse 2 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 
De rien,

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Bonne fin de journée
0

Discussions similaires

VBA Excel : sélection d'une plage variable
Pyanitsa -
Mima -

20 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses