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

[TheLio]

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]

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]

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

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

 

[Excel_lent]

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]

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

Bonjour,

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