Pointage

Le
Philippe
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ru-th
Le #4442551
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" 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
Le #4442541
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" 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
Le #4442491
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" %
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" 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
Le #4442451
Re...
Regarde ici:
http://cjoint.com/?esrrVuJYFz

--
Salutations
JJ


"Philippe" 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" %
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" 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
Le #4442081
Merci a vous tous de vos réponses
Cela fonctionne très bien
Bonne soiréé
Sincères Salutations
LePhil
"Jacky" %
Re...
Regarde ici:
http://cjoint.com/?esrrVuJYFz

--
Salutations
JJ


"Philippe" 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" %
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" 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















Publicité
Poster une réponse
Anonyme