VBA - Macro comparative

Version imprimable

29/02/2012, 19h12
Joseph345

VBA - Macro comparative

Bonjour,
Cela fait un moment que je cherche et j'avoue que je suis un peu perdu etant neophyte en VBA :(
J'ai une feuille excel, contenant 3 colonnes, une Nom article déclassée, une ID et une Nom article classée, je souhaiterais parcourir la premiere colonne, pour chaque cellule aller parcourir la 3eme colonne pour y trouver le même texte et pouvoir recuperer l'Id associé(colonne 2) afin de l'ecrire dans une 4eme colonne et ainsi pouvoir obtenir le bon ID face au bon Nom article, j'ai essayé avec le fonction RECHERCHEV, avec des macro mais la je m'y perd...

EX:
pomme 1 poire
abricot 2 marron
noix 3 fraise
pasteque 4 pomme

Je voudrais que le 4 par ex. soit afficher dans une autre colonne face au pomme de la colonne 1 et ainsi de suite.
La colonne 1 possede des doublons, par contre la colonne 3 ne possede pas de doublons.
La colonne 1 possede 1300 lignes, pour 3600 pour la colonne 2 et 3

J'espere avoir été assez concis.

Est qu'un ame charitable pourrais me donner un coup de main?

Un gros merci d'avance
Cordialement

Bonsoir,

Un exemple pas optimisé, simplement basé sur de la comparaison de valeur "à la main".

Un bon exercice serait de chercher à l'optimiser avec les fonction WorksheetFunction.VLookup() , équivalent VBA de la fonction RechercheV.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Const FirstCelUnfilteredName As String = "A2"
Const FirstCelFilteredName As String = "C2"
 
Private Sub CommandButton1_Click()
    Dim nbRows As Long
    nbRows = Range(FirstCelUnfilteredName).End(xlDown).Row
    Dim r As Range
    For Each r In Range(Range(FirstCelUnfilteredName), Cells(nbRows, Range(FirstCelUnfilteredName).Column))
        r.Offset(0, 3).Value = GetID(r.Value)
    Next r
End Sub
 
Function GetID(nomNonTrie As String) As String
    Dim nbRows As Long
    nbRows = [C2].End(xlDown).Row
    Dim r As Range
    GetID = "Inconnu"
    For Each r In Range(Range(FirstCelFilteredName), Cells(nbRows, Range(FirstCelFilteredName).Column))
        If r.Value = nomNonTrie Then
            GetID = r.Offset(0, -1).Value
        End If
    Next r
End Function

Bonsoir,

Un autre exemple avec la méthode Find

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim Ws1 As Worksheet
Dim DerLig1 As Long, DerLig2 As Long
Dim MaPlage1 As Range, MaPlage2 As Range, Cel As Range
    Set Ws1 = Worksheets("Feuil1")
    DerLig1 = Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Row
    DerLig2 = Ws1.Range("C" & Ws1.Rows.Count).End(xlUp).Row
    Set MaPlage1 = Ws1.Range("A1:A" & DerLig1)
    Set MaPlage2 = Ws1.Range("C1:C" & DerLig2)
    For Each Cel In MaPlage1
        Set c = MaPlage2.Find(Cel.Value, LookIn:=xlValues)
        If Not c Is Nothing Then Cel.Offset(0, 3) = c.Offset(0, -1)
    Next Cel
    Set Ws1 = Nothing
    Set MaPlage1 = Nothing
    Set MaPlage2 = Nothing
End Sub

Cordialement.

29/02/2012, 20h28
Joseph345

Un grand merci à tous les 2... je vais essayer de voir ce que je peux en tirer :)

Merci et bonne soirée

Une autre approche sans vba
En D2 la formule (que tu tires vers le bas):

Code:

=SI(ESTNA(EQUIV(A2;$C$2:$C$3600;0));"";INDEX($B$2:$B$3600;EQUIV(A2;$C$2:$C$3600;0)))

Qu'on peut appliquer par vba (et en figeant les valeurs)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim LastLig As Long, NbLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'Adapte le nom de ta feuille
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    NbLig = .Cells(.Rows.Count, "B").End(xlUp).Row
    With .Range("D2:D" & LastLig)
        .Formula = "=IF(ISNA(MATCH(A2,$C$2:$C$" & NbLig & ",0)),"""",INDEX($B$2:$B$" & NbLig & ",MATCH(A2,$C$2:$C$" & NbLig & ",0)))"
        .Value = .Value
    End With
End With
End Sub