Karhl
XLDnaute Nouveau
Bonjour à tous,
Je suis face à une difficulté qui me dépasse. Je ne suis guère doué sur Excel il faut bien l'avouer.
Voici la problématique :
Mon classeur Excel contient deux feuilles.
La première me sert à saisir les infos dont j'ai besoin pour mon travail (nom du client, description de son problème, téléphone, etc...)
La seconde est une fiche récapitulative à faire signer au client.
Lorsque j'ai saisi les infos sur la feuille 1, je dois ensuite faire 4 à 5 copiers/collers à des endroits précis sur la feuille 2 pour ensuite l'imprimer. C'est très laborieux, surtout quand je suis face à une file d'attente de clients souvent pressés.
Je cherche donc à créer une macro (ou une formule ?) qui me permettrait d'obtenir automatiquement les copiers/collers dont j'ai besoin.
Jusqu'à présent, j'ai pu enregistrer une macro stupide qui copie/colle les bonnes infos au bon endroit mais... ça ne fonctionne que sur la ligne que j'ai utilisé lors de l'enregistrement ! Si j'ajoute une ligne et ses infos, fatalement et fort logiquement, la macro recopie sur ma feuille 2 la ligne utilisée lors de l'enregistrement de la macro.
La voici :
Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
Selection.Copy
Sheets("FICHE").Select
Range("C5:E5").Select
ActiveSheet.Paste
Sheets("INTERVENTIONS").Select
Range("E1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
Range("C6:E6").Select
ActiveSheet.Paste
Range("B9:G9").Select
Sheets("INTERVENTIONS").Select
Range("H1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
ActiveSheet.Paste
Sheets("INTERVENTIONS").Select
Range("L1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
Range("B16:G19").Select
ActiveSheet.Paste
End Sub
J'espère voir été clair ^^
Merci d'avance pour votre aide précieuse.
Je suis face à une difficulté qui me dépasse. Je ne suis guère doué sur Excel il faut bien l'avouer.
Voici la problématique :
Mon classeur Excel contient deux feuilles.
La première me sert à saisir les infos dont j'ai besoin pour mon travail (nom du client, description de son problème, téléphone, etc...)
La seconde est une fiche récapitulative à faire signer au client.
Lorsque j'ai saisi les infos sur la feuille 1, je dois ensuite faire 4 à 5 copiers/collers à des endroits précis sur la feuille 2 pour ensuite l'imprimer. C'est très laborieux, surtout quand je suis face à une file d'attente de clients souvent pressés.
Je cherche donc à créer une macro (ou une formule ?) qui me permettrait d'obtenir automatiquement les copiers/collers dont j'ai besoin.
Jusqu'à présent, j'ai pu enregistrer une macro stupide qui copie/colle les bonnes infos au bon endroit mais... ça ne fonctionne que sur la ligne que j'ai utilisé lors de l'enregistrement ! Si j'ajoute une ligne et ses infos, fatalement et fort logiquement, la macro recopie sur ma feuille 2 la ligne utilisée lors de l'enregistrement de la macro.
La voici :
Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
Selection.Copy
Sheets("FICHE").Select
Range("C5:E5").Select
ActiveSheet.Paste
Sheets("INTERVENTIONS").Select
Range("E1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
Range("C6:E6").Select
ActiveSheet.Paste
Range("B9:G9").Select
Sheets("INTERVENTIONS").Select
Range("H1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
ActiveSheet.Paste
Sheets("INTERVENTIONS").Select
Range("L1245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE").Select
Range("B16:G19").Select
ActiveSheet.Paste
End Sub
J'espère voir été clair ^^
Merci d'avance pour votre aide précieuse.