Discussion :

[sharox]

Bonjour, j'ai un dernier petit soucis (enfin j'espère)

Sur internet j'ai regarder comment quand je clic sur une cellule, celle-ci se voit mettre un X dedans( comme si elle était coché)

mais tout les codes que je prend ne servent a rien.. je ne comprend pas pourquoi
voici le code que j'ai pris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A8:R8")) Is Nothing Then: Exit Sub
 If ActiveCell = "" Then
 ActiveCell = "X"
 ActiveCell.Font.Bold = True
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 End With
 Else
 ActiveCell = ""
 End If
End Sub

Merci

[Theze]

Re,

Dans ton autre post je t'ai posté un code mais si tu veux voir apparaître une coche, il y a une petite astuce, c'est de définir une fonte particulière (ici "Webdings") et d'entrer la lettre correspondante ici c'est "a". Teste pour voir :

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Intersect(Target, Range("A8:R8")) Is Nothing Then: Exit Sub '<--adapter ici la zone voulue !
 
    With Target
 
        If .Value = "" Then
 
            .Value = "a"
            .Font.Name = "Webdings"
            .Font.Bold = True
 
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
 
        Else
 
            .Value = ""
            .Font.Name = "Calibri"
            .Font.Bold = False
 
            .HorizontalAlignment = 1
            .VerticalAlignment = 1
 
        End If
 
    End With
 
End Sub

Hervé.

[sharox]

D'accord merci beaucoup de ton aide