Macro Excel : Associer catégories

Question

Bonjour à tous

Je travaille présentement sur une base de données en Excel et j'ai à associer des catégories avec d'autres. Je vous averti d'avance que je n'ai pas souvent utilisé les macros VB dans Excel.

Voilà : le tout se passe dans une seule « Sheet » (Sheet1). 
Dans ma colonne A, j'ai plus de 90 000 catégories variées, pour un total de 3440 (après avoir éliminé les doublons). 
On retrouve dans la colonne C ces 3440 catégories triées en fonction de « catégories-ensembles » qui se trouvent dans la colonne D. Après élimination des doublons, il y?a exactement 125 catégories-ensembles. 

Mon but : de lire une par une les cellules de la colonne A, de trouver dans la colonne C une cellule identique, et lorsque c'est fait, il copie, dans la même position-ligne dans la colonne B, la valeur de la colonne D associée à cette catégorie. 

J'ai tenté un petit programme, le voici :

---------------------------------
Sub Macro1()

    Dim CompareRange As Variant, x As Variant, y As Variant, z as Variant

    Set CompareRange = Range("C1:C3440")  /* Colonne C, contenant les catégories compatibles avec Colonne A
    Set z = Range("D1:D3440")             /* Colonne D, contenant les catégories d'ensembles
    
    For Each x In Selection               /* Boucles imbriquées ; recherche des valeurs identiques 
        For Each y In CompareRange        /*
            If x y Then x.Offset(0, 1) ???   /* Ici, ça fait défaut ... je ne sais quoi mettre ... (0,1) pour colonne B
        Next y
    Next x

End Sub
-----------------------------------
Malheureusement, il ne marche pas ? même pire, il démarre, mais le programme n'arrête jamais. Auriez-vous un bon script à me proposer ? Suis-je dans le champ avec cette tentative ci-dessus ?

Je vous remercie d'avance, 


FSpring

userrrqi115 · Answer

Hello, 

On peut tenter ceci :


for each cell in range("A1:A90000")
'1ere boucle sur les 90000 entrées de la  colonne A
for each cellbis in range("C1:C3440")
'2nde boucle sur les catégories

if cellbis.value = cell.value then
'test pour retrouver la categorie 
cell.offset(0,1).value=cellbis.offset(0,1).value
'dès que trouvé on reporte ce qui est contenu dans la colonne D, dans la colonne B sur la ligne de A concernée
end if
next cellbis
next cell

A tester
BR
USERRRQI115
Simple user
Great brain

Macro Excel : Associer catégories

1 réponse

Votre réponse

Discussions similaires