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 3334 Date d'inscription Statut Membre Dernière intervention -
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Problème macro pour copier des données
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Trier des données excel - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
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
Avec ton classeur, lorsque je clique sur un des 2 boutons, la commande standard et la commande spéciale sont copiées une seule fois.
A+
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
A+