Discussion :

[franckb74]

Bonjour,

J'aimerai par un double clic sur n'importe quelle cellule dans la zone contenant les chiffres de 1 à 90 de ma feuille Excel, coller la valeur dans la cellule P4
Il s'agit d'une grille de loto où je souhaiterai faire apparaître dans la cellule P4 le dernier n° double cliqué.

Dans l'opération de double clic j'ai déjà le code suivant qui me permet de mettre en couleur le chiffre double cliqué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D3:M11")) Is Nothing Then
With Target
    If Selection.Interior.ColorIndex = 20 Then
        Selection.Interior.ColorIndex = xlNone
 
    Else
        Selection.Interior.ColorIndex = 20
End If
End With
End If
End Sub

Quelle serait la bonne syntaxe et où dans mon code actuel dois-je la placer ?

En vous remerciant pour votre aide,
Franck

---

Fichiers joints dans les discussions

---

[Theze]

Bonjour,

Regarde si ça te va :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
 
    If Application.Intersect(Target, Range("D3:M11")) Is Nothing Then Exit Sub
 
    Range("P4").Value = Target.Value
 
    With Target.Interior
 
        If .ColorIndex = 20 Then .ColorIndex = xlNone Else .ColorIndex = 20
 
    End With
 
    Cancel = True 'évite que le curseur soit actif dans la cellule
 
End Sub

[franckb74]

Tip top !!!! Mille merci !