click dans une cellule d'une plage valeur du combo

Version imprimable

bonjour a tous

je viens vers vous pour me transformer ce bout de code
pour une plage
donc a chaque fois que je click dans la cellule de la plage je range la valeur du combobox choisi
merci pour la ou les reponses
et meilleur voeux à tous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub ComboBox1_Change() Range("A2").Value = ComboBox1.Value End Sub Private Sub Worksheet_Activate() ComboBox1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) = "A2" Then ComboBox1.Visible = True Else ComboBox1.Visible = False End If End Sub

Bonjour et bonne année. Je ne suis pas sûr d'avoir bien compris. J'ai remplacé "A2" par "Range("Plage")" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ComboBox1_Change()
If Not Intersect(ActiveCell, Range("Plage")) Is Nothing Then ActiveCell.Value = ComboBox1.Value
End Sub
 
Private Sub Worksheet_Activate()
ComboBox1.Visible = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
If Not Intersect(ActiveCell, Range("Plage")) Is Nothing Then
ComboBox1.Visible = True
 
Else
ComboBox1.Visible = False
 
End If

Bonsoir
Peut être, il serait mieux d'utiliser une Liste de Validation sur ta colonne A.

Sinon, ci_après ton code modifié

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
Option Explicit
 
Dim LaLig As Long
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 1 And Target.Row >= 2 And Target.Count = 1 Then
    With ComboBox1
        .Visible = True
        .ListIndex = -1
        .Top = Target.Top
        .Left = Target.Offset(0, 1).Left
    End With
    LaLig = Target.Row
Else
    ComboBox1.Visible = False
    LaLig = 0
End If
End Sub
 
Private Sub ComboBox1_Change()
 
If LaLig > 1 Then Range("A" & LaLig) = ComboBox1.Value
End Sub
 
Private Sub Worksheet_Activate()
 
ComboBox1.Visible = False
End Sub