XL 2013 autoriser uniquement le coller "valeur" sur une plage de cellule.

[cyrikou]

Bonjour à tous,

Est possible de n'autoriser que le "coller" "valeur" sur une plage de cellule d'une feuille . J'ai besoin de cette fonction car les utilisateurs de mon fichier, colle généralement en standard, ce qui provoque des problèmes de compatibilité, de mise en forme, ect....

Merci d'avance

 

[DoubleZero]

Re : autoriser uniquement le coller "valeur" sur une plage de cellule.

Bonjour, cyrikou, le Forum,

Sélectionner les cellules pour lesquelles le "copier-coller" doit être proscrit, nommer la sélection "NON", et copier le code suivant dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
'Adaptation d'un code de job75 (Merci !)
    If Not Intersect(c, [NON]) Is Nothing Then Application.CutCopyMode = 0
End Sub

A bientôt

 

[cyrikou]

Re : autoriser uniquement le coller "valeur" sur une plage de cellule.

Merci pour la réponse mis cela ne répond pas vraiment à ma question. C'est le mode copier "valeurs" que je veux activer sur la plage de cellule et pas les autres modes (format, formules, etc...). Merci tout de même car ce code me sera utile dans le futur, j'en suis sur .

 

[eriiic]

Re : autoriser uniquement le coller "valeur" sur une plage de cellule.

Bonjour,

ne l'interdit pas mais remplace par le collé valeur :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [plage]) Is Nothing Then
        Target.Copy
        Application.EnableEvents = False
        Application.Undo
        Target.PasteSpecial Paste:=xlPasteValues
        Application.EnableEvents = True
    End If
End Sub

Si le collé dépasse de [plage] c'est la totalité qui sera en collé valeur.
eric

 

[cyrikou]

Re : autoriser uniquement le coller "valeur" sur une plage de cellule.

Merci pour le code, je l'ai modifié un peu pour obtenir exactement la copie des valeurs (dans le cas du code plus haut, il y a le choix pour conserver la mise en forme d'origine, ou prendre la mise en forme de la feuille d'accueil, ce qui peut être genant si les valeurs copiées ont une mise en forme différente que le fichier de travail.

Le code suivant ne permet que de coller les valeurs (1,2,3...) :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("plage")) Is Nothing Then
        Target.Copy
        Application.EnableEvents = False
        Application.Undo
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.EnableEvents = True
    End If

end sub

Merci Eric

 

[misterno]

Bonjour y a t'il moyen d'avoir le même resultat pour le formatage des cellules, mais en laissant la possibilité de changer le contenu par saisie au clavier?

 

[eriiic]

Bonjour,
Je ne comprend pas bien le fonctionnement que tu veux.
Tu as collage Mise en forme ou collage spécial format pour ça.
eric

 

[misterno]

Bonjour,
Je ne comprend pas bien le fonctionnement que tu veux.
Tu as collage Mise en forme ou collage spécial format pour ça.
eric

Bonjour Eric,

J'ai un fichier que je diffuse à plusieurs utilisateurs pour qu'ils y saisissent leurs demandes…
les cellules on un formatage particulier une lige sur deux pour faciliter la lecture.
Et certaines demandes des utilisateurs peuvent être répétitives pour partie d'une ligne à l'autre.
Ce qui les conduit renseigner le fichier tantôt par saisie au clavier, tantôt par copier/coller.
Or le "copier/coller" détruit la mise en forme du document ( et il n'est pas envisageable de demander aux utilisateurs ultra basics de faire "collage spéciale ou valeur " )
Donc mon idée est de laisser possible la saisie au clavier ET de forcer le "collage de valeur" ( sans la mise en forme).
Si tu as une solution je suis super preneur.
( Le script correspond presque à ma demande sauf qu'il ne permet pas la saisie clavier )

Merci

 

[patricktoulon]

re
bonsoir
perso je re ferais une mise en forme au change d'une cellule comme ca tes utilisateur peuvent copier coller, valeur truc bidule,machin sans se soucier le la mise en forme du tableau

 

[eriiic]

Re,
Bonjour Patrick,

donc c'est un collage valeur (qui conserve les formats d'origine) comme décrit dans ce topic que tu veux, et non un collage format.
Teste ce qui est proposé.

Et si tu mets ta plage en (Insertion /) Tableau, les formats 1 ligne/2 sont créés automatiquement et conservés sur les copiés-collés normaux.
eric

 

[patricktoulon]

re
perso le repaste apres un undo ,c'est pas ma tasse de thé
surtout que ".value" donne la valeur
donc

Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = False
        x = Target.Value
        .Undo
        Target.Value = x
        .EnableEvents = True
    End With
End Sub

 

[eriiic]

Bonjour,

ok, c'est plus simple oui.
eric

 

[misterno]

re
perso le repaste apres un undo ,c'est pas ma tasse de thé
surtout que ".value" donne la valeur
donc

Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = False
        x = Target.Value
        .Undo
        Target.Value = x
        .EnableEvents = True
    End With
End Sub

Bonjour Messieurs,
Merci pour votre aide.
Cette fois, le code correspond exactement à mon besoin.

Merci encore.

 

[Cdy]

Bonjour à tous !

Merci pour votre contribution, qui m'a rendue un fière service!
Je suis juste ennuyée : ce code ne permet que de coller, il ne permet pas une saisie manuelle (enfin on peut écrire, mais la valeur disparait...)
Auriez vous une petite adaptation pour permettre ou la saisie manuelle ou le collage seulement en valeur?

Vous en remerciant par avance !

PS : Pardon, ce poste n'étant pas tout jeune... j'utilise Excel 2016

 

[eriiic]

Bonjour,

je ne vois pas de raison pour que ta saisie soit supprimée avec ce code.
Dépose un fichier exemple
eric