Discussion :

[lolonico]

Bonjour à tous,

Mon document se présente de la manière suivante :
Feuil1 =
Colonne A : Ma référence
Colonne B : La référence du constructeur
...
Feuil2 =
Colonne A : Ma référence
Colonne B : La référence d'un autre constructeur.

Ce que je voudrais c'est de créer dans la Feuil3 le modèle suivant :
Colonne A : Ma référence
Colonne B : La référence du constructeur(Feuil1)
Colonne C : La référence d'un autre constructeur(Feuil2).

Attention, la colonne A(Feuil1) et la colonne A(Feuil2) n'ont pas les même références.
C'est pour cela que je cherche à les mettre à la suite.

Je sais mettre à jour plusieurs sheets à partir d'un fichier déjà créée mais là c'est la première fois.

Merci d'avance.

[La Zélie]

Bonjour,

peux-tu préciser si la référence (colonneA) de ta feuille3 est une nouvelle référence?

Une idée: un simple 'coller avec liaison' ne te suffit pas?

[lolonico]

Merci beaucoup mais j'avais trouvé une solution juste avant ta réponse.

J'ai une autre question.

Dans la Feuil2, j'ai la colonne E qui représente mon prix d'achat mais dans la colonne F, j'ai des prix nets.

Je voulais savoir comment je peux compléter ma macro pour qu'elle vérifie qu'il n'y a pas de prix net attaché à cette référence et si oui qu'elle le prenne.

Voici le code :

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 MiseajourListeMarelli()
Dim FL2 As Worksheet, FL4 As Worksheet, PremAdresse As String
Dim c As Range, i As Integer, DerLig1 As Long, DerLig2 As Long
 
Set FL2 = Worksheets("Corr. Marelli")
Set FL4 = Worksheets("Liste générale")
DerLig1 = FL2.Cells(FL2.Rows.Count, 1).End(xlUp).Row
DerLig2 = FL4.Cells(FL4.Rows.Count, 1).End(xlUp).Row
 
For i = 2 To DerLig2
    With FL2.Range("A2:A" & DerLig1)
        Set c = .Find(What:=FL4.Cells(i, 1), LookAt:=xlWhole)
        If Not c Is Nothing Then
            FL4.Cells(i, 6) = c.Offset(0, 1).Value 'Mise en place de la référence Marelli
            FL4.Cells(i, 7) = c.Offset(0, 3).Value 'Mise en place du Tarif Public Marelli
            FL4.Cells(i, 8) = c.Offset(0, 4).Value 'Mise en place du Tarif Achat Marelli
        End If
    End With
Next
 
Set FL2 = Nothing
Set FL4 = Nothing
End Sub

Si on prend cet ex