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