Collage d'une valeur sur feuille protégée

Bonjour,

Je programme très rarement en VBA et de ce fait, j'ai oublié beaucoup de procédures.

Si vous vouliez bien m'aider encore une fois, ...

Dans le fichier joint, si l'on va sur la feuille "MESURE OUTILl" pour connaître le diamètre de l'outil en fonction de l'usinage réalisé, une fois les valeurs entrées (dans les cases vertes), le diamètre de l'outil est calculé et un click sur "validation" est sensé recopier la valeur de la cellule "M24" (=G23) dans la cellule "E15" de la feuille "RÉGLAGE USINAGE".

"M24" est verrouillée mais pas "E15".

Les feuilles sont protégée ( sans mot de passe) pour éviter aux utilisateurs de modifier les formules.

L'opération ne se fait pas car il y a une erreur due à une référence de cellule non valide.

Merci d'avance,

GUGUSSE

12spheres2.xlsm (108.74 Ko)

Bonjour,

A tester.

Cdlt

Option Explicit
Private Sub CommandButton1_Click()
Dim ws As Worksheet
    Set ws = Worksheets("RÉGLAGES USINAGE")
    ws.Activate
    With ws
        .Unprotect
        .[B8].Select
        .Protect
    End With
    Set ws = Nothing
End Sub

Bonjour,

Je n'ai pas compris où placer le code.

J'ai essayé dans "thisworkbook" mais cela "ne marche pas" !

Finalement, je m'en suis "sorti" en créant dans la feuille où je voulais copier le résultat ("REGLAGES USINAGE"),

une cellule "cachée" valant ce que je voulais copier (la valeur de la cellule G23 de la feuille "MESURE OUTIL").

Ma macro arrive à copier (copie spéciale-valeur) en étant sur la même feuille !

Je joint le fichier au cas où mon explication ne serait pas suffisamment claire.

Je considère le problème résolu, même s'il y a une solution plus élégante.

Cordialement,

GUGUSSE

7spheres2.xlsm (108.74 Ko)
Rechercher des sujets similaires à "collage valeur feuille protegee"