[Résolu] Copier liste validation

[noviceAG]

Bonjour à tous,

J'utilise ce code (Excel 2003) qui ne fonctionne pas comme je le voudrai :

'Copie des listes de validation
Range("A5:G5").Copy
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.ClearContents

Le problème vient que je copie les cellules A5:G5, mais les lignes suivantes peuvent être vides de toute saisie à l'exception de la colonne H qui est toujours renseignée.
Comment obtenir malgré tout, la copie des validations de données sur chaque lignes ?
Peut-on raccourcir ce code ?
En vous remerciant.

 

[Hippolite]

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+

 

[noviceAG]

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.

 

[Evelynetfrancois]

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

 

[noviceAG]

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

 

[Evelynetfrancois]

Re : Copier liste validation

Selection.ClearContents !!!
a plus
E et F

 

[noviceAG]

Re : Copier liste validation

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