ce code me permet de recopier une formule qui se trouve en E1


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub mise_a_jour_colonne_E()
'
' mise_a_jour_colone_G Macro
' Macro enregistrée le 13/08/2007 par GS
'
 
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E337"), Type:=xlFillDefault
    Range("E1:E337").Select
End Sub

mais je voudrais que je puisse selectionner a partir d'ou je veux

au lieu de forcement commencer a la ligne E1 je commence a la ligne E5 ou E6 selon ou j'ai cliquer

exemple je clique en I35 ma recopie commence a E35

et le hic que j'ai c'est comment je recupere le numero de ligne pour remplacer par la cellule active

tout coup de main serais la bienvenue

merci


j'ai tester ce code mais ca ne marche pas



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub mise_a_jour_colonne_E1()
 
Dim Ligne As Integer
 
 
    Ligne = Selection.Row
    Range("E1").Select
 
    Selection.AutoFill Destination:=Range("E" & _
    Ligne & ":E337"), Type:=xlFillDefault
 
    Range("E1:E337").Select
End Sub