j'avais trouve un code qui permettait en dble cliquant su un case de
transformer un le caractere wingdings o en y ce qui correspondait je crois à
une case vide et une case cochée.... impossible de me rappeller...
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Ave Lionel,
Un exemple avec la cellule E12 qui semble convenir. Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then If Target = "a" Then Target = "" Else Target = "a" End If End Sub
Serge
"Lionel" a écrit dans le message de news: 49b467f5$0$2729$
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de transformer un le caractere wingdings o en y ce qui correspondait je crois à une case vide et une case cochée.... impossible de me rappeller... Merci de votre aide
Ave Lionel,
Un exemple avec la cellule E12 qui semble convenir.
Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$12" Then
If Target = "a" Then Target = "" Else Target = "a"
End If
End Sub
Serge
"Lionel" <liocanou@wanadoo.fr> a écrit dans le message de news: 49b467f5$0$2729$ba4acef3@news.orange.fr...
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de
transformer un le caractere wingdings o en y ce qui correspondait je crois à
une case vide et une case cochée.... impossible de me rappeller...
Merci de votre aide
Un exemple avec la cellule E12 qui semble convenir. Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then If Target = "a" Then Target = "" Else Target = "a" End If End Sub
Serge
"Lionel" a écrit dans le message de news: 49b467f5$0$2729$
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de transformer un le caractere wingdings o en y ce qui correspondait je crois à une case vide et une case cochée.... impossible de me rappeller... Merci de votre aide
garnote
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
Ave Lionel,
Un exemple avec la cellule E12 qui semble convenir. Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then If Target = "a" Then Target = "" Else Target = "a" End If End Sub
Serge
"Lionel" a écrit dans le message de news: 49b467f5$0$2729$
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de transformer un le caractere wingdings o en y ce qui correspondait je crois à une case vide et une case cochée.... impossible de me rappeller... Merci de votre aide
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a")
End Sub
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news: e2h25jFoJHA.5412@TK2MSFTNGP04.phx.gbl...
Ave Lionel,
Un exemple avec la cellule E12 qui semble convenir.
Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$12" Then
If Target = "a" Then Target = "" Else Target = "a"
End If
End Sub
Serge
"Lionel" <liocanou@wanadoo.fr> a écrit dans le message de news: 49b467f5$0$2729$ba4acef3@news.orange.fr...
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de
transformer un le caractere wingdings o en y ce qui correspondait je crois à
une case vide et une case cochée.... impossible de me rappeller...
Merci de votre aide
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
Ave Lionel,
Un exemple avec la cellule E12 qui semble convenir. Tu dois au préalable formaté E12 en Webdings.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$E$12" Then If Target = "a" Then Target = "" Else Target = "a" End If End Sub
Serge
"Lionel" a écrit dans le message de news: 49b467f5$0$2729$
bonjour,
j'avais trouve un code qui permettait en dble cliquant su un case de transformer un le caractere wingdings o en y ce qui correspondait je crois à une case vide et une case cochée.... impossible de me rappeller... Merci de votre aide
Lionel
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" a écrit dans le message de news:%
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
> Ave Lionel, > > Un exemple avec la cellule E12 qui semble convenir. > Tu dois au préalable formaté E12 en Webdings. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then > If Target = "a" Then Target = "" Else Target = "a" > End If > End Sub > > Serge > > > "Lionel" a écrit dans le message de news:
49b467f5$0$2729$
>> bonjour, >> >> j'avais trouve un code qui permettait en dble cliquant su un case de >> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller... >> Merci de votre aide >> >> > >
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de
news:%23p9EgwFoJHA.5228@TK2MSFTNGP02.phx.gbl...
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a")
End Sub
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
e2h25jFoJHA.5412@TK2MSFTNGP04.phx.gbl...
> Ave Lionel,
>
> Un exemple avec la cellule E12 qui semble convenir.
> Tu dois au préalable formaté E12 en Webdings.
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then
> If Target = "a" Then Target = "" Else Target = "a"
> End If
> End Sub
>
> Serge
>
>
> "Lionel" <liocanou@wanadoo.fr> a écrit dans le message de news:
49b467f5$0$2729$ba4acef3@news.orange.fr...
>> bonjour,
>>
>> j'avais trouve un code qui permettait en dble cliquant su un case de
>> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller...
>> Merci de votre aide
>>
>>
>
>
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" a écrit dans le message de news:%
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
> Ave Lionel, > > Un exemple avec la cellule E12 qui semble convenir. > Tu dois au préalable formaté E12 en Webdings. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then > If Target = "a" Then Target = "" Else Target = "a" > End If > End Sub > > Serge > > > "Lionel" a écrit dans le message de news:
49b467f5$0$2729$
>> bonjour, >> >> j'avais trouve un code qui permettait en dble cliquant su un case de >> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller... >> Merci de votre aide >> >> > >
garnote
Un exemple pour la colonne 5 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 5 Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"Lionel" a écrit dans le message de news: 49b4f810$0$12634$
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" a écrit dans le message de news:%
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
> Ave Lionel, > > Un exemple avec la cellule E12 qui semble convenir. > Tu dois au préalable formaté E12 en Webdings. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then > If Target = "a" Then Target = "" Else Target = "a" > End If > End Sub > > Serge > > > "Lionel" a écrit dans le message de news:
49b467f5$0$2729$
>> bonjour, >> >> j'avais trouve un code qui permettait en dble cliquant su un case de >> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller... >> Merci de votre aide >> >> > >
Un exemple pour la colonne 5 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then Target = IIf(Target = "a", "", "a")
End Sub
Serge
"Lionel" <liocanou@wanadoo.fr> a écrit dans le message de news: 49b4f810$0$12634$ba4acef3@news.orange.fr...
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de
news:%23p9EgwFoJHA.5228@TK2MSFTNGP02.phx.gbl...
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a")
End Sub
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
e2h25jFoJHA.5412@TK2MSFTNGP04.phx.gbl...
> Ave Lionel,
>
> Un exemple avec la cellule E12 qui semble convenir.
> Tu dois au préalable formaté E12 en Webdings.
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then
> If Target = "a" Then Target = "" Else Target = "a"
> End If
> End Sub
>
> Serge
>
>
> "Lionel" <liocanou@wanadoo.fr> a écrit dans le message de news:
49b467f5$0$2729$ba4acef3@news.orange.fr...
>> bonjour,
>>
>> j'avais trouve un code qui permettait en dble cliquant su un case de
>> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller...
>> Merci de votre aide
>>
>>
>
>
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 5 Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"Lionel" a écrit dans le message de news: 49b4f810$0$12634$
ok mais si je veux que toute une colonne soit sur ce principe?
"garnote" a écrit dans le message de news:%
Ou en plus court :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$12" Then Target = IIf(Target = "a", "", "a") End Sub
Serge
"garnote" a écrit dans le message de news:
> Ave Lionel, > > Un exemple avec la cellule E12 qui semble convenir. > Tu dois au préalable formaté E12 en Webdings. > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
> If Target.Address = "$E$12" Then > If Target = "a" Then Target = "" Else Target = "a" > End If > End Sub > > Serge > > > "Lionel" a écrit dans le message de news:
49b467f5$0$2729$
>> bonjour, >> >> j'avais trouve un code qui permettait en dble cliquant su un case de >> transformer un le caractere wingdings o en y ce qui correspondait je
crois à
>> une case vide et une case cochée.... impossible de me rappeller... >> Merci de votre aide >> >> > >
