Discussion :

[Le Samaritain]

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 :

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
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.