Discussion :

[Jean-Philippe44]

Bonjour,

j'ai une Spreadsheet OWC11 donc dans un Userform.

Actuellement j'arrive a faire une croix dans la cellule en cliquant dessus.

Est il possible un sélectionnant un range de faire une croix sur l'ensemble du range?

Le code pour une cellule est avec une police Wingdings le ü est une validation comme dans les cases a cocher

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
Private Sub Spreadsheet1_Click()
 
    Dim NumR, NumC As Integer
 
    Set wksOwc = Userform1.Spreadsheet1
 
    NumR = wksOwc.ActiveCell.Row
    NumC = wksOwc.ActiveCell.Column
 
 
    If NumR >= 3 And NumC >= 5 And NumC <= 11 Then
 
        Cancel = True
 
        If wksOwc.ActiveCell = "ü" Then
 
            wksOwc.ActiveCell = ""
 
        Else
 
            wksOwc.ActiveCell = "ü"
 
        End If
 
        Application.GoTo ActiveCell, True
 
        wksOwc.Cells(NumR, 1).Select
 
    End If
 
    Set wksOwc = Nothing
 
End Sub

[Jean-Philippe44]

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
Private Sub Spreadsheet1_Click()
 
    Dim NumR, NumC As Integer
 
    Set wksOwc = Userform1.Spreadsheet1
 
    NumR = wksOwc.ActiveCell.Row
    NumC = wksOwc.ActiveCell.Column
 
 
    If NumR >= 3 And NumC >= 5 And NumC <= 11 Then
 
        Cancel = True
 
        If wksOwc.ActiveCell = "ü" Then
 
            wksOwc.Selection = ""
 
        Else
 
           wksOwc.Selection = "ü"
 
        End If
 
        Application.GoTo ActiveCell, True
 
        wksOwc.Cells(NumR, 1).Select
 
    End If
 
    Set wksOwc = Nothing
 
End Sub