copy et paste depuis cellule selectionnée

bonjour
je voudrais copier et coller la formule vers le bas avec ce code vba depuis la cellule selectionnée mais ca semble coincer
Selection.PasteSpecial Paste = xlPasteFormulas ne marche pas

Code:

---

1 2 3 4 5 6 7 8

Sub aa() Selection.Copy numrows = Selection.Rows.Count nblig = Selection.Offset(0, -1).End(xlDown).Row - numrows 'MsgBox derlig Selection.Offset(1, 0).Resize(nblig).Select Selection.PasteSpecial Paste = xlPasteFormulas End Sub

---

voir le fichier joint en test
si vous pouvez m'aider .je suis a court d'idée là
merci d'avance

Bonjour,

une idée :   utiliser la méthode  AutoFill  comme détaillée dans l'aide VBA interne …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bardo, Sousse, Kenya Garissa University, Liban, Mali, …

merci marc.je ne connais pas du tout auofill.je regarde comment il marche

désolé voici le bon fichier de test en fichier joint

ca ne marche pas avec autofill

Code:

---

1 2 3 4 5

Sub aa() Range("b2").Select 'Do an autofill down to the amount of values returned by the update Selection.AutoFill Destination:=Range("b3:b10") End Sub

---

Bonjour,

Code:

---

1 2	Range("B1").Select Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillDefault

---

depuis l'enregistreur de macro ça vous donne ça

https://msdn.microsoft.com/fr-fr/lib.../ff195345.aspx

Bonne continuation. ;)

merci nicolas ca semble marcher mais est-il possible d'utiliser la notion de cellule relative a partir d'une cellule selectionnée avec la méthode selection comme dans ma formule au début
je selectionne la cellule avec formule et ca autofill a partir de cette cellule selon le nombre de ligne non vide de la colonne précédente

Code:

---

1 2 3

ActiveCell.Select Selection.AutoFill Destination:=ActiveCell.Range("A1:A10"), Type:= _ xlFillDefault

---

peut-être à adapter en fonction de tes besoin, et tu pouvais le faire à partir de l'enregistreur de macro qui est là pour ça ;)

pas mal ,j'ai un peu de mal à comprendrre cette ligne

Code:

---

ActiveCell.Range("A1:A10")

---

et comment remplacer 10 par le nombre de ligne non vide de la colonne précédente afin que la formule s'etend jusqu'à la derniere ligne non vide de la colonne précédente

voici mon idée pour en faire une belle fonction plus générique.merci à nicolas. mais si vous avez une autre méthode je suis preneur aussi

Code:

---

1 2 3 4 5 6 7

Sub copy_jusq_dernL() ActiveCell.Select nblig = Cells(Rows.Count, ActiveCell.Offset(0, -1).Column).End(xlUp).Row Selection.AutoFill Destination:=ActiveCell.Range("a1", "a" & nblig), Type:= _ xlFillDefault End Sub

---