copier depuis une activecell.

[Evelynetfrancois]

BONJOUR à tous
voici ma question :
quelles lignesde macro me permettrait de copier une ligne de la colonne A à la colonne R,
sachant que A est la cellule active ( cliquée)
c est a dire , je clic sur "A16" par exemple et je lance une macro qui me copierait
Range("A16:R16")

ensuite je colle sur une autre feuille de façon transposé , mais ca je sais faire
merci pour votre aide

E et F

 

[PascalXLD]

Re : copier depuis une activecell.

bonjour

Range("A" & ActiveCell.Row & ":R" & ActiveCell.Row).Copy

Bon courage

 

[Evelynetfrancois]

Re : copier depuis une activecell.

MERCI pascal 76
je cherchais desesperement une ligne qui commencait par activecell !!!!!
mais j etais tres loin.........................
c est super , tout a fait ce que je souhaitais

encore un grand merci !!!


E et F

 

[Evelynetfrancois]

Re : copier depuis une activecell.

bonjour a tous

Range("A" & ActiveCell.Row & ":R" & ActiveCell.Row).Copy

ensuite je colle sur une autre feuille de façon transposé et imprime
Sheets("FAX").Activate
Range("Q20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("FAX").PrintOut Copies:=1, Collate:=True

Est-il possible de faire cela sur plusieurs lignes mais "LIGNE aprés LIGNE" , sur plusieurs sélections de lignes (toujours en colonne("A"))

merci pour vos super idées , comme toujour
E et F

 

[pierrejean]

Re : copier depuis une activecell.

bonjour Evelynetfrancois

en supposant que j'aie compris

et non testé

Sub test()
For Each cel In Selection
If Selection.Column = 1 Then
Range("A" & Selection.Row & ":R" & Selection.Row).Copy
'ensuite je colle sur une autre feuille de façon transposé et imprime
Sheets("FAX").Activate
Range("Q20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("FAX").PrintOut Copies:=1, Collate:=True
End If
Next cel
End Sub

 

[Evelynetfrancois]

Re : copier depuis une activecell.

Bonjour pierrejean
et merci de t être penché sur mes soucis !!

La boucle For Each cel In Sélection devrais marcher
mais le problème est qu après avoir sélectionné et copier la ligne Range("A" & Selection.Row & ":R" & Selection.Row).Copy je sors de la feuille ou sont les sélections pour aller sur sheets ("FAX")
Sheets("FAX").Activate
pour coller sur une autre feuille de façon transposé et imprimer
Sheets("FAX").PrintOut Copies:=1, Collate:=True
Donc lorsque ça "reboucle " je ne suis plus sur ma feuille de départ mais bien sur Sheets("FAX") d'ou un bug
Ma feuille de départ peut être différente !! sheets("Janv") ; sheets ("Février")
etc ......


J espère être clair

En tout cas encor MERCI pour tout !!

E et F

 

[pierrejean]

Re : copier depuis une activecell.

re Evelynetfrancois

eh oui il faudrait toujours tester

voila qui devrait aller mieux (toujours sous reserve d'avoir saisi le probleme)

Sub test()
Dim nom As String
For Each cel In Selection
nom = ActiveSheet.Name
If cel.Column = 1 Then
Range("A" & cel.Row & ":R" & cel.Row).Copy
Sheets("FAX").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Sheets("FAX").PrintOut Copies:=1, Collate:=True
End If
Sheets(nom).Select
Next cel
End Sub

note: basée sur le fait qu'apres avoir imprimé ,la colonne A de la feuille FAX est libre

 

[Evelynetfrancois]

Re : copier depuis une activecell.

WAHOO §§ genialllllll merci Pierrejean
c est tout a fait cela !! super

et en plus je viens de comprendre l importance du IF aussi

merci pour tout !!!!!!!!!

E et F