Copie de formule en VBA

18/01/2006, 13h07

Bonjour le Forum,

dans une plage 'A5:AExxxxxxx'
j'essaie d'insérer une zone de liste déroulante en 'A', puis de copier des formules en 'B:AE'.

J'arrive en partie à insérer la zone de liste, mais pour les formules, je sèche.

Votre aide serait la bienvenue.
Merci d'avance.
Jipé [file name=TestSuppX.zip size=19048]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestSuppX.zip[/file]

Abel · 18/01/2006, 13h39

Bonjour Quaisako,

Essaie ce code :

Code:

Sub RecopieLigne()
Dim dl
dl = Range('a65536').End(xlUp).Row
Range('A' & dl & ':AE' & dl).Select
Selection.AutoFill Destination:=Range('A' & dl & ':AE' & dl + 1), Type:=xlFillDefault
Range('A' & dl + 1).ClearContents
End Sub

Et débranche le 'Private Sub worksheet_Change(ByVal Target As Range)'

Pour le bouton, prends celui de la 'Boite à outils contrôles' plutôt de celui du 'Formulaire'.

Abel.

18/01/2006, 13h39	#2 (permalink)
Abel XLDnaute Accro Date d'inscription: février 2005 Localisation: Montélimar Version Excel : Excel 2000 (PC) Messages: 1 158	Re:Copie de formule en VBA Bonjour Quaisako, Essaie ce code : Code: Sub RecopieLigne() Dim dl dl = Range('a65536').End(xlUp).Row Range('A' & dl & ':AE' & dl).Select Selection.AutoFill Destination:=Range('A' & dl & ':AE' & dl + 1), Type:=xlFillDefault Range('A' & dl + 1).ClearContents End Sub Et débranche le 'Private Sub worksheet_Change(ByVal Target As Range)' Pour le bouton, prends celui de la 'Boite à outils contrôles' plutôt de celui du 'Formulaire'. Abel.

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email