alain.dutoit
XLDnaute Nouveau
Re salut tout le monde,
Dans le même style de ma question concernant l'impression, je voudrais que quand j'imprime le carnet de mon tireur, je copie les valeurs de ma colonne W à la colonne AH.
Quel code introduire afin de pouvoir copier quelque soit la cellule active?
Je vous copie la maccro que j'active au début pour imprimer avec quelques commentaires explicatifs supplémentaire.
Merci beaucoup d'avance.
Alain
Sub impression_3()
' Imaginons que je souhaite impimer la feuille de stand du tireur à la ligne 23.
' Je sélectionne la cellule A23 et je lance ma macccro. Si la ligne ne changais
' jamais ça ne serais pas un problème.
' Mais le problème c'est que ça doit pouvoir
' fonctionner avec toutes les lignes, et là je bloque....
ActiveCell.Select
Selection.Copy
Sheets("Feuille de stand").Select
Range("g2").Select 'cellule de destination
' Colle la valeur de la ligne A23
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Individuel").Select
'A partir d'ici je ne sais pas comment garder en mémoire que j'ai imprimer les valeurs de la ligne 23 ou une autre
End Sub
Dans le même style de ma question concernant l'impression, je voudrais que quand j'imprime le carnet de mon tireur, je copie les valeurs de ma colonne W à la colonne AH.
Quel code introduire afin de pouvoir copier quelque soit la cellule active?
Je vous copie la maccro que j'active au début pour imprimer avec quelques commentaires explicatifs supplémentaire.
Merci beaucoup d'avance.
Alain
Sub impression_3()
' Imaginons que je souhaite impimer la feuille de stand du tireur à la ligne 23.
' Je sélectionne la cellule A23 et je lance ma macccro. Si la ligne ne changais
' jamais ça ne serais pas un problème.
' Mais le problème c'est que ça doit pouvoir
' fonctionner avec toutes les lignes, et là je bloque....
ActiveCell.Select
Selection.Copy
Sheets("Feuille de stand").Select
Range("g2").Select 'cellule de destination
' Colle la valeur de la ligne A23
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Individuel").Select
'A partir d'ici je ne sais pas comment garder en mémoire que j'ai imprimer les valeurs de la ligne 23 ou une autre
End Sub