Discussion :

[Thomas69]

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

[Thomas69]

mon 2eme code ne peut pas marcher car je rentre en conflit du fait que je choisis la 1er ligne et de l'autre que je choisis la ligne par la cellule active

j'ai tente de suprimer
Range("E1").Select

mais apres ca ne marche pas car ma formule ce trouve que dans E1 c'est ma cellule d'origine

[ouskel'n'or]

Tu as plusieurs solutions, je t'en propose une.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Plage as variant, NoLigne1, NoLigne2, NoCol1, NoCol2
    NoLigne1 = 5
    NoLigne2 = 337
    NoCol1 = 5
    NoCol2 = 5
    Plage = Range(cells(NoLigne1, NoCol1),Cells(NoLigne2,NoCol2)).address,false,false
    Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault

Avec ça tu devrais pouvoir commencer où tu veux et finir où tu veux.
Pas testé mais je pense que ça devrait coller
Sinon, tu dis

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub mise_a_jour_colonne_E1()

Dim Ligne As Integer


    Dim Plage As Variant, NoLigne1, NoLigne2, NoCol1, NoCol2
    NoLigne1 = Selection.Row
    NoLigne2 = 337
    NoCol1 = 5
    NoCol2 = 5
    Plage = Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address = False    Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault
End Sub

j'ai ecris ceci pour commencer d'ou je veux
mais la ligne en rouge ne marche pas

"erreur d'incompabilité"

je l'ais modifier car en ecrivant la tienne mot pour mot je ne pouvais pas activer ma macro pour mauvaise ecriture

est ce que tu sais d'ou peut venir l'erreur

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plage = Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address( False,false)

Essaie cette ligne

Edit
J'ai testé cette dernière "version", c'est ok pour moi.
Désolé
A+

[Thomas69]

ca recopie bien la formule mais je dois selectioner la case E1 a chaque fois donc la recopie se fait de E1 a E337 je ne peux pas choisir d'ou j'ai selectionner ma ligne

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub mise_a_jour_colonne_E1()
 
Dim Plage As Variant, NoLigne1, NoLigne2, NoCol1, NoCol2
 
 
    NoLigne1 = Selection.Row
    NoLigne2 = 337
    NoCol1 = 5
    NoCol2 = 5
 
    Plage = Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address(False, False)
 
    Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault
 
End Sub

[ouskel'n'or]

Explique ce que tu veux faire exactement. Il est clair que si tu mets

NoLigne1 = Selection.Row

et que ta sélection est sur E1, ta plage partira de E1...