Identification mêmes cellules VBA

Résolu
BE-NAMCO Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 10909 Date d'inscription   Statut Membre Dernière intervention   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 10909 Date d'inscription   Statut Membre Dernière intervention   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 Date d'inscription   Statut Membre Dernière intervention   > ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup ccm81 ça marche à merveille. T'es le meilleur ^^ !!
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   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
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

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

5 réponses