Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel clique 1 fois = P

clique 1 fois = P

12 réponses
Avatar
croky23
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Jacky
Bonjour,

Perso, j'utiliserai plutôt données/validation

Sélection des cellules concernées et:
données/validation
autoriser >> liste
Source >> P;Abs

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci


Avatar
RGI
bonjour
essaye ceci

ce n'est peut-être pas exactement ce que tu désires mais ce n'est pas loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
' à ajuster suivant la plage désirée
If Target.Row < 2 Or Target.Row > 20 Then Exit Sub
If Target.Column = 1 Then

If Target.Value = "P" Then
Target.Value = "Abs"
Else
Target.Value = "P"
End If
Else
Target.Value = Target.Value
Exit Sub
End If
End Sub

Salutations

RGI



bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci



Avatar
croky23
merci
mais j'ai un petit soucis car je veux effectuer sur une plage nommée
"plagedate"
pouvez me dire les changement à faire pour le code


Bonjour,

Perso, j'utiliserai plutôt données/validation

Sélection des cellules concernées et:
données/validation
autoriser >> liste
Source >> P;Abs

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci







Avatar
Jacky
Re...
pouvez me dire les changement à faire pour le code


Source =plagedate
Y compris le "=" (égale)
--
Salutations
JJ

"croky23" a écrit dans le message de
news:
merci
mais j'ai un petit soucis car je veux effectuer sur une plage nommée
"plagedate"
pouvez me dire les changement à faire pour le code


Bonjour,

Perso, j'utiliserai plutôt données/validation

Sélection des cellules concernées et:
données/validation
autoriser >> liste
Source >> P;Abs

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre"
P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci









Avatar
JB
Bonjour,

Barre de saisie:

http://cjoint.com/?jErRLCPLoC

Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreSaisie")
CommandBars("BarreSaisie").Visible = True
'-- P
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
'bouton.Tag = "P"
bouton.Caption = "P"
bouton.OnAction = "'Coloriage """ & bouton.Caption & """'"
'--- ABS
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "ABS"
bouton.OnAction = "'Coloriage """ & bouton.Caption & """'"
End Sub

Sub Coloriage(p)
For Each c In Selection
c.Value = p
Next c
End Sub

Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreSaisie").Delete
End Sub

JB

Bonjour,

Perso, j'utiliserai plutôt données/validation

Sélection des cellules concernées et:
données/validation
autoriser >> liste
Source >> P;Abs

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci




Avatar
JB
Bonjour,

Avec une barre de saisie: http://cjoint.com/?jErMqrKaz8

Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreSaisie")
CommandBars("BarreSaisie").Visible = True
'-- P
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = "P"
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = "P"
'--- ABS
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = "ABS"
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = "ABS"
End Sub

Sub Coloriage(p)
For Each c In Selection
c.Value = p
Next c
End Sub

Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreSaisie").Delete
End Sub

JB




Bonjour,

Perso, j'utiliserai plutôt données/validation

Sélection des cellules concernées et:
données/validation
autoriser >> liste
Source >> P;Abs

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci




Avatar
croky23
je vous joint le dossier car je patoge
http://cjoint.com/data/jEszCNm1GJ.htm

bonjour
essaye ceci

ce n'est peut-être pas exactement ce que tu désires mais ce n'est pas loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
' à ajuster suivant la plage désirée
If Target.Row < 2 Or Target.Row > 20 Then Exit Sub
If Target.Column = 1 Then

If Target.Value = "P" Then
Target.Value = "Abs"
Else
Target.Value = "P"
End If
Else
Target.Value = Target.Value
Exit Sub
End If
End Sub

Salutations

RGI



bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci






Avatar
Jacky
Re.
Ceci met une liste de validation dans toutes les cellules sélectionnées.

Sélection de plagejour ou E3:s33
Dans donnée validation:
Autoriser>> liste
Source>>P;Abs

Sur la feuille, un clique dans une des cellules donnent la liste.

--
Salutations
JJ

"croky23" a écrit dans le message de
news:
je vous joint le dossier car je patoge
http://cjoint.com/data/jEszCNm1GJ.htm

bonjour
essaye ceci

ce n'est peut-être pas exactement ce que tu désires mais ce n'est pas
loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
' à ajuster suivant la plage désirée
If Target.Row < 2 Or Target.Row > 20 Then Exit Sub
If Target.Column = 1 Then

If Target.Value = "P" Then
Target.Value = "Abs"
Else
Target.Value = "P"
End If
Else
Target.Value = Target.Value
Exit Sub
End If
End Sub

Salutations

RGI



bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre"
P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci








Avatar
JB
J'ai ajouté une Barre dans ton classeur. Pour voir le code Alt+F11

http://cjoint.com/?jEuaogcofO

JB



je vous joint le dossier car je patoge
http://cjoint.com/data/jEszCNm1GJ.htm

bonjour
essaye ceci

ce n'est peut-être pas exactement ce que tu désires mais ce n'est p as loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
' à ajuster suivant la plage désirée
If Target.Row < 2 Or Target.Row > 20 Then Exit Sub
If Target.Column = 1 Then

If Target.Value = "P" Then
Target.Value = "Abs"
Else
Target.Value = "P"
End If
Else
Target.Value = Target.Value
Exit Sub
End If
End Sub

Salutations

RGI



bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettr e" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci








Avatar
RGI
bonjour

voilà pour dépatoger le monsieur

http://cjoint.com/?kblS2nGtlH

salutations et merci !!!!!!!

RGI

je vous joint le dossier car je patoge
http://cjoint.com/data/jEszCNm1GJ.htm


bonjour
essaye ceci

ce n'est peut-être pas exactement ce que tu désires mais ce n'est pas loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
' à ajuster suivant la plage désirée
If Target.Row < 2 Or Target.Row > 20 Then Exit Sub
If Target.Column = 1 Then

If Target.Value = "P" Then
Target.Value = "Abs"
Else
Target.Value = "P"
End If
Else
Target.Value = Target.Value
Exit Sub
End If
End Sub

Salutations

RGI




bonjour le forum
je dois remplir une feuille de presence chaque jour
je voudrais pouvoir en cliquant sur la cellule une fois que la lettre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci








1 2