[Résolu] Copier liste validation

Hippolite

XLDnaute Accro

• 18 Juin 2011

• #2

Re : Copier liste validation

Bonsoir,
Je n'ai pas excel sous la main pour vérifier, mais je vois déjà cette anomalie :
Range("A" & Range("H65536").End(xlUp).Row + 1).Select
A+

 

Dernière édition: 19 Juin 2011

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 19 Juin 2011

• #3

Re : Copier liste validation

Bonjour Hippolite,
Merci de me répondre, cependant, même en modifiant selon tes indications les listes de validation ne sont pas copiées.

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 19 Juin 2011

• #4

Re : Copier liste validation

bonjour noviceAG, le forum
Avec la proposition d hippolyte , je ne vois pas ou est le probleme ou pas compris le réel probleme peut-etre..........?
mais n'ayant pas vu ton fichier...........
bon dimanche à plus
E et F

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 19 Juin 2011

• #5

Re : Copier liste validation

Bonjour Evelynefrancois,
Je viens de voir d'ou venait le problème : Range("A5:G5").Copy au lieu de Range("A4:G4").Copy
cependant un autre demeure, c'est que la sélection reste "encadrée"
le code modifié :
Range("A4:G4").Copy
Range("A" & Range("H65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A4").Select
Je vous remercie

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 19 Juin 2011

• #6

Re : Copier liste validation

Selection.ClearContents !!!
a plus
E et F

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 19 Juin 2011

• #7

Re : Copier liste validation

Je viens de trouver, il me manquait : Application.CutCopyMode = False
Je vous remercie et vous souhaite un bon dimanche.

 

Vote positif 0 Vote négatif