Bonjour,
Je cherche à copier une feuille d'un classeur A vers une feuille d'un classeur B. Les cellules de la feuille à copier contiennent des listes déroulantes. La feuille qui décrit les listes se trouve dans les deux classeurs.
J'ai essayé ce code: j'obtiens le symbole du menu déroulant mais que la valeur qui était précédemment sélectionnée, pas la liste en entier.
Comment faire? Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Application.ScreenUpdating = False lafeuille = Sh.Name Sh.Range("A6").Copy With ThisWorkbook.Worksheets("BdD_piece").Range("A1") .PasteSpecial Paste:=xlPasteValidation .PasteSpecial Paste:=xlValues .PasteSpecial Paste:=xlFormats .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats End With Sh.Activate Application.CutCopyMode = False Selection.ClearContents Application.ScreenUpdating = True
Partager