{VBA Excel}Copie de formule d'où je veux

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

Code:

---

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:

---

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

---

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

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

Code:

---

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

Code:

---

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

Code:

---

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+

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:

---

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

---

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

Citation:

---

NoLigne1 = Selection.Row

---

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

ma formule ce trouve dans E1

mais je voudrais recopier cette formule

Code:

---

=SI($C4&$D4<'F:\Pr gomme semaine\[calcul gomme4,0.xls]Etat des stocks'!$F$8&'F:\Pr gomme semaine\[calcul gomme4,0.xls]Etat des stocks'!$E$7&'F:\Pr gomme semaine\[calcul gomme4,0.xls]Etat des stocks'!$F$7;"";SI(ET($I4=759;M4="O'toole");SI($L4="Citerne";1;SI($L4="fût";0,8;0));""))

---

a partir de ma selection de cellule

si je me trouve en E5 j'appuie sur un bouton qui me recopie ma formule a partir de E5 et non de E1 comme j'avais avant

Tu as deux solutions :

Code:

---

Range("E1").Copy Destination:=Range("E5:E337")

---

ou si tu parts de la cellule active

Code:

---

ActiveCell.Copy Destination:=Range("E5:E337")

---

Code:

---

1 2 3 4

Sub copier() Lig = Selection.Row Range("E1").Copy Destination:=Range("E" & Lig , "E337") End Sub

---

voila c'etait le code qu'il me fallait merci tout de meme ouskel

C'est ton autofill qui nous a fourvoyé dès le départ... Ah, si tu nous avais dit "Je veux recopier une formule sur une plage variable..." Mais tu l'as pas dit... :mouarf:

ben je pensais que tu avais compris que mon depart etait variable
désoler de vous avoir fait tourner autour du pot