1 pièce(s) jointe(s)
Comment copier coller une cellule par un double clic en VBA sous excel
Bonjour à tous (es)
Dans une feuille de tournoi (Boxe), je souhaiterai pouvoir cliquer sur la cellule rouge ou bleu pour valider le vainqueur afin de transférer son nom dans les rencontres suivantes.
Exemple :
Rencontre n°1
Je clic sur Rouge (B4), la Valeur de (C4) s'affiche en (G4)
ou
Je clic sur Bleu (B6), la Valeur de (C6) s'affiche en (G4)
Rencontre n°2
Je clic sur Rouge (B10), la Valeur de (C10) s'affiche en (G4)
ou
Je clic sur Bleu (B12), la Valeur de (C12) s'affiche en (G4)
Vous trouverez ci-dessous une partie du code que j'ai trouvé mais pas bon :(
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("B4")) Is Nothing Then
Range("C4").Select
Selection.Copy
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G8").Select
End If
If Application.Intersect(Target, Range("B6")) Is Nothing Then
Range("C6").Select
Selection.Copy
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cancel = True
Range("G8").Select
End If
If Application.Intersect(Target, Range("B10")) Is Nothing Then
Range("C10").Select
Selection.Copy
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cancel = True
Range("G10").Select
End If
End Sub |
J'ai mis en Pj le fichier, je vous remercie d'avance pour l'aide que vous allez m'apporter les amis.
