Discussion :

[sylvain591]

bonjour a tous
je souterais limiter la macro suivante a certaines liggnes de ma feuille de calcul par exemple les lignes 10,16 et 22

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
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
     With Selection.Font
     Selection.Font.ColorIndex = 7
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 7
        Cancel = True
    End With
 
End Sub

d'avance je remercie tous ceux qui se pencheront sur mon problème qui me bloque

[Krovax]

Bonjour
Le bouton pour les code est juste a coté du bouton pour citer il y a un petit # dessus

Pour ta question.

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
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Selection, Union(Rows(10), Rows(16), Rows(22))) Is Nothing Then
With Target.Font
Target.Font.ColorIndex = 7
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 7
Cancel = True
End With
End If
End Sub

Par contre le trucest donné au moins une fois par semaine la prochaine fois commence par une petite recherche sur le forum

[sylvain591]

merci de ta réponse
cela fonctionne a la perfection