XL 2013 Fonction copier / coller

[Roseline]

Bonjour,
J'ai un fichier dans lequel je dois laisser l'option de copier et coller à plusieurs usagés. Cependant je voudrais laisser l'option de coller mais seulement en valeur. Je travaille avec des personnes qui ne connaissent pas beaucoup Excel et je voudrais que le coller donne seulement cette option. Est-ce quelqu'un peut me dire comment faire.
J'ai essayé cette vba, mais cela ne fonctionne pas

Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange
cell.Value = cell.Value
Next

End Sub


Merci de m'aider et bonne journée

 

[Oliver77]

Bonjour,


Tu as essayé avec l'enregistreur de macro ?
Je l'ai fait et je te confirme qu'il ne ressemble pas à ce que tu nous proposes...

A+ Oliver77

 

[job75]

Bonjour Roseline, Oliver77,

Placez ce code dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Application
    If .CutCopyMode = 0 Then Exit Sub
    Dim mem
    mem = Target
    .EnableEvents = False
    .Undo
    Target = mem
    .EnableEvents = True
End With
End Sub

Il s'exécute automatiquement sur n'importe quelle feuille avec la commande Coller.

A+

 

[Roseline]

Bonjour,


Tu as essayé avec l'enregistreur de macro ?
Je l'ai fait et je te confirme qu'il ne ressemble pas à ce que tu nous proposes...

A+ Oliver77

Oui j'ai essayé avec l'enregistreur mais malgré cela les options de collage reste toujours disponible.

 

[Roseline]

Bonjour Roseline, Oliver77,

Placez ce code dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Application
    If .CutCopyMode = 0 Then Exit Sub
    Dim mem
    mem = Target
    .EnableEvents = False
    .Undo
    Target = mem
    .EnableEvents = True
End With
End Sub

Il s'exécute automatiquement sur n'importe quelle feuille avec la commande Coller.

A+

Je viens d'essayer ta commande et effectivement toutes les options de collage demeure mais moi je voudrais juste avoir le collage en valeur seulement

 

[job75]

effectivement toutes les options de collage demeure

Pas du tout, avec ma macro seules les valeurs sont collées.

 

[Roseline]

Pas du tout, avec ma macro seules les valeurs sont collées.

je l'ai bien placé dans le workbook pourtant et ca marche pas de mon côté

 

[job75]

De votre coté ??? J'espère que vous savez ce qu'est le module du ThisWorkbook !

 

[Claudy]

Bonjour Roseline, Job,
je vous confirme que le code de Job fonctionne..

A+
Claudy

 

[Roseline]

Voici mon fichier...
Si je fais bouton droit copier dans mon onglet base de données et que je reviens à ma cellule A1 et que je fais coller avec le clique droit j'ai toutes les options de collages et non seulement valeurs….

 

[Claudy]

Roseline, même si toutes les fonctions de colles sont présentes, il ne colle que la valeur.

Claudy

 

[Roseline]

Roseline, même si toutes les fonctions de colles sont présentes, il ne colle que la valeur.

Claudy

Ouffff je pense que je ne devrais pas faire de VBA à cette heure là le matin. Je pensais que les options du menu serait mis en gris. Merci à vous deux pour votre aide si précieuse et surtout votre patiente à mon égard.