R
rud@ï
Guest
Bonjour tt l monde!
J'utilise dans une feuille excel des cases à cocher avec le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Mise en forme de la cellule
Target.Font.Name = 'Wingdings'
Target.HorizontalAlignment = xlCenter
'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule
If Target.Value = 'o' Then
Target.Value = 'ý'
ElseIf Target.Value = 'ý' Then
Target.Value = 'o'
Else: Target.Value = 'ý'
End If
Target.Select
End Sub
Mais le fait est que dès que je fais double clic, cela m'insère une nouvelle case à cocher alors que je n'en ai pas besoin bien sûr! Ce qui est normal vu le code que j'utilise mais je voudrais faire une condition qui empêche cela !!!
merci pour votre aide
Fichier joint
J'utilise dans une feuille excel des cases à cocher avec le code suivant:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Mise en forme de la cellule
Target.Font.Name = 'Wingdings'
Target.HorizontalAlignment = xlCenter
'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule
If Target.Value = 'o' Then
Target.Value = 'ý'
ElseIf Target.Value = 'ý' Then
Target.Value = 'o'
Else: Target.Value = 'ý'
End If
Target.Select
End Sub
Mais le fait est que dès que je fais double clic, cela m'insère une nouvelle case à cocher alors que je n'en ai pas besoin bien sûr! Ce qui est normal vu le code que j'utilise mais je voudrais faire une condition qui empêche cela !!!
merci pour votre aide
Fichier joint