Discussion :

[pilounet54]

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 :

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

[Daniel.C]

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

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

[mercatog]

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

Sinon, ci_après ton code modifié

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