XL 2013 Debogage erreur 438

[PAT83500]

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

 

[PAT83500]

J'ai un tableau sur onglet Info, A11:I232 avec en valeur colonne F la valeur pour identifier le nombre de fois ou la ligne doit être dupliquée sur l'onglet FDR.

 

[Phil69970]

Donc si je comprends bien :

Tu veux copier 32 fois la ligne 12 dans la feuille FDR (sauf l'adresse complète)

44 fois la ligne 13 etc....

 

[PAT83500]

Oui c'est ca..

 

[Phil69970]

ta feuille FDR à plein de formule , tu veux que la 1ere ligne copié se fasse sur quelle ligne ?
En clair ou je copie la 1er fois (ligne et colonne)

 

[PAT83500]

Oui sur la première ligne du tableau.

 

[PAT83500]

colonne 2 (B)

 

[Phil69970]

Donc tes formules seront écrasé ?
Et on copie uniquement

Merci de confirmer

 

[PAT83500]

Oui les formules sont écrasées

 

[Phil69970]

@PAT83500

Je te propose ce fichier

Merci de ton retour

 

[PAT83500]

Ca marche, super merci beaucoup.