Bonjour à tous,
J'ai un souci que je n'arrive pas à solutionner sur le nom des onglets de ce code VBA :Set ws_data = wk_file.Worksheets("Info")
Merci d'avance pour votre aide.
Sub dupliquer_refs()
Dim wk_file As Workbook
Dim ws_data As Worksheet
Dim ws_export As Worksheet
Dim lstrw As Long
Dim rw_copy As Long
Dim quantite As Long
'identifier le fichiers et les onglets
Set wk_file = ActiveWorkbook
Set ws_data = wk_file.Worksheets("Info")
Set ws_export = wk_file.Worksheets("FdR")
'identifier la dernière ligne de nos données
lstrw = ws_data.Cells(Rows.Count, 12).End(xlUp).Row
'boucle sur les données
For i = 1 To lstrw
quantite = ws_data.Cells(F, 6)
'boucle sur la quantité
For k = 1 To quantite
'identifier la ligne de collage
rw_copy = ws_export.Cells(Rows.Count, 2).End(xlUp).Row + 1
'coller les infos
With ws_export
.Cells(rw_copy, 1) = ws_data.Cells(i, 1)
.Cells(rw_copy, 2) = ws_data.Cells(i, 2)
.Cells(rw_copy, 3) = ws_data.Cells(i, 3)
End With
Next
Next
End Sub
J'ai un souci que je n'arrive pas à solutionner sur le nom des onglets de ce code VBA :Set ws_data = wk_file.Worksheets("Info")
Merci d'avance pour votre aide.
Sub dupliquer_refs()
Dim wk_file As Workbook
Dim ws_data As Worksheet
Dim ws_export As Worksheet
Dim lstrw As Long
Dim rw_copy As Long
Dim quantite As Long
'identifier le fichiers et les onglets
Set wk_file = ActiveWorkbook
Set ws_data = wk_file.Worksheets("Info")
Set ws_export = wk_file.Worksheets("FdR")
'identifier la dernière ligne de nos données
lstrw = ws_data.Cells(Rows.Count, 12).End(xlUp).Row
'boucle sur les données
For i = 1 To lstrw
quantite = ws_data.Cells(F, 6)
'boucle sur la quantité
For k = 1 To quantite
'identifier la ligne de collage
rw_copy = ws_export.Cells(Rows.Count, 2).End(xlUp).Row + 1
'coller les infos
With ws_export
.Cells(rw_copy, 1) = ws_data.Cells(i, 1)
.Cells(rw_copy, 2) = ws_data.Cells(i, 2)
.Cells(rw_copy, 3) = ws_data.Cells(i, 3)
End With
Next
Next
End Sub
![](data:image/svg+xml;charset=utf-8,<svg height="55px" width="112px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)