Discussion :

[bigs3232]

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 :

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

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