Bonjour,

Voila ma problèmatique :

Dans ma feuille principale (BOOK), Jai donc des transactions listées dans un tableau qui commence à la ligne 26.

Lors d'un click droit sur la souris sur une de ces lignes colonne D, j'utilise les différentes valeurs contenu sur cette ligne et je les réorganise de façon à renseigner un "Billet" dont la structure est représentée dans la feuille REF.

Je voudrais savoir comment améliorer ce code afin que si je sélectionne plusieurs cellules à l'aide de la manipulation (Contrôle click) (à partir de la ligne 26 colonne D) renseigner les billets un après l'autre ??
Est ce possible ??

Voici le code de départ :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
Option Explicit
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
'Si plusieurs cellules selectionnées, on quitte
If Target.Count > 1 Then Exit Sub
 
'Si la cellule selectionné ne se trouve pas dans le tableau, on quitte
If Target.Column < 4 Then Exit Sub
If Target.Column > 4 Then Exit Sub
If Target.Row < 26 Then Exit Sub
 
message = MsgBox("Do you want book Ticket?", vbOKCancel + vbQuestion, "Booking Program")
If message = 2 Then Exit Sub
 
 
With Sheets("BOOK")
 
Call crea_page
 
    'On veut renseigner la cellule C4,D4 de la feuille "Nom"
    'Celle-ci doit contenir le Deal Slip de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    Sheets(nom).Range("C4:D4").Value = .Cells(Target.Row, "D").Value
 
    ' On veut renseigner la  cellule C6,D6 de la feuille "Nom
    ' Celle-ci doit contenir la contrepartie de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    Sheets(nom).Range("C6:D6").Value = .Cells(Target.Row, "A").Value
 
    ' On veut renseigner la  cellule C7,D7 de la feuille "Nom
    ' Celle-ci doit contenir le type d'opération  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
   ' Sheets(nom).Range("C7:D7").Value = .Cells(Target.Row, "E").Value
 
    ' On veut renseigner la  cellule C8,D8 de la feuille "Nom
    ' Celle-ci doit contenir la date de settlement  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    Sheets(nom).Range("C8:D8").Value = .Cells(Target.Row, "F").Value
 
    ' On veut renseigner la  cellule D11 ou D12 de la feuille "Nom"
    ' Celle-ci doit contenir le montant acheté  ou le montant vendu de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    ' Si montant en colone G supérieur à 0 alors on achéte et intégré cellule D1 sinon cellule D12
    If .Cells(Target.Row, "G").Value > 0 Then
        Sheets(nom).Range("D11").Value = .Cells(Target.Row, "G").Value
        Range("D11").Value = Range("D11").NumberFormat = "0.00"
    Else
        Sheets(nom).Range("D11").Value = .Cells(Target.Row, "H").Value
        Range("D11").Value = Range("D11").NumberFormat = "0.00"
    End If
 
 
    ' On veut renseigner la  cellule D12 de la feuille "Nom
    ' Celle-ci doit contenir le montant vendu  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    If .Cells(Target.Row, "H").Value < 0 Then
        Sheets(nom).Range("D12").Value = .Cells(Target.Row, "H").Value
        Range("D12").Value = Range("D12").NumberFormat = "0.00"
    Else
        Sheets(nom).Range("D12").Value = .Cells(Target.Row, "G").Value
        Range("D12").Value = Range("D12").NumberFormat = "0.00"
        End If
 
 
    ' On veut renseigner la  cellule C11 et C12  de la feuille "Nom"
    ' Celle-ci doit contenir la devise achetée ou la devise vendue  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    ' Si G > 0 alors K est ds C11
    ' Si G < 0 alors K est ds C12
    If .Cells(Target.Row, "G").Value > 0 Then
        Sheets(nom).Range("C11").Value = .Cells(Target.Row, "K").Value
    Else
        Sheets(nom).Range("C11").Value = .Cells(Target.Row, "L").Value
    End If
 
    ' On veut renseigner la  cellule C12 de la feuille "Nom
    ' Celle-ci doit contenir la devise vendue  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    If .Cells(Target.Row, "H").Value < 0 Then
        Sheets(nom).Range("C12").Value = .Cells(Target.Row, "L").Value
    Else
        Sheets(nom).Range("C12").Value = .Cells(Target.Row, "K").Value
    End If
 
    ' On veut renseigner la  cellule C13,D13 de la feuille "Nom"
    ' Celle-ci doit contenir le taux  de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    Sheets(nom).Range("C13:D13").Value = .Cells(Target.Row, "M").Value
 
    ' On veut renseigner la  cellule C9,D9 de la feuille "Nom"
    ' Celle-ci doit contenir la paire de devise de la ligne sur laquelle on a clicker sur la feuille "BOOK"
    Sheets(nom).Range("C9:D9").Value = .Cells(Target.Row, "K").Value & "/" & .Cells(Target.Row, "L").Value

Merci beaucoup pour votre aide