Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel n i le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellul e de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel n i le
tien
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une cellul e de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel n i le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellul e de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoubleClic..xls
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoubleClic..xls
JB
On 25 juil, 15:52, Clochard <cloch...@hotmail.com> wrote:
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoubleClic..xls
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanu el ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une ce llule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages pr écédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard <cloch...@hotmail.com> wrote:
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanu el ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une ce llule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages pr écédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanu el ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Canc el
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une ce llule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages pr écédents -
- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard wrote:Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard <cloch...@hotmail.com> wrote:
Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard <cloch...@hotmail.com> wrote:
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard wrote:Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard wrote:Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard <cloch...@hotmail.com> wrote:
Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard <cloch...@hotmail.com> wrote:
Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?hzupakE3I5
JB
On 25 juil, 19:08, Clochard wrote:Merci JB...
Mais.......... page introuvable... ???????????????????????????
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
http://boisgontierjacques.free.fr/fichiers/Evenementiel/WorkSheetDoub...
JB
On 25 juil, 15:52, Clochard wrote:Salut,
C'est con, mais j'arrive pas à faire fonctionner ni celui de Emmanuel ni le
tien
--
Clochard
Aimerais bien savoir....
Merci!Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then
Target.Value = IIf(Target.Value = "", "ok", "")
end if
Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Interior.ColorIndex = 36 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 36
End If
Cancel = True
End Sub
JB
On 25 juil, 02:48, "Pierre-Yves Ste-Marie"
wrote:Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" a écrit dans le message
de news: E5xpi.38485$Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" <stemariepy@videotron.ca> a écrit dans le message
de news: E5xpi.38485$i07.246376@weber.videotron.net...
Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" a écrit dans le message
de news: E5xpi.38485$Est-il possible par un double-click de changer la valeur d'une cellule de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Merci à vous tous, c'est très fonctionnel...
Mais j'aurais une autre difficulté: quel code dois-je ajouté pour que ce
code ne fonctionne pas pour toute cellule, mais pour seulement quelques
colonnes bien définies, par exemple les colonnes M, P, S et W...
Encore merci
"tissot.emmanuel" wrote in message
news:O$Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" a écrit dans le message
de news: E5xpi.38485$Est-il possible par un double-click de changer la valeur d'une cellule
de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Merci à vous tous, c'est très fonctionnel...
Mais j'aurais une autre difficulté: quel code dois-je ajouté pour que ce
code ne fonctionne pas pour toute cellule, mais pour seulement quelques
colonnes bien définies, par exemple les colonnes M, P, S et W...
Encore merci
"tissot.emmanuel" <tissot.emmanuel@free.fr> wrote in message
news:O$sqHglzHHA.5772@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" <stemariepy@videotron.ca> a écrit dans le message
de news: E5xpi.38485$i07.246376@weber.videotron.net...
Est-il possible par un double-click de changer la valeur d'une cellule
de
Oui à Non et inversement..
Merci beaucoup de votre soutien
Merci à vous tous, c'est très fonctionnel...
Mais j'aurais une autre difficulté: quel code dois-je ajouté pour que ce
code ne fonctionne pas pour toute cellule, mais pour seulement quelques
colonnes bien définies, par exemple les colonnes M, P, S et W...
Encore merci
"tissot.emmanuel" wrote in message
news:O$Bonsoir,
Click droit sur l'onglet de la feuille concernée, Visualiser le code,
Copier ceci:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With Target
Select Case .Value
Case "Non"
.Value = "Oui"
Cancel = True
Case "Oui"
.Value = "Non"
Cancel = True
End Select
End With
Application.EnableEvents = True
End Sub
Cordialement,
Manu/
"Pierre-Yves Ste-Marie" a écrit dans le message
de news: E5xpi.38485$Est-il possible par un double-click de changer la valeur d'une cellule
de
Oui à Non et inversement..
Merci beaucoup de votre soutien