Nouveaux_elements.xlsmBonjour à tous,
Pour commencer, désolé, j'ai déjà posté ça dans une discussion terminée. Il semble que je m'y sois mal pris, donc je recommence.
Ce coup ci je souhaite, copier les valeurs d'une colonne (U) vers un autre fichier en copiant à partir de la première cellule vide vers le bas.
Quand je l'exécute, je n'ai pas d'erreur mais la copie n'est pas bonne. Si je fais ça c'est pour pouvoir ensuite faire un vlookup pour récupérer certaines infos et les copier dans le fichier cible, comme la date de naissance, le nombre d'enfant.
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
24
25
26
27 Sub To_personnels() Dim plage As Range, cel As Range Dim oRng As Range Dim result As Range Application.ScreenUpdating = False valcherch = Sheets("Stage_terminé").Range("U45") With Workbooks("Nouveaux_elements.xlsm").Worksheets("Stage_terminé") Derlig = .Range("U" & Rows.Count).End(xlUp).Row Set plage = .Range("U2:U" & Derlig) End With Derlig = 0 With Workbooks("personnel.xlsx").Worksheets("Salaires") For Each cel In plage If cel = valcherch Then Derlig = .Range("U" & Rows.Count).End(xlUp).Row + 1 If Derlig = 1 Then Derlig = 2 End If Cells(cel.Row, 1).Resize(22, 22).Copy .Range("A" & Derlig) End If Next cel End With End Sub
Voilà, j'ai essayé différente chose mais sans résultat. Je joints les 2 fichiers.
Vous l'aurez tous compris, je débute dans le VBA. Nouveaux_elements.xlsm[ATTACH]171990
Merci d'avance.
Cordialement,
Fred
Partager