Problème macro pour copier des données
margir4233
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
Bonjour,
J'ai un ami qui m'a aidé pour ma macro pour copier des lignes d'un 1er onglet dans un 2e onglet.
Quand je fais le pas à pas (F8) je vois bien que la macro repars sur la première ligne copiée et la copie une 2e fois avant de passer à la ligne suivante.
Je ne comprend pas pourquoi et comment le corriger.
Malheureusement, mon ami ne peut pas m'aider avant quelques jours.
Des idées?
For Each Qte In Range("TableauClientCommandeSpeciale_Qte")
If Qte <> "" And Qte <> "0" Then
'On a des quantités, donc on copie la ligne dans le tableau des CommandeJour
Sheets("ClientCommande").Select
Qte.EntireRow.Select
Selection.Copy
Application.Goto Sheets("CommandeJour").Range("A" & 6 + NoLigne)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
NoLigne = NoLigne + 1
End If
Next
Merci pour votre aide
J'ai un ami qui m'a aidé pour ma macro pour copier des lignes d'un 1er onglet dans un 2e onglet.
Quand je fais le pas à pas (F8) je vois bien que la macro repars sur la première ligne copiée et la copie une 2e fois avant de passer à la ligne suivante.
Je ne comprend pas pourquoi et comment le corriger.
Malheureusement, mon ami ne peut pas m'aider avant quelques jours.
Des idées?
For Each Qte In Range("TableauClientCommandeSpeciale_Qte")
If Qte <> "" And Qte <> "0" Then
'On a des quantités, donc on copie la ligne dans le tableau des CommandeJour
Sheets("ClientCommande").Select
Qte.EntireRow.Select
Selection.Copy
Application.Goto Sheets("CommandeJour").Range("A" & 6 + NoLigne)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
NoLigne = NoLigne + 1
End If
Next
Merci pour votre aide
1 réponse
-
Bonjour,
A priori, le problème ne se situe pas au niveau de ce "morceau" de procédure.
Pour nous permettre de t'aider, il est souhaitable que tu transmettes une copie de ton classeur qui reproduise le dysfonctionnement constaté.
A+-
Bonjour Gyrus,
Tout d'abord merci beaucoup de m'aider
Ci-joint le fichier
http://www.cjoint.com/c/FFrkW6n1pqa
C'est la fonction des boutons dans l'onglet CommandeClient
Quand j'appui sur un des boutons (ca le fait pour les deux)
Ca copie en double les données dans CommandeJour
J'ai mis des données prêtes -
J'ai trouvé le bug, c'était parce que j'ai inséré une colonne pour le type de commande et ça changé une zone nommé
Donc si je ne mettais pas de valeur dans Commentaire produit, ça copiait comme il faut
Mais pas quand il y avait un commentaire
J'ose une nouvelle question...
Il me reste un big, c'est le bouton Finaliser la commande du jour dans l'onglet CommandeJour. Ca ne va pas copier à la dernière ligne vide
Merci beaucoup de prendre le temps, c'est très apprécié
margir
-
