Q Quaisako Guest 18 Janvier 2006 #1 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] Pièces jointes TestSuppX.zip 18.6 KB · Affichages: 46
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]
A Abel XLDnaute Accro 18 Janvier 2006 #2 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. Vote positif 0 Vote négatif
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.