Discussion :

[rossemma]

Bonjour,
j'ai ce code à l’activation d'une feuille et je voudrais ajouter une bout de code autorisant la selection des cellules pour faire un copier/coller par exemple mais refusant la modification du contenu de la cellule.

Merci pour votre aide.

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
45
Private Sub worksheet_activate()
 
Application.ScreenUpdating = False
 
'mise en page du titre
 
    Dim T1$, T2$, chaine_rouge$, x&
    T1 = sh_parameters.Range("A21").Value
    T2 = sh_update.Range("C1")
    chaine_rouge = "(source-oorsprong SAP - " & T2 & ")"
    With Range("a1")
        .Value = "Dépenses de personnel / Personeelsuitgaven - Bud_" & T1 & " " & chaine_rouge
        x = InStrRev(.Value, chaine_rouge)
        With .Font
            .Bold = True
            .Italic = True
            .Name = "Verdana"
            .Size = 18
        End With
        .Characters(x, Len(chaine_rouge)).Font.Color = vbRed
    End With
 
 
'ouverture sur cellule déterminée
Application.Goto reference:=Range("M2"), Scroll:=True
 
With Me
    .Columns("A:XFD").Hidden = False
    .Columns("B:F").Hidden = True
    .Columns("H").ColumnWidth = 2.6
    .Columns("AC").ColumnWidth = 7.75
    .Columns("I").ColumnWidth = 17.15
    .Columns("L").ColumnWidth = 17.15
    .Columns("AA:AB").ColumnWidth = 17.15
    .Columns("J:K").ColumnWidth = 15.3
    .Columns("M:P").ColumnWidth = 15.3
    .Columns("R:X").ColumnWidth = 15.3
    .Columns("Z").ColumnWidth = 15.3
    .Columns("Y").ColumnWidth = 14.3
    .Columns("Q").ColumnWidth = 14.3
End With
 
Application.ScreenUpdating = True
 
End Sub

[MarcelG]

Bonjour rosemma,

Ravi de te retrouver.

Je ne comprends pas ta problématique, et le rapport éventuel avec ton code.

Une copie est toujours possible depuis une feuille protégée.
Tu veux copier dans la feuille ou dans une autre feuille?
Pourrais-tu précise quelle action voudrais-tu voir bloquer en retournant un exemple précis.

[rossemma]

bonjour MarcelG,

ravi également.

en fait je voudrais via vba laisser aux personnes la possibilité de faire un copy/paste des cellules (donc de la valeur) vers un autre classeur mais empêcher toute modification de la ou des cellules de la feuille de mon classeur.

[MarcelG]

Rossemma,

Dans ce cas, une simple protection de feuille suffit, non?

[rossemma]

oui tu as raison
c tout bête en fait :-)