Discussion :

[Matthieu32]

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

[ChristianBosch]

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

Tu peux mettre ton code ?

[Matthieu32]

Code :

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

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

[ChristianBosch]

Re,
remplace par ca :

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
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.

[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