Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Salut Greg,
Un petit bricolage, peut-être ? :
Insère un rectangle sans remplissage et sans contour
dans une cellule et associe cette macro au rectangle :
Sub Mettre_Un_X()
v = Cells(4, 3).Value
Cells(4, 3).Value = IIf(v = "x", "", "x")
End Sub
* L'option « Aligner sur la grille » te permettra de
donner au rectangle les mêmes dimensions que
la cellule le contenant.
Serge
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Salut Greg,
Un petit bricolage, peut-être ? :
Insère un rectangle sans remplissage et sans contour
dans une cellule et associe cette macro au rectangle :
Sub Mettre_Un_X()
v = Cells(4, 3).Value
Cells(4, 3).Value = IIf(v = "x", "", "x")
End Sub
* L'option « Aligner sur la grille » te permettra de
donner au rectangle les mêmes dimensions que
la cellule le contenant.
Serge
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Salut Greg,
Un petit bricolage, peut-être ? :
Insère un rectangle sans remplissage et sans contour
dans une cellule et associe cette macro au rectangle :
Sub Mettre_Un_X()
v = Cells(4, 3).Value
Cells(4, 3).Value = IIf(v = "x", "", "x")
End Sub
* L'option « Aligner sur la grille » te permettra de
donner au rectangle les mêmes dimensions que
la cellule le contenant.
Serge
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Je dois surement m'y prendre comme un manche
et mettre dans le module de la feuille
Bonsoir Jacky. Merci beaucoup pour ta proposition.
Je dois surement m'y prendre comme un manche.... mais ça ne marche pas:
http://cjoint.com/?mquCuLmehD
Je fais une bétise?
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Je dois surement m'y prendre comme un manche
et mettre dans le module de la feuille
Bonsoir Jacky. Merci beaucoup pour ta proposition.
Je dois surement m'y prendre comme un manche.... mais ça ne marche pas:
http://cjoint.com/?mquCuLmehD
Je fais une bétise?
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:uQ8LyMofKHA.5036@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Je dois surement m'y prendre comme un manche
et mettre dans le module de la feuille
Bonsoir Jacky. Merci beaucoup pour ta proposition.
Je dois surement m'y prendre comme un manche.... mais ça ne marche pas:
http://cjoint.com/?mquCuLmehD
Je fais une bétise?
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
....avec un double clic?
Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
....avec un double clic?
Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:uQ8LyMofKHA.5036@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
....avec un double clic?
Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Re....avec un double clic?
Voila qui est sage ;o))
Au même endroit (module de feuille)
'---------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = [a1:D20]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Cancel = True
Target = IIf(UCase(Target) = "X", "", "X")
End If
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Re
....avec un double clic?
Voila qui est sage ;o))
Au même endroit (module de feuille)
'---------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = [a1:D20]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Cancel = True
Target = IIf(UCase(Target) = "X", "", "X")
End If
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
966108AA-2394-45FC-A2AB-3589B8FE1414@microsoft.com...
Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:uQ8LyMofKHA.5036@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
7DFF49FA-1E0E-497E-9790-F2480E8D173C@microsoft.com...
Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg
Re....avec un double clic?
Voila qui est sage ;o))
Au même endroit (module de feuille)
'---------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Set plage = [a1:D20]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Cancel = True
Target = IIf(UCase(Target) = "X", "", "X")
End If
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Tout cela marche impec maintenant. Le simple clic est un peu gênant
parfois. Comment adapter le code pour les mêmes commandes (ajout et
suppression du "X") avec un double clic?
Merci à vous pour ce dernier petit changement...
Bonne nuit
Greg
"Jacky" a écrit dans le message de
news:Bonsoir,
Adapter Plage
et mettre dans le module de la feuille
'---------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Set plage = [a1]
'Set plage = [a1:A10]
If Not Intersect(Target, plage) Is Nothing Then
Application.EnableEvents = False
Target = IIf(UCase(Target) = "X", "", "X")
Target.Offset(0, 1).Activate
End If
Application.EnableEvents = True
End Sub
'---------
--
Salutations
JJ
"Greg" a écrit dans le message de news:Bonjour,
Je voudrais, si possible, une petite macro qui permette:
- d'écrire un "X" dans la cellule au clic (et non pas au double clic)
- d'effacer ce "X" s'il y a un nouveau clic dans la cellule
Pouvez-vous me venir en aide?
Merci
-----
Greg