Bonjour,
Je suis assez novice en vba, mon problème est le suivant j'ai dans une feuille nommée "Source" un tableau contenant les champs Numsécu, Nom, et Club ; dans une autre feuille nommée "Copie" j'ai le même tableau avec juste la colonne Numsécu remplie. Je souhaite donc remplir via une procédur vba, le tableau de la feuille "Copie" en copiant les infos de la 1ere feuille de la façon suivante:
Quand le numero sécu est le même sur chaque feuille alors que le nom et le club soit copié sur le 1er tableau et collé sur le second dans la feuille 2 .
Je vous met Ci-joint mon fichier pour plus de compréhension.
J'ai concocter le code ci-après qui malheursement ne marche pas:
Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub mmm() Dim R As Range, endlig As Long With Sheets("Copie") endlig = .Cells(.Rows.Count, 5).End(xlToLeft).Row For i = 6 To endlig Set R = .Range(.Cells(i, 5), .Cells(endlig, 5)).Find(Sheets("Source").Range("D11:D15"), .Cells(endligne, 5), LookIn:=xlValues) If Not R Is Nothing Then .Range(R(2, 1), R(3, 1)).Value = Sheets("Source").Range("E11:F11").Value End If Next i End With End Sub
Kedmard
Partager