VBA pour "cliquer décaler" une valeur

Bonjour,

J'aimerais faire une macro qui quand on clic dans une cellule, décale la valeur sur la première cellule sur la droite.

Par exemple j'ai la cellule A1, je clic dessus et la valeur va en B1.

En clair j'ai actuellement un tableau avec deux colonne de valeur le devis en attente, et les devis perdu, je souhaite, quand je clic sur la valeur d'un devis en attente, qu'il passe dans la catégorie des devis perdus.

Merci d'avance.

Pablo

Bonjour,


Code a ajouter dans la feuille correspondante
A modifier le range "A2:A26" ou la fonction doit être exécutée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Not Intersect(Target, Range("A2:A26")) Is Nothing Then ' Modifier par le range approprié   If Target.Value <> "" And Target.Offset(0, 1).Value = "" Then Target.Offset(0, 1).value = ActiveCell.Value Target.Value = "" Else MsgBox "Attention Soit valeur de transfert nothing ou col B déjà remplie" End If   End If   End Sub

---

Super merci! c'est exactement ça!

Problème résolu!