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

 

[danielco]

Bonjour,
Sur quelle ligne se situe l'erreur ?
Daniel

 

[Phil69970]

Bonjour à tous

@PAT83500
Quelques remarques :

1) Utilises les balises </> pour le code c'est plus lisible ( à droite de l'icone GIF)

C'est la 2eme fois que l'on te le dit

2) Répondre au message de tes précédentes demande me semble un minimum

3) J'ai pas vu ton fichier

Bonne lecture

 

[PAT83500]

Bonjour,

Désolée suis débutante et ne connait pas encore les habitudes à adopter.
L'erreur se trouve sur la ligne : Set ws_data = wk_file.Worksheets("Info")
Ci joint mon fichier avec plusieurs modules car je fais beaucoup d'essai.
Merci d'avance.

 

[danielco]

Bonjour,
Bizarre, ça ne provoque pas d'erreur ici. C'est bien avec ce classeur que tu testes ?
Daniel

 

[PAT83500]

Re Bonjour oui en excel 2013, quand j'exécute il s'arrête sur cette ligne qu'il met en jaune..

 

[PAT83500]

Erreur exécution 1004

 

[danielco]

C'était une erreur 438 au début ? Sur quelle ligne, l'erreur 1004 ? Quel est le libellé du message ?
Daniel

 

[PAT83500]

Je viens de réesssayer, ca marche à part que maintenant il s'arrête sur :
'boucle sur les données
For i = 1 To lstrw
quantite = ws_data.Cells(F, 6)

 

[PAT83500]

Erreur d'exécution 13 sur la dernière ligne que j'ai modifié :
'boucle sur les données
For i = 1 To lstrw
quantite = ws_data.Cells(i, 6)

 

[Phil69970]

Bonjour à tous

@PAT83500
Tu as une erreur d'écriture sur cette ligne

Quantite = ws_Data.Cells(F, 6).Value

A remplacer par :

Quantite = ws_Data.Cells(6, "F").Value

Avec cells c'est d'abord la ligne puis la colonne

Merci de ton retour

 

[Phil69970]

Et tu as une 2eme erreur toujours sur cette ligne

Quantite = ws_Data.Cells(6, "F").Value

Car ici tu vises la 6eme ligne de la colonne F ??

 

[Phil69970]

Et une 3 eme erreur ici

lsTrw = ws_Data.Cells(Rows.Count, 12).End(xlUp).Row

A remplacer par

lsTrw = ws_Data.Cells(Rows.Count, 6).End(xlUp).Row

et une 4eme erreur ici

For i = 1 To lsTrw

A remplacer par

For i = 12 To lsTrw

Cela en fait des erreurs sur 5 ou 6 lignes de codes !! 😉

Et c'est pas fini le reste est faux aussi !!!

 

[Phil69970]

@PAT83500

Il serait plus simple de nous dire ce que tu veux faire exactement
Exemple je veux copier ceci colonne 2 et 3 vers cela colonne 4 et 5 si j'ai ça comme condition etc....

 

[PAT83500]

En fait le code fonctionnait quand mon tableau était en ligne 1 le fait de l'avoir déplacé en ligne 11, ca ne fonctionne plus.. je vais modifier selon vos commentaires.