Discussion :

[LAFORCADE]

Sur une feuille excel sur laquelle jai un listing de produits ligne par ligne avec en col la reference, la désignation et le prix unitaire.
A partir de n'importe quelle ligne je voudrai ouvrir automatiquement une autre feuille excel (bon de commande) et que toute la ligne vienne se positionner sur un emplacement fixe de la feuille excel "bon de commande"

Quelqu'un a une idée ??

merci d'avance

[alsimbad]

salut
le bonjours n'est pas de trop, le merci te sauve de justesse
utilise un code evenementtielle que tu place sur la page correspondante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(2).Select
'ici ton code
End Sub

[ouskel'n'or]

Pour faire ça, tu pars à l'envers. J'explique : Une fois la ligne sélectionnée, tu pars de la feuille 2 (le bon de commande) pour écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("BdC").Range("D8") = Worksheets("Produits").Cells(NoLigne, ColRéférence).value
Worksheets("BdC").Range("D9") = Worksheets("Produits").Cells(NoLigne, ColLibelléProduit).value
Worksheets("BdC").Range("D10") = Worksheets("Produits").Cells(NoLigne, ColPrix).value

où ColRéférence, ColLibelléProduit, ColPrix sont les N° de colonne correspondants de ta feuille produit, et B8, C8, D8 les colonnes de l'emplacement dans le bon de commande.
Tu peux aussi copier en une seule fois la ligne complète mais ça laisse moins de souplesse dans l'agencement de ton bon de commande.
Pour copier la ligne, tu dois connaître la première et la dernière colonne de la ligne à copier et tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Produits").Range("A" & Noligne & ":F" & Noligne).copy _
destination:=Worksheets("BdC").Range(La première cellule dans le bon de commande)

Tu as le choix, reste plus qu'à adapter l'une ou l'autre méthode.