Générer un bon excel à partir d'une liste excel

Calvus

XLDnaute Barbatruc

• 10 Septembre 2010

• #2

Re : Générer un bon excel à partir d'une liste excel

Bonjour,

Que veux tu faire exactement ?
Quelles données souhaites tu obtenir ?

A+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 10 Septembre 2010

• #3

Re : Générer un bon excel à partir d'une liste excel

Peut-être que ceci pourrait convenir

Avec formule matricielle

 

Pièces jointes

• exemplecommandeetbonMatricielle.xls

  37.5 KB · Affichages: 151

Dernière édition: 10 Septembre 2010

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 10 Septembre 2010

• #4

Re : Générer un bon excel à partir d'une liste excel

Génial !
C'est exactement ça !

Par contre la formule est vraiment compliquée. Est-ce que cela peut poser des problème de lenteur si je fais 600 lignes de la sorte?
(je travail sur un vieux pc en plus)

Merci beaucoup.

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 10 Septembre 2010

• #5

Re : Générer un bon excel à partir d'une liste excel

Il faut tester, je ne peux pas te dire

 

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 10 Septembre 2010

• #6

Re : Générer un bon excel à partir d'une liste excel

(Re)Bonjour,

J'ai essayé, c'est une usine à gaz !
Mon PC est trop lent (j'ai 600 lignes et 30 colonnes à traiter).

Aurais-tu une autre idée? Je pensais à la fonction RECHERCHE?

Merci encore.

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 10 Septembre 2010

• #7

Re : Générer un bon excel à partir d'une liste excel

Peut-être que recherche c'est une piste.

Libre à ceux qui veulent essayer

VBA reste à mon avis la meilleure solution

 

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 11 Septembre 2010

• #8

Re : Générer un bon excel à partir d'une liste excel

Bonjour,

J'ai essayé avec l'enregistreur de macro
Pour une colonne:

ActiveSheet.Range("$A$1:$D$27").AutoFilter Field:=3, Criteria1:="<>"
Columns("A:A").Select
Selection.Copy
Sheets("Bon de commande").Select
Sheets("Bon de commande").Paste
Sheets("Commande").Select
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bon de commande").Select
Range("H3").Select
Sheets("Commande").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bon de commande").Select
ActiveSheet.Paste

Cliquez pour agrandir...

Dans l'absolue ça pourrait marcher mais je pense qu'avec le nombre de ligne et de colonne, ça risque d'être trop lourd.

 

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 14 Septembre 2010

• #9

Re : Générer un bon excel à partir d'une liste excel

Une autre idée?

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 15 Septembre 2010

• #10

Re : Générer un bon excel à partir d'une liste excel

Ceci en VBA

 

Pièces jointes

• exemplecommandeetbonVBA.zip

  16.4 KB · Affichages: 64
• exemplecommandeetbonVBA.zip

  16.4 KB · Affichages: 70
• exemplecommandeetbonVBA.zip

  16.4 KB · Affichages: 70

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 16 Septembre 2010

• #11

Re : Générer un bon excel à partir d'une liste excel

Mille merci !
C'est exactement ça.
Je vais maintenant essayé de l'adapté à mon fichier.

Bravo !

 

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 16 Septembre 2010

• #12

Re : Générer un bon excel à partir d'une liste excel

Bonjour,

J'ai beaucoup de difficultés à adapter le code à mon fichier (ci joint).
C'est exactement pareil à l'exception de :
- 3 colonnes désignant le produit (au lieu d'une). Les trois informations doivent se succéder sur la même ligne.
- 43 colonnes commandes (au lieu d'une infinité)

Pourrais-tu me donner un ultime coup de main stp?

Merci encore.

 

Pièces jointes

• exemplecommandeetbonVBA.xls

  48 KB · Affichages: 71

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 17 Septembre 2010

• #13

Re : Générer un bon excel à partir d'une liste excel

Je me suis permis quelques petite modif

 

Pièces jointes

• exemplecommandeetbonVBA.zip

  21.8 KB · Affichages: 78
• exemplecommandeetbonVBA.zip

  21.8 KB · Affichages: 74
• exemplecommandeetbonVBA.zip

  21.8 KB · Affichages: 76

Vote positif 0 Vote négatif

A

Ahm

XLDnaute Junior

• 17 Septembre 2010

• #14

Re : Générer un bon excel à partir d'une liste excel

Génial ! C'est vraiment ce qu'il me fallait.

Juste deux choses:
- J'aimerai arrêter de générer à la colonne AY (=Commande 43) (car j'ai d'autres colonnes après qui sont générées en bon)
- J'aimerai démarrer 5 lignes plus bas (ligne 6 au lieu de ligne 2)

Comment je peux faire?

Merci encore !

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 17 Septembre 2010

• #15

Re : Générer un bon excel à partir d'une liste excel

Ahm à dit:

Génial ! C'est vraiment ce qu'il me fallait.

Juste deux choses:
- J'aimerai arrêter de générer à la colonne AY (=Commande 43) (car j'ai d'autres colonnes après qui sont générées en bon)
- J'aimerai démarrer 5 lignes plus bas (ligne 6 au lieu de ligne 2)

Comment je peux faire?

Merci encore !

Cliquez pour agrandir...

pour arrêter a AY
remplace

Code:

For i = .Range("1:1").Find("Commande 1").Column To .Range("IV1").End(xlToLeft).Column

Par

Code:

For i = .Range("1:1").Find("Commande 1").Column To 51

Cette ligne

Code:

 For j = [COLOR="Red"]2[/COLOR] To .Cells(65536, i).End(xlUp).Row

Suffit de changer le 2 pour la ligne de départ désirée

 

Vote positif 0 Vote négatif