Pointage

5 réponses

Philippe

18/04/2007 à 16:00

Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un même
classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à I38
Est - il possible en VBA en effectuant un double clic dans une des cellules
de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

5 réponses

ru-th

18/04/2007 à 16:33

Salut

une possibilité parmi d'autres
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [i4:i38]) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then
Target.Value = "X"
Exit Sub
End If
If Target.Value = "X" Then Target.ClearContents
End If
End Sub

rural thierry (qui s'est connu plus efficace)

"Philippe" a écrit dans le message de
news:462624ef$0$32013$

Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un
même

classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à
I38

Est - il possible en VBA en effectuant un double clic dans une des
cellules

de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

Jacky

18/04/2007 à 16:34

Bonjour,

Ceci dans le module de chaque feuille
'----------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [I4:I38]) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "X"
Else
Target = ""
End If
End If
End Sub
'-----------

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462624ef$0$32013$

Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un
même classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à
I38
Est - il possible en VBA en effectuant un double clic dans une des
cellules de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

Philippe

18/04/2007 à 16:59

Ces feuilles sont en objet et non module
La ligne ci-dessous se retrouve de couleur rouge
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

"Jacky" a écrit dans le message de news:
%

Bonjour,

Ceci dans le module de chaque feuille
'----------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [I4:I38]) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "X"
Else
Target = ""
End If
End If
End Sub
'-----------

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462624ef$0$32013$
Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un
même classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à
I38
Est - il possible en VBA en effectuant un double clic dans une des
cellules de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

Jacky

18/04/2007 à 17:18

Re...
Regarde ici:
http://cjoint.com/?esrrVuJYFz

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462632e1$0$24682$

Ces feuilles sont en objet et non module
La ligne ci-dessous se retrouve de couleur rouge
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

"Jacky" a écrit dans le message de news:
%
Bonjour,

Ceci dans le module de chaque feuille
'----------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [I4:I38]) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "X"
Else
Target = ""
End If
End If
End Sub
'-----------

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462624ef$0$32013$
Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un
même classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à
I38
Est - il possible en VBA en effectuant un double clic dans une des
cellules de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

Philippe

18/04/2007 à 21:28

Merci a vous tous de vos réponses
Cela fonctionne très bien
Bonne soiréé
Sincères Salutations
LePhil
"Jacky" a écrit dans le message de news:
%

Re...
Regarde ici:
http://cjoint.com/?esrrVuJYFz

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462632e1$0$24682$
Ces feuilles sont en objet et non module
La ligne ci-dessous se retrouve de couleur rouge
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

"Jacky" a écrit dans le message de news:
%
Bonjour,

Ceci dans le module de chaque feuille
'----------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [I4:I38]) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "X"
Else
Target = ""
End If
End If
End Sub
'-----------

--
Salutations
JJ

"Philippe" a écrit dans le message de news:
462624ef$0$32013$
Bonjour a tous,

Je souhaite effectuer sur différentes de feuilles de même format d'un
même classeur un pointage en mettant la lettre X comme rapproché
La colonne en question est la I et les cellules concernées vont de I4 à
I38
Est - il possible en VBA en effectuant un double clic dans une des
cellules de faire apparaître la lette X ou de l'enlever ?
Merci a tous de votre précieuse aide

LePhil

Pointage

5 réponses

Veuillez sélectionner un problème