Forcer le Paste Special Value

Bonjour,

Lorsqu'un utilisateur copy/paste des valeurs dans des cellulles possédant un contrôle de type validation (Données -> Validation-> liste par exemple), le contrôle validation n'est pas maintenu sur ces cellules.

Je veux maintenir mes controles de validation dans ma feuille même si un utilisateur va chercher ses valeurs via un copy/paste.

Existe-t-il une solution ?

J'ai pensé à forcer le copy/ Paste Special Value car ce mode de copie n'enlève pas les contrôles validation, mais il me manque le code :roll:
Comment forcer tout Paste en PasteSpecial Value ?
(sans que l'utilisateur n'est à specifiquement choisir le paste Special Value)

Merci pour votre aide.

As-tu essayé en enregistrant la macro ? Une fois fait, tu remplaces les select par l'adresse de ta plage de cellules et c'est tout bon ;)

Et en plus, après tu sauras faire et auras la satisfation d'avoir tout fait tout seul http://ouskelnor.developpez.com/images/content.gif

Merci ouskel'n'or ... Toujours aussi réactif!
(En fait j'ai déjà cherché avant de poster mais Je préférais éviter de compliquer la question avec mes recherches infructueuses)

Alors, voilà où j'en suis
Avec ce code

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Selection.PasteSpecial Paste:=xlValues End Sub

---

Si j'effectue une copie d'un élément de mon fichier en cours :
- CTRL+C & CTRL V == Paste Special Value OK
- MenuBar-> Edit->Copier & MenuBar-> Edit->Coller== Paste Special Value OK
- ClickDroit -> Copier & ClickDroit->Coller == Paste Normal :evilred:

Si je copie des cellules dans un autre fichier et que j'essaye un Coller dans ma feuille où je ne veux que coller des valeurs :
- CTRL+C & CTRL V == Paste Normal
- MenuBar-> Edit->Copier & MenuBar-> Edit->Coller == Paste Normal - ClickDroit -> Copier & ClickDroit->Coller == Paste Normal

Comment faire pour que lorsque l'on fait une action de "Paste" sur ce fichier ce soit toujours un "Paste Special Value".
Selon les 3 méthodes Copy/Paste (Il y en a d'autres ?)

Merci

Tu penses bien : C'est pas comme ça kifôfer ! :mouarf:
Pour coller les données d'un document dans un autre, déjà on n'utilise pas de select. Donc pas de problème de changement de document. Or, quand tu fais un select ou activate entre la copie et le collage, ça marche pas.
Dans l'ordre, on copie en désignant le classeur et sa feuille et on colle en en faisant autant

Code:

---

1 2	Workbooks("Classeur1.xls").Worksheets("NomFeLaFeuille").copy Workbooks("Classeur2.xls").Worksheets("NomFeLaFeuille").Pastespecial Paste:=xlValues

---

Je vois que tu mets ton code de collage dans l'événement SheetChange du classeur. Dans quel but ? Où est ton code de copie ?
A+

Alors ...

En effet je n'ai pas donné le code qu'il fallait ....
Le code donné ne me convient pas non plus car en fait je ne sais pas de quelle feuille l'utilisateur va copier quelque chose donc je ne peux pas la nommer.

Bref, j'ai trouvé un exemple qui fonctionne à cette adresse
http://www.mrexcel.com/forum/archive.../t-274828.html
Avec le fichier de démo

Par contre le code est bcp plus costaud que ce que je pensais ... et perso je n'y comprends rien !
Mais bon ça marche..

Merci quand même Ouskel'n'or car tu es d'une aide précieuse pour pas mal de monde sur ce forum :king: