bonjour,

comment peux on faire pour que, dans une feuille protégé (sauf deux ou trois cellules), l'exécution des macros puis malgré tout ce faire.

exemple:

j'ai une macro qui effectue des copier coller.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub copier_coller_F()
'
' copier_coller_F Macro
' Macro enregistrée le 02/02/2009 par Administrateur
'
 
'
    Range("B8").Select
    Selection.Copy
    Range("D31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
comment je peux faire pour que les cellules dans lesquel je doit taper ne soit pas protégé (facile) mais pour que l'exécution de la macro puisse malgres tout se réaliser.

merci d'avance