Discussion :

[kedmard]

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:

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

Merci d'avance pour votre aide.


Kedmard

[JPierreM]

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
15
16
17
18
19
20
21
22
23
Sub sc()
Dim endlig As Long
Dim i As Long
Dim recherche As Range
Dim c As Range
 
With Sheets("Copie")
endlig = .Cells(5, 5).End(xlDown).Row
 
    For i = 6 To endlig
 
        Set recherche = .Cells(i, 5)
        With Worksheets("Source").Range("D11:D14")
            Set c = .Find(recherche, LookIn:=xlValues)
            If Not c Is Nothing Then
                recherche.Offset(0, 1) = c.Offset(0, 1)
                recherche.Offset(0, 2) = c.Offset(0, 2)
            End If
        End With
    Next i
End With
 
End Sub

A affiner

[kedmard]

Bonjour JPierreM

Grand merci pour ton aide ton code marche bien

Merciii