1,2,0

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juin 2018

• #2

Bonjour Yann, bonjour le forum,

Au DOUBLE clic :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then Target.Value = 1: GoTo fin
If Target.Value = 1 Then Target.Value = 2: GoTo fin
If Target.Value = 2 Then Target.Value = ""
fin:
Cancel = True
End Sub

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 8 Juin 2018

• #3

Bonjour
A tester avec double clic

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Nb()
  Nb = Array(1, 2, "")
  On Error GoTo fin
  Target.Value = Nb(Application.WorksheetFunction.Match(Target.Value, Nb, 0) Mod 3)
  Cancel = True
  Exit Sub
fin:
  Target.Value = Nb(0)
  Cancel = True
End Sub

Edit: Bonjour Robert

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 8 Juin 2018

• #4

Bonjour Robert et M12, merci pour vos solutions, elles répondent à ce que je désirai. Vos codes sont différents mais le résultat est le même, pourriez-vous m'expliquer la différence entre vos codes

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juin 2018

• #5

Re,

Ben... je dirais que mon code est basique et brut (comme moi finalement) et que celui de M12 est plus capillotracté... Mais bon, je laisse les mouches tranquilles...

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 8 Juin 2018

• #6

Merci pour les explications. Est-ce qu'il est possible de réaliser dans la même optique, au lieus de cliquer 2x pour avoir 2 de pouvoir simplifier la saisie qu'à chaque clique la cellule s'incrémente. Je m'explique 1 clique=1 puis cliquer une deuxième fois et non 2x pour afficher 2 pareille pour 3 et vider la cellule

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Juin 2018

• #7

Bonjour à tous,

un essai en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsm

  14.3 KB · Affichages: 32

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Juin 2018

• #8

Bonjour.
Je dirais :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Choose(Target.Value Mod 3 + 1, 1, 2, Empty)
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Juin 2018

• #9

Re,

une autre solution plus simple que ma réponse précédente en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsm

  14.4 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juin 2018

• #10

Bonjour Yann71, M12, Robert, Philippe, Bernard,

Pour le fun avec un Label auxiliaire :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex <> 6 Or Target.Count > 1 Then Label1.Visible = False: Exit Sub
Target = Choose(Target Mod 3 + 1, 1, 2, Empty)
With Label1
    .Caption = Target
    .Top = Target.Top
    .Left = Target.Left
    .Width = Target.Width
    .Height = Target.Height
    .Visible = True
End With
End Sub

Private Sub Label1_Click()
Worksheet_SelectionChange ActiveCell
End Sub

Fichier joint.

A+

 

Pièces jointes

• Clic(1).xlsm

  26 KB · Affichages: 33

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juin 2018

• #11

Re,

J'ai ajouté une Worksheet_Change dans ce fichier (2).

C'est mieux si l'on veut effacer la cellule active.

A+

 

Pièces jointes

• Clic(2).xlsm

  26.4 KB · Affichages: 45

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 11 Juin 2018

• #12

Bonjour tlm. En premier lieu je vous remercie pour tous les efforts fournis pour trouver une solution à mon problème. Mais malheureusement les propositions que vous m'apportez ne correspondent pas exactement à ce que je recherche, peut-être que je me suis mal exprimer. Je vais donc reformuler ma recherche.
J'aimerai que dans un groupe de cellule uniquement (par exemple de A1:C10) si je clic une fois dans A8 la cellule affiche 1 ,que si je clique à nouveau dans A8 elle affiche 2 et si je clique une troisième foi dans A8 il ne m'affiche plus rien. J'espère avoir été plus explicite dans ma recherche. Merci d'avance pour votre aide.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Juin 2018

• #13

Ma proposition du #8 le fait pour toute cellule.
Il ne reste qu'à mettre devant un test classique pour sortir si Target n'appartient pas à la plage voulue.
Et peut être aussi sélectionner une autre cellule après, parce qu'un clic sur la cellule déjà sélectionnée n'est pas détectable. Ce serait donc impossible à faire si c'est ça que vous auriez voulu. Avec un clic droit, peut être…

 

Dernière édition: 11 Juin 2018

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 11 Juin 2018

• #14

Je comprends bien ce que tu m'expliques, mais avec ton VBA je suis obligé de cliquer 2 x pour que le nombre 1 s'affiche et le nombre 2 après avoir cliqué 2x, donc ma demande si cela est possible c'est de cliquer 1x pour que 1 s'affiche et 2 après avoir cliqué une deuxième fois

 

Vote positif 0 Vote négatif

Yann71

XLDnaute Occasionnel

• 11 Juin 2018

• #15

Ah j'oubliai de remercier Job et Phlaurent pour votre intervention, mais malheureusement je peux ouvrir votre fichier mais ne peut exécuter votre VBA

 

Vote positif 0 Vote négatif