Copier/Coller

[nicolas65400]

Bonjour
Je recherche à dans une macro à
copier la valeur de la feuille base AK1 si je suis sur la ligne 1 , AK2 si je suis la ligne 2 ... vers
la cellule D19 de la feuille Base
Merci

 

[job75]

Re : Copier/Coller

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[D19] = Range("AK" & ActiveCell.Row)
End Sub

A coller dans le code de la feuille "Base" (clic droit sur l'onglet et Visualiser le code).

A+

 

[nicolas65400]

Re : Copier/Coller

Merci pour la réponse malheuresement quand je copie ce code dans ma macro la valeur ne se recopie pas sur la feuille modele

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 19/06/2012 par
'

'



Sheets("Base").Select
[D19] = Range("AK" & ActiveCell.Row)
Sheets("modele").Select
Range("B2:R102").Select
'Selection.PrintOut Copies:=1, ActivePrinter:="Intendance", _
Collate:=True
'Selection.PrintOut Copies:=1, ActivePrinter:="Intendance 2", _
Collate:=True
Sheets("Base").Select

End Sub