Discussion :

[flavien.d]

Bonjour,

Voici mon problème, enfin plutôt la macro que je souhaiterais réaliser :

J'ai un premier tableau dans une feuille appelée Produit et un autre tableau dans une autre feuille appelée Vente.
Dans Produit, j'ai une colonne appelée code article, de même que dans vente.

Je souhaiterais comparé les codes articles de la feuille Produit avec ceux de la feuille Vente. Si le code est retrouvé dans la feuille vente alors copier les 4 dernière colonnes et les coller à partir de la colonne K sur la ligne concernée par le produit dans la feuille Produit.

J'espère être assez clair! Si quelqu'un peut m'aider, je lui en serais très reconnaissant!

Merci d'avance

[casefayere]

Bonjour,

Fait à main levée donc à adapter :

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
Sub essai()
Dim art As Range, Wprod As Worksheet, Wvente As Worksheet
derlg As Long, plageprod As Range, plageVente As Range, x As Long
Set Wprod = Sheets("Produit")
Set Wvente = Sheets("Vente")
With Wvente
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row 'derniere ligne feuille vente
    Set plageVente = .Range("A2:A" & derlg) 'si les codes sont en A
End With
With Wprod
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    For x = 2 To derlg
        Set art = plageVente.Find(.Range("A" & x))
        If Not art Is Nothing Then
            .Range("K" & x, "n" & x) = Wvente.Range("K" & art.Row, "n" & art.Row) 'si les colonnes sont à partir de K
        End If
    Next x
End With
End Sub

[flavien.d]

Merci pour la macro proposé, cependant il me semble qu'il n'y a pas la partie pour copier les données?

[casefayere]

si, cette ligne :

Code :

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

.Range("K" & x, "n" & x) = Wvente.Range("K" & art.Row, "n" & art.Row)

[flavien.d]

D'accord!
Alors mon adaptation ne doit pas être bonne!!
Ma colonne article sur la feuille produit se trouve en D et sur l'autre feuille en A. Voici la macro que j'ai essayé :

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
 
Sub Test()
Dim art As Range, Wprod As Worksheet, Wvente As Worksheet
Dim plageprod As Range, derlg As Long, plageVente As Range, x As Long
Set Wprod = Sheets("T375FIFF") 'produit
Set Wvente = Sheets("pa") 'vente
With Wvente
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row 'derniere ligne feuille vente
    Set plageVente = .Range("A2:A" & derlg) 'si les codes sont en A
End With
With Wprod
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    For x = 2 To derlg
        Set art = plageVente.Find(.Range("D" & x))
        If Not art Is Nothing Then
            .Range("K" & x, "n" & x) = Wvente.Range("K" & art.Row, "n" & art.Row) 'si les colonnes sont à partir de K
        End If
    Next x
End With
End Sub

[casefayere]

Attention à mes remarques dans ce code corrigé :

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
Sub Test()
Dim art As Range, Wprod As Worksheet, Wvente As Worksheet
Dim plageprod As Range, derlg As Long, plageVente As Range, x As Long
Set Wprod = Sheets("T375FIFF") 'produit
Set Wvente = Sheets("pa") 'vente
With Wvente
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row 'derniere ligne feuille vente
    Set plageVente = .Range("A2:A" & derlg) 'si les codes sont en A
End With
With Wprod
    derlg = .Range("D" & .Rows.Count).End(xlUp).Row 'ici j'ai changé A pour D
    For x = 2 To derlg
    Set art = plageVente.Find(.Range("D" & x))
    If Not art Is Nothing Then
        .Range("K" & x, "n" & x) = Wvente.Range("K" & art.Row, "n" & art.Row) 'si les colonnes sont à partir de K
    'attention ci-dessus, les données à copier sont'elles de K à N, dans la feuille "pa" ?
    End If
Next x
End With
End Sub

[flavien.d]

Les données à copier sont de C à F sur la feuille "pa" et elles sont à coller en colonne K à N.

J'aurai donc cette ligne :

Code :

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

1
2
3
If Not art Is Nothing Then
            .Range("K" & x, "n" & x) = Wvente.Range("C" & art.Row, "f" & art.Row) 'si les colonnes sont à partir de K
        End If

[casefayere]

Donc le problème est-il résolu, as-tu bien corrigé aussi cette ligne :

Code :

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

1
2
With Wprod
    derlg = .Range("D" & .Rows.Count).End(xlUp).Row

[flavien.d]

Oui j'ai bien corrigé cette ligne mais cela ne copie rien sur ma feuille Produit.

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
Sub Test()
Dim art As Range, Wprod As Worksheet, Wvente As Worksheet
Dim plageprod As Range, derlg As Long, plageVente As Range, x As Long
Set Wprod = Sheets("T375FIFF") 'produit
Set Wvente = Sheets("pa") 'vente
With Wvente
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row 'derniere ligne feuille vente
    Set plageVente = .Range("A2:A" & derlg) 'si les codes sont en A
End With
With Wprod
    derlg = .Range("D" & .Rows.Count).End(xlUp).Row
    For x = 2 To derlg
        Set art = plageVente.Find(.Range("D" & x))
        If Not art Is Nothing Then
            .Range("K" & x, "n" & x) = Wvente.Range("C" & art.Row, "f" & art.Row) 'si les colonnes sont à partir de K
        End If
    Next x
End With
End Sub

[casefayere]

comme je ne peux pas tester moi-même, essaies en ajoutant ".value" :

Code :

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

1
2
3
If Not art Is Nothing Then
   .Range("K" & x, "n" & x) = Wvente.Range("C" & art.Row, "f" & art.Row).Value
End If

[flavien.d]

C'est ok. Ca fonctionne comme je le voulais. Merci bien