Private sub Before double click réversible

Version imprimable

23/06/2021, 11h51
Matthieu32

Private sub Before double click réversible

Bonjour,

J'ai un private sub qui lorsque je double clique dans une cellule d'une plage donnée, change de format, je voudrais que lorsque l'on double clique de nouveau dessus elle rechange de format pour revenir à ce qu'elle était avant (quitte à devoir repréciser le format dans la macro) et cela à l'infini (qu'elle alterne entre deux formats à chaque double click en somme)

Est-ce possible?

Merci d'avance
23/06/2021, 16h09
ChristianBosch

Salut oui c'est possible, par contre il faut une condition.

Tu peux mettre ton code ?

Code:

1
2
3
4
5
6
7
8
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
If Not Intersect([B5:B10], Target) Is Nothing Then
    Target.Interior.ColorIndex = 10
    Target.Font.ColorIndex = 2
    Target.Font.Bold = True
    cancel = True
End If
End Sub

Re,
remplace par ca :

Code:

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
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
 
If Not Intersect([B5:B10], Target) Is Nothing Then
    If Target.Interior.ColorIndex = 10 Then
        With Target
            With .Font
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Bold = False
            End With
            With .Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End With
    cancel = True
    Else
        Target.Interior.ColorIndex = 10
        Target.Font.ColorIndex = 2
        Target.Font.Bold = True
        cancel = True
    End If
End If
End Su

Quand tu ne sais pas trop comment t'y prendre essaye de passer par l'enregistreur de macro, il peut te donner des pistes, en disséquant ce qu'il fait on peut trouver des choses intéressantes.

Ici pour résumer j'ai simplement testé si la cellule est déjà formatée, si c'est le cas je remets la cellule dans son état de base, sinon elle la transforme.

23/06/2021, 17h03
Matthieu32

Aaaahhh trop cool!
Merci bien
Je pense parfois à l'enregistreur de macro mais là je n'y ai pas pensé.
Merci encore
Bonne journée