Discussion :

[Atitila]

Bonjour à tous,

J’aimerai un code qui permettrai remplacer les valeurs de la colonne A par celle de la colonne C (Tableau correspondance2) en se basant uniquement sur Les 05 premiers caractères le colonne A ; s’il n’a pas de correspondance, se baser sur les 02 premiers caractères de la colonne A.

BREF
j'aimerai, avoir un bouton '' conversion" par exemple qui remplacera directement les valeurs de la feuille données par celle des correspondances,d’où un code en VBA.

Merci.TEST_CORESPOND.xlsx

premier test.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub remplacer()
drligne = Range("a" & Rows.Count).End(xlUp).Row
With Sheets(3)
    drligne_corres = .Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To drligne
        valeur = Left(Range("a" & i), 5)
        For Z = 2 To drligne_corres
            If .Range("a" & Z) = valeur Then
                Range("a" & i) = .Range("b" & Z)
                Z = drligne_corres
            Else
                If Z = drligne_corres Then
                    valeur = Left(Range("a" & i), 2)
                    For x = 2 To drligne_corres
                        If .Range("a" & x) = valeur Then Range("a" & i) = .Range("b" & x)
                    Next x
                End If
            End If
        Next Z
    Next i
End With
Range("a:a").EntireColumn.AutoFit
End Sub

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim C As Range, Plage As Range, Corresp As Range, X As Range
    With Sheets("Feuil3")
        Set Corresp = .Range("A2", .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With Sheets("Données")
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        For Each C In Plage
            If IsNumeric(Application.Match(Left(C.Value, 5), Corresp.Resize(, 1), 0)) Then
                C.Value = Application.VLookup(Left(C.Value, 5), Corresp, 2, 0)
            End If
        Next C
    End With
End Sub

[Atitila]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton2_Click()
 
Dim ws, ws2 As Worksheet
Dim objList As ListObject, objList2 As ListObject, objList3 As ListObject, objList23 As ListObject
Dim Cell As Range
Dim Result As Variant
 
    Application.ScreenUpdating = False
 
    Set ws = Worksheets("Données"): Set ws2 = Worksheets("feuil3")
    Set objList = ws.ListObjects(1): Set objList2 = ws2.ListObjects(1)
 
    With ws
        For Each Cell In objList.ListColumns(14).DataBodyRange
            Result = Application.VLookup(Cell.Value, objList2.DataBodyRange, 2, False)
            If IsError(Result) Then
                Cell.Value = "Non Defini"
            Else
                Cell.Value = Result
            End If
        Next Cell
 
    End With
 
    Set objList = Nothing: Set objList2 = Nothing
    Set ws2 = Nothing: Set ws = Nothing
 
End Sub

[Daniel.C]

Tu as autiste ? Réponds au moins quand on te propose une solution. Maintenant, ca m'étonnerait que ton code fonctionne sur le classeur mis en PJ.

[Atitila]

bonsoir Daniel,
ton code fonctionne si et seulement si les valeurs correspondantes sont existantes.

pb:
1) s'il n'y a pas de correspondance dans le tableau, il devrait lire uniquement les 02 premiers caractères et renvoyer la correspondance.

2) ton code respecte la casse, j'aimerai qu'il ne respecte pas la casse.

merci et désolé.

ci joint un fichier d'exemple

Copie de TEST_CORESPOND.xlsm

[Daniel.C]

Est-ce que ton code est correct ou est-e que tu veux que je corrige le mien ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
    Dim C As Range, Plage As Range, Corresp As Range, X As Range
    With Sheets("Feuil3")
        Set Corresp = .Range("A2", .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With Sheets("Données")
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
        For Each C In Plage
            If IsNumeric(Application.Match(Left(C.Value, 5), Corresp.Resize(, 1), 0)) Then
                C.Value = Application.VLookup(Left(C.Value, 5), Corresp, 2, 0)
            Else
                C.Value = Application.VLookup(Left(C.Value, 2), Corresp, 2, 0)
            End If
        Next C
    End With
End Sub

[Atitila]

mon code fonctionne exactement comme le tien,

si tu peux corriger le tien ou le mien ce serait parfait DANIEL.C

[Daniel.C]

C'est fait, les messages se sont croisés. Ma réponse est la #6.

[Atitila]

Bonjour DANIEL C,
ton code fonctionne exactement comme je le veux.
merci pour cette aide précieuse.

[Atitila]

Bonjour DANIEL,

un petit soucis, quand je déplace par exemple les données de la colonne A pour la colonne Bde la feuille Données, dans le code, la ligne Set Plage = .Range("B2", .Cells(.Rows.Count, 1).End(xlUp))
considère toutes les plages des colonne A et B alors qu'elle ne devrait considérer la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With Sheets("Données")
 
        Set Plage = .Range("B2", .Cells(.Rows.Count, 1).End(xlUp))
 
        For Each C In Plage
 
            If IsNumeric(Application.Match(Left(C.Value, 5), Corresp.Resize(, 1), 0)) Then
                C.Value = Application.VLookup(Left(C.Value, 5), Corresp, 2, 0)
            Else
                C.Value = Application.VLookup(Left(C.Value, 2), Corresp, 2, 0)
            End If
 
        Next C
 
    End With

[Daniel.C]

Bonjour,

Dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(.Rows.Count, 1)

, "1" représente la colonne. Il faut donc mettre "2" qui représente la colonne B :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Plage = .Range("B2", .Cells(.Rows.Count, 2).End(xlUp))

[Atitila]

Merci DANIEL.C pour l'explication.