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

2 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
croky23
re bonjour le forum
merci à tous
j'ai choisis la version à jb mais les autres etaient tres bien aussi
j'ai voulu ajouter des infod dans la barre de saisie
mais cela ne fonctionne que sur deux et non sur tous il y a surement un code
à changer mais lequel?(surement le sub coloriage)
je vous met ce que j'ai fait
encore merci

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"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "C.A."
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "A.T."
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "JAP"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "1/2JAP"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "Det"
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


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











Avatar
JB
Sur cette version, il suffit d'ajouter des lignes dans l'onglet
Boutons, de sauvegarder puis de relancer.
-Il n'y a pas à modifier le programme.
-Il y a un champ nommé Boutons.

http://cjoint.com/?kcqCA6rmu5

JB



re bonjour le forum
merci à tous
j'ai choisis la version à jb mais les autres etaient tres bien aussi
j'ai voulu ajouter des infod dans la barre de saisie
mais cela ne fonctionne que sur deux et non sur tous il y a surement un c ode
à changer mais lequel?(surement le sub coloriage)
je vous met ce que j'ai fait
encore merci

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"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "C.A."
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "A.T."
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "JAP"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "1/2JAP"
Set bouton =
CommandBars("BarreSaisie").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Caption = "Det"
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


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'es t pas loin

à mettre dans le code de la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cance l 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 let tre" P"
s'inscrive et en cliquant 2 fois" abs"
es ce posible?
merci













1 2