copier lignes

[Evelynetfrancois]

bonsoir à vous tous

quelle ligne de VBA permet de copier une ligne de A1 à IF1 à partir de la cellactive qui se trouvera toujours dans la colonne AA

c'est a dire
si je clic la cell A8
la ligne A8;IF8 est copier
si je clic la cell A23
la ligne A23;IF23 est copier

j espere etre clair
je vous remercie d avance
bonne soirée a tous
E et F

 

[pascal.bm]

Bonsoir
essaye ce code. il devrait te convenir

Sub demo()
ActiveCell.Range('A1:IF1').Select
Selection.Copy
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range('A1').Select
ActiveSheet.Paste
ActiveCell.Select
Application.CutCopyMode = False
End Sub
Bonne chance

 

[Dan]

Bonsoir,

Voici un code qui te permet de faire une copie de la ligne pour autant que tu clique dans une des cellules de la colonne A.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro par DAN pour Evelynetfrancois - 23/01/06
'Macro pour [B]Lien supprimé[/B]
On Error Resume Next
If Application.Intersect(Target, Range('A:A')) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy
End Sub

Reste à savoir maintenant où tu veux copier cette ligne car avec cette macro excel attend quelque chose.
Pour sortir de là, appuie sur ESC sur ton clavier.

A te lire

 

[evelynetfrancois]

bonjour Merci dan et pascal
oui dan je ne cherche qu' une ligne à rajouter à une procédure existante
grace à votre grande aide j arrive à prélever cela ...
Sub cop()
ActiveCell.range('A1:IF1').Select
Selection.Copy
''''Sheets(Feuil2).Select
range('b18').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets('Feuil1').Select
range('A1').Select
End Sub

tout va bien si je colle sur la meme feuille,(en b18 pour cet exemple) mais je n arrive pas à aller coller en feuille 2 , ca bloque !!
auriez-vous la solution
merci d avance et tres bonne journée
E et F

 

[evelynetfrancois]

oups dsl j ai trouvé...........
je mettais la macro dans la feuille 1 au lieu de la mettre dans un module

merci pour tout
E et F