[VBA] Attribuer différentes valeurs au double-click

TheLio · 7 Avril 2008

Hello tous,
J'ai cherché (pas à fond, je l'avoue )mais pas trouvé...
Peut donner différentes valeurs à une cellule suivant le nombre de double-click
Exemple toujours en colonne A
Premier double-click en A6 valeur = A
Deuxième double-click en A6 valeur = H
Troisième double-click en A6 valeur = Q
Quatrième...
Cinquième double-click en A6 retour au début > =A
...
...
Idem pour toutes les cellules en desous de A6
MErci pour les pistes
A++
Lionel

Staple1600 · 7 Avril 2008

Re : [VBA] Attribuer différentes valeurs au double-click

Bonjour

As-tu regardé dans ce post?

En adaptant au double-click

https://www.excel-downloads.com/thr...r-commandbars-cell-demande-de-conseils.82993/

TheLio · 7 Avril 2008

Re : [VBA] Attribuer différentes valeurs au double-click

Hello,
Je nel'avais point vu,
J'y cours
Merci
A++

Excel_lent · 7 Avril 2008

Re : [VBA] Attribuer différentes valeurs au double-click

Salut TheLio, re Staple et aux autres.

Vois si cela t'inspire (traitement pour A6, à boucler pour les autres)

BOISGONTIER · 7 Avril 2008

Re : [VBA] Attribuer différentes valeurs au double-click

Bonjour,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("a", "h", "q", "x")
  p = Application.Match(Target, temp, 0)
  If Not IsError(p) Then
    If p = UBound(temp) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = temp(p)
  Cancel = True
End Sub

JB

[VBA] Attribuer différentes valeurs au double-click

TheLio

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

TheLio

XLDnaute Accro

Excel_lent

XLDnaute Impliqué

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Discussions similaires