Discussion :

[cety64]

Bonjour à tous,

Je fais mes débuts en VBA, et je suis en panne ...

Pour simplifier : dans un classeur excel, j'ai 2 feuilles(feuil1, feuil2)
Dans chaque feuille colonne A une référence sur 5 caractères (feuil2=toutes les références; feuil1=une partie des mêmes références)
En colonne B de la feuil2, un libellé.

Je cherche donc à ajouter dans la colonne B de la feuil1, le libellé disponible dans la feuil2 colonne B pour les références correspondantes des colonne A des 2 feuilles.

Par quel bout dois-je m'y prendre ???

[cety64]

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
dernièreLigne2 = Worksheets("Datas").Range("A1").SpecialCells(xlCellTypeLastCell).Row
dernièreLigne1 = Worksheets("Suivi").Range("A1").SpecialCells(xlCellTypeLastCell).Row
Plage = "A2:A" & dernièreLigne2
 
For Each Cellule In Worksheets("Datas").Range(Plage)
     Ref = Cellule.Value
     NoLigne2 = Cellule.Row
     With Worksheets("Suivi").Range("A3:A" & dernièreLigne1)
            Set c = .Find(Ref, LookIn:=xlValues)
            If Not c Is Nothing Then
                  NoLigne1 = c.Row
                  Worksheets("Suivi").Cells(NoLigne1, 2) = Worksheets("Datas").Cells(NoLigne2, 6)
                  Worksheets("Suivi").Cells(NoLigne1, 3) = Worksheets("Datas").Cells(NoLigne2, 3)
                  Worksheets("Suivi").Cells(NoLigne1, 5) = Worksheets("Datas").Cells(NoLigne2, 4)
                  Worksheets("Suivi").Cells(NoLigne1, 6) = Worksheets("Datas").Cells(NoLigne2, 7)
                  Worksheets("Suivi").Cells(NoLigne1, 7) = Worksheets("Datas").Cells(NoLigne2, 8)
                  Worksheets("Suivi").Cells(NoLigne1, 8) = Worksheets("Datas").Cells(NoLigne2, 9)
                  Worksheets("Suivi").Cells(NoLigne1, 9) = Worksheets("Datas").Cells(NoLigne2, 10)
            End If
        End With
Next Cellule